Jack 'n Poy

  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Jack 'n Poy as PDF for free.

More details

  • Words: 356
  • Pages: 1
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

Related Documents

Jack 'n Poy
June 2020 3
Jack
May 2020 19
Jack
November 2019 52
Jack
October 2019 33
Plan Dea Poy 1554511569
August 2019 11