[farzad]

قسمت سیزدهم برنامه نویسی ویژوال بیسیک 6 ؛ آشنایی با قسمت های مختلف ویژوال جهت سهولت استفاده …
هیچ کس نمی تواند ادعا کند که همه ی دستورات و زیر بم و ریزه کاری برنامه نویسی را بلد است ( حتی خود سازندگان این نرم افزار هم ممکن است بعضی وقت ها کم بیاورند) و یا هیچ کس هم نمی تواند ادعا کند که نرم افزار بی نقص نوشته است ( مثلاً نرم افزار های مجموعه Office و یا Microsoft Visual Basic 6.0 نیز چند اشکال جزئی دارند ) ؛ بنابراین من تصمیم گرفتم تا در این قسمت بتوانم شما را با بیشتر اشیاء مختلف در این نرم افزار ( Microsoft Visual Basic 6.0 ) آشنا کنم. ( البته در مورد اشیایی که در قسمت های قبل صحبت کرده ام در اینجا صحبت نمی کنم . شما می توانید جهت کسب اطلاعات بیشتر به آرشیو مقالات آموزش برنامه نویسی در سایت شاهوار دات نت مراجعه نمائید.) {در این قسمت زیاد کد نویسی نداریم }
1- شیء Frame : این Object جهت ترتیب بندی و سر و سامان دادن به بخش های مختلف برنامه در قالب یک کادر با عنوان مشخص کاربرد دارد.
2- شیء CheckBox : از این شیء جهت استفاده در مواردی که احتیاج به انتخاب چند گزینه همزمان است استفاده می شود.
جهت مشاهده ادامه آموزش بر روی More… کلیک کنید.

3- شیء OptionBottoun : از این شیء جهت استفاده در مواردی که احتیاج به انتخاب فقط یک گزینه همزمان است استفاده می شود.
4- اشیای DriveListBox و DirListBox و FileListBox : به ترتیب جهت نمایش درایو ؛ فهرست و پوشه ها کاربرد دارد.شما می توانید از دستورات زیر جهت پیوند بین این اشیا استفاده کنید :

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

4- شیء Shape : جهت ترسیم اشکال هندسی مختلف استفاده می شود.
5- شیء Line : جهت ترسیم خط راست استفاده می شود.

سوالات خود را در قسمت نظرات مطرح نمائید. با تشکر
نوشته: فرزاد
farzad_kenko@yahoo.com

[farzad]

از اینکه بین این پست یا پست قبلی تاخیر چند ماهه افتاد عذر خواهی می کنم.

برنامه نویسی را از این قسمت به شکل حرفه ای تری دنبال می کنیم. در این قسمت در باره ی اشیای FileListBox ، DirectoryListBox و DriveListBox صحبت می کنیم. این سه شی به ترتیب جعبه لیست های فایل و فهرست و درایو می باشند. البته هیچ کدام به تنهایی کاربرد ندارند و باید میان آن ها ارتباط برقرار کرد و آن ها را به هم پیوند زد.

طرز ارتباط این سه شی :

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

دستور اول پیوند فهرست به درایو مربوطه و دستور دوم نسبت دهی فایل انتخابی به فولدری که فایل در آن قرار دارد می باشد.
خواص مهم FileListBox :

• FileName‌ : نام فایل انتخاب شده در جعبه فایل
• Path : مسیر فایل انتخابی
• Pattern : الگو فایل را در جعبه فایل تعین می کند. مثال :

File1.Pattern = “*.bmp” - Format BMP

مفهم : جعبه فایل صرفاً با فایل های bmp سر و کار دارد و آن ها را نمایش می دهد.
فرامین کار با این سه شی :
فرمان تعین درایو جاری : chdrive(”e” - Drive E
فرمان حذف فایل : kill
فرمان تغیر فهرست : chdir
» نحوه استفاده مانند مثال اول ؛ نام درایو یا پوشه مربوطه را داخل “” و پرانتز قرار دهید.
منتظر مقالات جدید باشید.

نوشته: فرزاد

farzad_kenko@yahoo.com

[farzad]

موضوع‌: تولید اعداد تصادفی و نوشتن یک قطعه برنامه
تولید اعداد تصادفی ( Random ) : برای تولید این نوع اعداد از تابع RND استفاده می شود. به عنوان مثال دستور زیر باعث می شود که اعداد تصادفی بین صفر تا 10 تولید شود :‌ Rnd*10 که اعداد تولید شده شامل اعداد صحیح و اعشاری می باشند. اما دستور : Int(Rnd*10) باعث می شود فقط اعداد صحیح تصادفی در بازه ی صفر تا ده تولید شود.
مثال : a=Int(Rnd*10)
Print a
اگر هر بار دکمه را بفشارید یک عدد صحیح بین صفر تا 10 تولید می شود. ( قطعه کد ذکر شده را در در یک دکمه بنویسید )

تفکر :‌ قطعه برنامه زیر چه کاری انجام می دهد ؟
a=Int(Rnd*15)
s=QbColor(a)
Text1.ForeColor=s
راهنمایی :تابع QbColor برای استفاده از توابع رنگ کاربرد دارد. ( مقادیر آن از صفر تا 15 )
» پاسخ تمرین بالا در مقاله بعدی توضیح داده می شود.
» پاسخ تمرین قسمت یازدهم :
تمرین : قطعه برنامه ای بنویسید که اعداد 15 تا 25 را در یک آرایه ذخیره کند و سپس مقادیر آن ها را از انتها به ابتدا روی صفحه فرم نمایش دهد. ( راهنمایی : از دستورات for و print در برنامه استفاده نمائید و کد برنامه را در روال Activate بنویسید. )
پاسخ :
Dim b(10) as integer
For I = 0 to 10
B(i) = i+15
Next i
For j = 10 to 0 step -1
Print b(j)
Next j
البته چون تراز متن راست چین است جای پرانتز ها باید اصلاح شود.
موفق باشید …
نوشته: فرزاد
farzad_kenko@yahoo.com