by Harn (8 Submissions)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 11th October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the dice!).
Private Sub Command1_Click()
d = Int(Rnd * 20) + 1
MsgBox d
If d = 20 Then
MsgBox "You Win!!"
End If
If d = 1 Then
MsgBox "You lose!!!'"
End If
End Sub
Private Sub Command2_Click()
d = Int(Rnd * 6) + 1
MsgBox d
End Sub
Private Sub Command3_Click()
d = Int(Rnd * 12) + 1
MsgBox d
End Sub
Private Sub Command4_Click()
d = Int(Rnd * 4) + 1
MsgBox d
End Sub
Private Sub Command5_Click()
d = Int(Rnd * 8) + 1
MsgBox d
End Sub
Private Sub Command6_Click()
d = Int(Rnd * 10) + 1
MsgBox d
End Sub
Private Sub Command7_Click()
Randomize Timer
d = Int((Rnd * 10) * 10) + Int(Rnd * 10)
MsgBox d
End Sub
Private Sub Command8_Click()
Randomize Timer
d = Int(Rnd * 10)
d = d * 10 + 10
MsgBox d
End Sub
No comments have been posted about This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the di. Why not be the first to post a comment about This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the di.