Rock Paper Scissors HELP.
Alright, so I'm trying to make a basic game, but I can't seem to get it right. Can you guys please take a quick peak through this code, and spot my error, or tell me what I need to add?
Here's the code for the game so far:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const intRock As Integer = 1
Const intPaper As Integer = 2
Const intScissors As Integer = 3
Dim intComputerThrows As Integer
Static intPlayerWins As Integer = 0
Static intComputerWins As Integer = 0
Static intNumDraws As Integer = 0
intPlayerWins = Val(Me.lblPlayerWins.Text)
intComputerWins = Val(Me.lblComputerWins.Text)
intNumDraws = Val(Me.lblNumDraws.Text)
If Me.radRock.Checked And intComputerThrows = intRock Then
Me.lblWinner.Text = "Computer throws Rock, so it's a draw!"
intNumDraws = intNumDraws + 1
ElseIf Me.radRock.Checked And intComputerThrows = intPaper Then
Me.lblWinner.Text = "Computer throws Paper, so the computer wins!"
intComputerWins = intComputerWins + 1
ElseIf Me.radRock.Checked And intComputerThrows = intScissors Then
Me.lblWinner.Text = "Computer throws Scissors, so you win!"
intPlayerWins = intPlayerWins + 1
End If
If Me.radPaper.Checked And intComputerThrows = intRock Then
Me.lblWinner.text = "Computer throws Rock, so you win!"
intPlayerWins = intPlayerWins + 1
ElseIf Me.radPaper.Checked And intComputerThrows = intPaper Then
Me.lblWinner.text = "Computer throws Paper, so it's a draw!"
intNumDraws = intNumDraws + 1
ElseIf Me.radPaper.Checked And intComputerThrows = intScissors Then
Me.lblwinner.text = "Computer throws Scissors, so the computer wins!"
End If
If radScissors.Checked And intComputerThrows = intRock Then
Me.lblWinner.Text = "Computer throws Rock, so the computer wins!"
intComputerWins = intComputerWins + 1
ElseIf radScissors.Checked And intComputerThrows = intPaper Then
Me.lblWinner.Text = "Computer throws Paper, so you win!"
intComputerWins = intComputerWins + 1
ElseIf radScissors.Checked And intComputerThrows = intScissors Then
Me.lblWinner.Text = "Computer throws Scissors, so it's a draw!"
intNumDraws = intNumDraws + 1
End If
End Sub
Never mind, I fixed it. All I needed to add was:
Code:
Randomize()
intComputerThrows = Int(3 * Rnd() + 1)
Thanks anyways. <3