ایجاد عدد رندوم

[M4$0UD]

سلام

دوستان من چطور میتونم عدد رندم فقط و فقط بین 1 تا 6 ایجاد کنم ؟
رو یک کامند هربار که کلیک میکنی فقط عدد 1 تا 6 بصورت رندوم تولید بشه


با تشکر

[MeHrDaD341]

سلام از این کد میتونی استفاده کنی .



Private Sub Command1_Click()

Dim random As Integer

random = Int(Rnd * 7)
MsgBox random

End Sub

[M4$0UD]

سلام از این کد میتونی استفاده کنی .



Private Sub Command1_Click()

Dim random As Integer

random = Int(Rnd * 7)
MsgBox random

End Sub




از پاسختون ممنونم
اما این کد هم مشکلی داره اینه که تمام اعداد زیر 1 تولید میکنه
من نیاز به ادعداد رند 1 و 2 و 3 و 4 و 5 و 6 دارم فقط !
نمیخوام بجز این چیزی چاپ بشه چون واسه بازی منچ میخوام
ممنون میشوم دوستان مرا راهنمایی کنند

[vb study]

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

[MeHrDaD341]

دوست عزیز کد مشکل نداره ولی برای اینکه 0 رو چاپ نکنه فقط یه IF کم داره .
نمونه کد



Private Sub Command1_Click()

Dim random As Integer

random = Int(Rnd * 7)

If random >= 1 Then MsgBox random

End Sub

[returnx]

نحو بدست آوردن اعداد رندوم در یک رنج خاص :
y=rnd*(High-low+1)+Low
به طور مثال برای بدست آوردن اعداد بین 1 تا 6 اینطوری استفاده میکنیم:
y=rnd*(6-1+1)+1