ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > کمک میخام خیلی خیلی خیلی زیاد
نسخه‌ی کامل: کمک میخام خیلی خیلی خیلی زیاد
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

mostafashoenz

۰۵-تير-۱۳۸۷, ۱۰:۳۹:۰۳
سلام
من دنبال یه برنامه میگردم که بتونم توش 2 بازه ی عددی رو وارد کنم و با زدن یک دکمه برنامه بصورت تصادفی عددی را به من معرفی کند البته در محدوده ی بازه ی دو عددی که وارد کردم.
با تشکر

godvb

۰۵-تير-۱۳۸۷, ۱۲:۲۴:۴۹
دوست عزیز عنوان تاپیک رو درست انتخاب کنین .
دوتا تکست باکس بذار اولی کمترین مقدار رو وارد کن و دومی بیشترین مقدار .
کد:
Private Sub Command1_Click()
Dim v, c As Integer
c = (Val(Text2.Text) - Val(Text1.Text)) + 1
v = Int(Rnd() * c)
v = v + Val(Text1.Text)
MsgBox v
End Sub

mbza11

۰۵-تير-۱۳۸۷, ۱۶:۲۷:۳۲
سلام.
من معمولا تو برنامه هام از اين کد استفاده مي کنم:
کد:
randomize(10000)
x=Int((n-m+1)*rnd+m)
msgbox x
X: عدد تصادفي به دست آمده بين M و N
M: عدد کوچکتر
N: عدد بزرگتر

Exclamation اين تقريبا همون روش دوست خوبم godvb هست فقط يکم کوتاه و بهينه شده.
ايران ويج > برنامه نویسی > ويژوال بيسيك > کمک میخام خیلی خیلی خیلی زیاد