زبان Visual Basic : تمامی مباحث و مسائل

[مهمان]

سلام
يک کد جالب براي کساني که با vb6 کار مي کنند پيدا کردم که اينجا قرار مي دهم.
اين کد باعث ميشه که محيط vb6 به صورت tab بشود و کار کردن با چندين فايل در وي بي ساده مي شود.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[bithiah]

با سلام خدمت دوستان انجمن برنامه نویسی
در مورد DAO با یه مشکل مواجه شده ام و لطف می کنین اگه جوابمو بدین.
برای مرتب (sort) کردن رشته های فارسی در فرمان SQL از عبارت ORDER BY استفاده می کنم، ولی انگار نه انگار. اصلا مرتب نمی شه. با متود sort رکوردست هم که مرتب می کنم باز هم مرتب نمی شه. در حالیکه من با ADO تا حالا خیلی اینکار رو انجام دادم. شما نمی دونین چرا اینطوریه و چی کار باید کرد؟
ممنون

[bithiah]

سلام
يک کد جالب براي کساني که با vb6 کار مي کنند پيدا کردم که اينجا قرار مي دهم.
اين کد باعث ميشه که محيط vb6 به صورت tab بشود و کار کردن با چندين فايل در وي بي ساده مي شود.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

PersianAmir عزيز دستت درد نكنه. با اين كد كار همه برنامه نويسهاي VB خيلي خيلي راحت تر مي شه. پيشنهاد مي كنم هيچ كس از دستش نده.
واقعا ممنون.

[pascal]

آقا کسی بلده چطور میشه با ویژوال برنامه ای نوشت که شماره تلفن بگیره

[bithiah]

آقاي پاسكال ببينين نمونه كد زير بدردتون مي خوره:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

جواب منم كه هيچ كي نمي ده. ولي من بازم منتظرم... :|

[Nesta]

آقاي پاسكال ببينين نمونه كد زير بدردتون مي خوره:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

جواب منم كه هيچ كي نمي ده. ولي من بازم منتظرم... :|

سلام خانم به دلیل برخی‌ از مسائل ممکن هست که اینجا فعلا دیر پاسخ داده بشه که من از شما شرمنده هستم. :oops: :oops:

[hamed_110]

حلقه های تکرار
از حلقه های تکرار برای تکرار انجام عملیات خاصی استفاده می شود.

حلقه تکرار For:
از این حلقه برای تکرار عملیات خاصی به تعداد مشخص انجام می شود.
For Counter = Start_Value To End_Value
[Step Step_Count]
بلاکی از یک یا چند دستور ویژوال بیسیک
Next [Counter
Counter شمارنده حلقه
Start_Value مقدار اولیه شمارنده
End_Value مقدار پایانی شمارنده
ابتدا متغییر counter برابر Start_Value قرار می گیرد و دستورات یک بار اجرا می شوند سپس counter به اندازه Step_Count افزایش یافته و دوباره دستورات اجرا می شوند و این عمل تا وقتی که به End_Value برسیم تکرار می شود
نکته:
گر Step_Count ذکر نشود مقدار پیش فرض آن یک می باشد.
می توان Counter جلوی Next را ننوشت ولی به دلیل ناخوانایی برنامه در حلقه های تودرتو این کار توصیه نمی شود
مثال:
Dim i, Sum As Integer
For i = 0 To 100
Sum = Sum + i
Next i
Text1.Text = Sum
در این مثال مجموع اعداد بین 0 تا 100 محاسبه شده و در آخر مقدار آن در جعبه متن قرار داده می شود

Dim i, Sum As Integer
For i = 1 To 10 Step 2
Sum = Sum + i
Next i
Text1.Text = Sum

[bithiah]

مي شه بگين مشكل از كجاست؟ هرچند كه من هيچ كاره ام اما لااقل بدونم كي به كيه و سر چي و كي داره مشكل ايجاد مي كنه... :roll:

[sa3er]

آقا کسی بلده چطور میشه با ویژوال برنامه ای نوشت که شماره تلفن بگیره

سلام؛
شما بايد از کنترل MSComm جهت اين امر استفاده کنيد.
در يافت مثال نمونه از:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

با سلام...
من مي خوام تمام اطلاعات يه فايل MP3 از قبيل مدت زمان، نام خواننده(Artist)، نوع موسيقي(Genre) و...(همانطور كه در مديا پلير در صورت وجود مشخص هستد) در ويژوال بيسيك استخراج كنم. با استفاده FileSystemObject و عنصر فايل نمي شه تمام مواردي رو كه من مد نظر دارم نمايش داد.
لطفا به من توضيح بديد چه جوري ميشه از طريق ويژوال بيسيك اين اطلاعت رو نمايش بدم.

دريافت مثال نمونه از:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

با سلام خدمت دوستان انجمن برنامه نویسی
در مورد DAO با یه مشکل مواجه شده ام و لطف می کنین اگه جوابمو بدین.
برای مرتب (sort) کردن رشته های فارسی در فرمان SQL از عبارت ORDER BY استفاده می کنم، ولی انگار نه انگار. اصلا مرتب نمی شه. با متود sort رکوردست هم که مرتب می کنم باز هم مرتب نمی شه. در حالیکه من با ADO تا حالا خیلی اینکار رو انجام دادم. شما نمی دونین چرا اینطوریه و چی کار باید کرد؟
ممنون

تا آنجا که بنده اطلاع دارم در حال حاضر sql فقط sorting عربی رو پشتیبانی می کنه و اصلا farsi collation رو به صورت کامل support نمی کنه... البته اگر دوستان اطلاعاتی دارند که عکس گفته بنده هست، مایل هستم بشنوم.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

شب خوش.

[Friend]

آقا من می خوام یک بانکه اطلاعاتی تو وی بی درست کنم