DANILO G. NICOLAS JR. JOHN PAUL ANCHORIZ
Jack ‘n Poy
Private Sub CmdExit_Click() End End Sub Private Sub CmdPlay_Click() Timer1.Enabled = True LblMessage.Caption = "" End Sub Private Sub CmdStop_Click() Timer1.Enabled = False Dim x x = Val(Lbl1.Caption) If OptStone = True And x = 1 Then LblMessage.Caption = "FAIR" ElseIf OptStone = True And x = 2 Then LblMessage.Caption = "YOU WIN" LblCtr.Caption = LblCtr.Caption + 1 ElseIf OptStone = True And x = 3 Then LblMessage.Caption = "YOU LOSE" LblCtr1.Caption = LblCtr1.Caption + 1 ElseIf OptSci = True And x = 1 Then LblMessage.Caption = "YOU LOSE" LblCtr1.Caption = LblCtr1.Caption + 1 ElseIf OptSci = True And x = 2 Then LblMessage.Caption = "FAIR" ElseIf OptSci = True And x = 3 Then LblMessage.Caption = "YOU WIN" LblCtr.Caption = LblCtr.Caption + 1 ElseIf OptPap = True And x = 1 Then LblMessage.Caption = "YOU WIN"
LblCtr.Caption = LblCtr.Caption + 1 ElseIf OptPap = True And x = 2 Then LblMessage.Caption = "YOU LOSE" LblCtr1.Caption = LblCtr1.Caption + 1 ElseIf OptPap = True And x = 3 Then LblMessage.Caption = "FAIR" End If If LblCtr.Caption = 5 Then MsgBox "WINNER" LblMessage.Caption = "" LblCtr.Caption = 0 LblCtr1.Caption = 0 ElseIf LblCtr1.Caption = 5 Then MsgBox "GAME OVER" LblMessage.Caption = "" LblCtr.Caption = 0 LblCtr1.Caption = 0 End If End Sub Private Sub Form_Load() LblCtr.Caption = 0 LblCtr1.Caption = 0 End Sub Private Sub OptPap_Click() If OptPap = True Then AStone.Visible = False ASci.Visible = False APap.Visible = True End If End Sub Private Sub OptSci_Click() If OptSci = True Then AStone.Visible = False ASci.Visible = True APap.Visible = False End If End Sub Private Sub OptStone_Click() If OptStone = True Then AStone.Visible = True ASci.Visible = False APap.Visible = False End If End Sub
Private Sub Timer1_Timer() Lbl1.Caption = Int(3 * Rnd()) + 1 Dim x x = Val(Lbl1.Caption) If x = 1 Then BStone.Visible = True BSci.Visible = False BPap.Visible = False ElseIf x = 2 Then BStone.Visible = False BSci.Visible = True BPap.Visible = False ElseIf x = 3 Then BStone.Visible = False BSci.Visible = False BPap.Visible = True End If End Sub