برنامه نویسی ویژوال بیسیک 6 ( قسمت دوازدهم )

موضوع‌: تولید اعداد تصادفی و نوشتن یک قطعه برنامه
تولید اعداد تصادفی ( 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

البته چون تراز متن راست چین است جای پرانتز ها باید اصلاح شود.

موفق باشید …