|
Finnaly got it all working now just need a simple fix. When I run the program ir shows 0,1,2 instead of rock paper scissor. Can' you show me what can I add or what is wrong.
[PHP]
Dim P1 As Integer, P2 As Integer
Dim RPS(3) As Integer
Dim Winner As Integer
Dim x As Integer
Dim rock, paper, scissors As Single
lstp1.Items.Add(P1)
lstp2.Items.Add(P1)
lstwin.Items.Add(Winner)
rock = 0
paper = 1
scissors = 2
Randomize()
For x = 0 To 100
P1 = Int(3 * Rnd())
P2 = Int(3 * Rnd())
Select Case P1
Case rock
Select Case P2
Case rock
Winner = 1
Case paper
Winner = 3
Case scissors
Winner = 2
End Select
Case paper
Select Case P2
Case rock
Winner = 2
Case paper
Winner = 1
Case scissors
Winner = 3
End Select
Case scissors
Select Case P2
Case rock
Winner = 3
Case paper
Winner = 2
Case scissors
Winner = 1
End Select
End Select
lstp1.Items.Add(P1)
lstp2.Items.Add(P2)
lstwin.Items.Add("Player " & Winner)
Next
End Sub[/PHP]
|