
- نسل جدید آی تی نویسان وارد می شوند - 20 كليك
- گزارش اسپم یک سایت به گوگل - 59 كليك
- چرا در عکسها چشمانمان قرمز میافتد؟ - 147 كليك
- " ترین" های سال 88 - 280 كليك
- چرا در خواب تشنه نمیشویم؟ - 177 كليك

برنامه نویسی ویژوال بیسیک 6 ( قسمت دوازدهم )
ارسال شده توسط احمد محمد علیزاده در ۲۶ بهمن, ۱۳۸۵ ساعت ۰۹:۳۱موضوع: تولید اعداد تصادفی و نوشتن یک قطعه برنامه
تولید اعداد تصادفی ( Random ) : برای تولید این نوع اعداد از تابع RND استفاده می شود. به عنوان مثال دستور زیر باعث می شود که اعداد تصادفی بین صفر تا ۱۰ تولید شود : Rnd*10 که اعداد تولید شده شامل اعداد صحیح و اعشاری می باشند. اما دستور : Int(Rnd*10) باعث می شود فقط اعداد صحیح تصادفی در بازه ی صفر تا ده تولید شود.
مثال : a=Int(Rnd*10)
Print a
اگر هر بار دکمه را بفشارید یک عدد صحیح بین صفر تا ۱۰ تولید می شود. ( قطعه کد ذکر شده را در در یک دکمه بنویسید )

تفکر : قطعه برنامه زیر چه کاری انجام می دهد ؟
a=Int(Rnd*15)
s=QbColor(a)
Text1.ForeColor=s
راهنمایی :تابع QbColor برای استفاده از توابع رنگ کاربرد دارد. ( مقادیر آن از صفر تا ۱۵ )
» پاسخ تمرین بالا در مقاله بعدی توضیح داده می شود.
» پاسخ تمرین قسمت یازدهم :
تمرین : قطعه برنامه ای بنویسید که اعداد ۱۵ تا ۲۵ را در یک آرایه ذخیره کند و سپس مقادیر آن ها را از انتها به ابتدا روی صفحه فرم نمایش دهد. ( راهنمایی : از دستورات 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
البته چون تراز متن راست چین است جای پرانتز ها باید اصلاح شود.
موفق باشید …
مربوط به آموزش برنامه نويسي | ۴ نظر »
- مستند ایران من
- مستند حیات وحش پارک ملی YellowStone با زیرنویس فارسی
- مجموعه به یادماندنی لورل و هاردی
- بازی Call of Duty 6 – Modern Warfare 2 – ندای وظیفه 6 جنگ های مدرن 2
- « پردیس » – مجموعه بینظیر از طرحهای اسلیمی و فونت های کمیاب فارسی
- مجموعه کامل نرم افزارهای مهندسی عمران 2009
- خرید اینترنتی ویندوز 7 نسخه نهایی 22 اکتبر 2009 – Windows 7 Ultimate Final
- آفیس 2007 سرویس پک 2 به همراه فارسی ساز و غلط یاب فارسی !
- FIFA Soccer 10 – فوتبال فیفا 2010
- مجموعه انیمیشنهای بیاد ماندنی و زیبای ِ آقای خط – La Linea
۴ نظر
مربوط به مطلب [برنامه نویسی ویژوال بیسیک 6 ( قسمت دوازدهم )]
آيا مي دانستيد كه :
گربه ماهی بیش از 27000 عضو چشایی دارد






ارسال شده توسط شهرام
در ۲۶ بهمن ۱۳۸۵
با سلام
دوست عزیز بنده ۱ سال با برنامه نویسی کار میکنم
خوشحال میشوم از پشتیبانی شما در خصوص نوشتن برنامه نگهداری و تعمیرات استفاده کنم
پاسخ به اين نظر
ارسال شده توسط حسين
در ۲۳ خرداد ۱۳۸۶
با سلام
من چند وقتی است برای قطعه کدی خودمو کلافه کرده ام
این کلافه گی اینه
چه طور کدی بنویسم که با لود شدن فرم برنامه فایل صوتی دلخواهی باز شود
با تشکر خوشحال میشم منو راهنمایی کنید
پاسخ به اين نظر
ارسال شده توسط reza
در ۵ تیر ۱۳۸۷
lotfan mishe tozih bedin ke che tor mishe adadhaie marbooot be tabe random ra iz 1 ta 6 gharar dad mer30
پاسخ به اين نظر
ارسال شده توسط احسان
در ۱۹ مهر ۱۳۸۷
من در یک برنامه نیاز به ذخیره کرن عکس در بانک اطلاعاتی دارم به وسیله کلیک کرن به روی ابزار عکس ممنون می شوم راهنمایی کنید
پاسخ به اين نظر