• Home
 · 
• Games
 · 
• Rock Paper Sissors Game!.

Rock Paper Sissors Game!.

Rock Paper Sissors Game!.

API Declarations


'2 text boxs
'3 command buttons


' These are only the required objects, the other captions can be added later.



Rate Rock Paper Sissors Game!.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
Label1.Caption = ""
Label2.Caption = ""
lblwin.Caption = ""

'Random Computer outcomes

Text1.Text = "Rock"
Select Case (1 + Int(Rnd() * 3))
    Case 1
        Text2.Text = "Rock"
    Case 2
        Text2.Text = "Paper"
    Case 3
        Text2.Text = "Sissors"
End Select
'winners for the rock

If Text1.Text = "Rock" And Text2.Text = "Paper" Then
lblwin.Caption = "Paper Covers Rock"
Label2.Caption = "X"
End If

If Text1.Text = "Rock" And Text2.Text = "Sissors" Then
lblwin.Caption = "Rock Smashes Sissors"
Label1.Caption = "X"
End If

If Text1.Text = "Rock" And Text2.Text = "Rock" Then
lblwin.Caption = "Tie"
Label1.Caption = ""
Label2.Caption = ""
End If

End Sub

Private Sub Command2_Click()

Label1.Caption = ""
Label2.Caption = ""
lblwin.Caption = ""

'random computer outcomes

Text1.Text = "Paper"
Select Case (1 + Int(Rnd() * 3))
    Case 1
        Text2.Text = "Rock"
    Case 2
        Text2.Text = "Paper"
    Case 3
        Text2.Text = "Sissors"
End Select

'Winners for paper

If Text1.Text = "Paper" And Text2.Text = "Rock" Then
lblwin.Caption = "Paper Covers Rock"
Label1.Caption = "X"
End If

If Text1.Text = "Paper" And Text2.Text = "Paper" Then
lblwin.Caption = "Tie"
Label1.Caption = ""
Label1.Caption = ""
End If

If Text1.Text = "Paper" And Text2.Text = "Sissors" Then
lblwin.Caption = "Sissors Cut Paper"
Label2.Caption = "X"
End If

End Sub

Private Sub Command3_Click()

Label1.Caption = ""
Label2.Caption = ""
lblwin.Caption = ""

'Random computer outcomes for the sissors button

Text1.Text = "Sissors"
Select Case (1 + Int(Rnd() * 3))
    Case 1
        Text2.Text = "Rock"
    Case 2
        Text2.Text = "Paper"
    Case 3
        Text2.Text = "Sissors"
End Select

'the winners for sissors

If Text1.Text = "Sissors" And Text2.Text = "Rock" Then
lblwin.Caption = "Rock Smashes Sissors"
Label2.Caption = "X"
End If

If Text1.Text = "Sissors" And Text2.Text = "Paper" Then
lblwin.Caption = "Sissors cut Paper"
Label1.Caption = "X"
End If

If Text1.Text = "Sissors" And Text2.Text = "Sissors" Then
lblwin.Caption = "Tie"
Label1.Caption = ""
Label2.Caption = ""
End If
End Sub