سلام
دوستان من چطور میتونم عدد رندم فقط و فقط بین 1 تا 6 ایجاد کنم ؟
رو یک کامند هربار که کلیک میکنی فقط عدد 1 تا 6 بصورت رندوم تولید بشه
با تشکر
سلام
دوستان من چطور میتونم عدد رندم فقط و فقط بین 1 تا 6 ایجاد کنم ؟
رو یک کامند هربار که کلیک میکنی فقط عدد 1 تا 6 بصورت رندوم تولید بشه
با تشکر
سلام از این کد میتونی استفاده کنی .
Private Sub Command1_Click()
Dim random As Integer
random = Int(Rnd * 7)
MsgBox random
End Sub
Private Sub Command1_Click()
Dim random As Integer
For I = 1 To 1000
random = Int(Rnd * 7)
If random >= 1 Then
MsgBox random
I = 1000
End If
Next
End Sub
دوست عزیز کد مشکل نداره ولی برای اینکه 0 رو چاپ نکنه فقط یه IF کم داره .
نمونه کد
Private Sub Command1_Click()
Dim random As Integer
random = Int(Rnd * 7)
If random >= 1 Then MsgBox random
End Sub
نحو بدست آوردن اعداد رندوم در یک رنج خاص :
y=rnd*(High-low+1)+Low
به طور مثال برای بدست آوردن اعداد بین 1 تا 6 اینطوری استفاده میکنیم:
y=rnd*(6-1+1)+1