Name:
Anonymous
2007-05-13 18:21
ID:BZfnATFq
Private Sub Form_Load()
Die1Display 0
Die2Display 0
End Sub
Private Sub RollButton_Click()
Roll
End Sub
Private Sub Roll()
Beep
Die1Display GetDieRoll()
Die2Display GetDieRoll()
End Sub
Private Function GetDieRoll() As Long
GetDieRoll = Round(1 + Rnd() * 5)
End Function
Private Sub Die1Display(n As Long)
Select Case n
Case 1:
Die1NW.Visible = False
Die1NE.Visible = False
Die1W.Visible = False
Die1C.Visible = True
Die1E.Visible = False
Die1SW.Visible = False
Die1SE.Visible = False
Case 2:
Die1NW.Visible = False
Die1NE.Visible = True
Die1W.Visible = False
Die1C.Visible = False
Die1E.Visible = False
Die1SW.Visible = True
Die1SE.Visible = False
Case 3:
Die1NW.Visible = False
Die1NE.Visible = True
Die1W.Visible = False
Die1C.Visible = True
Die1E.Visible = False
Die1SW.Visible = True
Die1SE.Visible = False
Case 4:
Die1NW.Visible = True
Die1NE.Visible = True
Die1W.Visible = False
Die1C.Visible = False
Die1E.Visible = False
Die1SW.Visible = True
Die1SE.Visible = True
Case 5:
Die1NW.Visible = True
Die1NE.Visible = True
Die1W.Visible = False
Die1C.Visible = True
Die1E.Visible = False
Die1SW.Visible = True
Die1SE.Visible = True
Case 6:
Die1NW.Visible = True
Die1NE.Visible = True
Die1W.Visible = True
Die1C.Visible = False
Die1E.Visible = True
Die1SW.Visible = True
Die1SE.Visible = True
Case Else:
Die1NW.Visible = False
Die1NE.Visible = False
Die1W.Visible = False
Die1C.Visible = False
Die1E.Visible = False
Die1SW.Visible = False
Die1SE.Visible = False
End Select
End Sub
Private Sub Die2Display(n As Long)
Select Case n
Case 1:
Die2NW.Visible = False
Die2NE.Visible = False
Die2W.Visible = False
Die2C.Visible = True
Die2E.Visible = False
Die2SW.Visible = False
Die2SE.Visible = False
Case 2:
Die2NW.Visible = False
Die2NE.Visible = True
Die2W.Visible = False
Die2C.Visible = False
Die2E.Visible = False
Die2SW.Visible = True
Die2SE.Visible = False
Case 3:
Die2NW.Visible = False
Die2NE.Visible = True
Die2W.Visible = False
Die2C.Visible = True
Die2E.Visible = False
Die2SW.Visible = True
Die2SE.Visible = False
Case 4:
Die2NW.Visible = True
Die2NE.Visible = True
Die2W.Visible = False
Die2C.Visible = False
Die2E.Visible = False
Die2SW.Visible = True
Die2SE.Visible = True
Case 5:
Die2NW.Visible = True
Die2NE.Visible = True
Die2W.Visible = False
Die2C.Visible = True
Die2E.Visible = False
Die2SW.Visible = True
Die2SE.Visible = True
Case 6:
Die2NW.Visible = True
Die2NE.Visible = True
Die2W.Visible = True
Die2C.Visible = False
Die2E.Visible = True
Die2SW.Visible = True
Die2SE.Visible = True
Case Else:
Die2NW.Visible = False
Die2NE.Visible = False
Die2W.Visible = False
Die2C.Visible = False
Die2E.Visible = False
Die2SW.Visible = False
Die2SE.Visible = False
End Select
End Sub