Hej!

Jag håller med ett enkelt Sten sax påse spel. Jag har nu kommit fram till att jag måste se vem som vinner spelaren eller datorn. Hur ska jag göra för att låta någon vinna med hjälp av de val de gjort.

Tacksam för all hjälp jag kan få.


Här är koden
Dim x As Integer
Private Sub cmdAvsluta_Click()
End
End Sub

Private Sub cmdSpela_Click()
Randomize
x = Int(Rnd * 3) + 1
Select Case x
Case 1: picDator = picSten
Case 2: picDator = picSax
Case 3: picDator = picPase
End Select
End Sub

Private Sub optPase_Click()
picSpelare = picPase
End Sub

Private Sub optSax_Click()
picSpelare = picSax
End Sub

Private Sub optSten_Click()
picSpelare = picSten
End Sub

Du kollar med if-satser om någon har vunnit...

tex sax är ju bättre än påse

if picData = sax and picSpelare = PicPase then
'datorn har vunnit
end if

/bj

Tackar

Du kan skriva:
<code>
Dim Spelare As Integer

Private Sub cmdAvsluta_Click()
Unload Me
End Sub

Private Sub cmdSpela_Click()
Randomize
Select Case Int(Rnd * 3) + 1
Case 1
picDator = picSten
Select Case Spelare
Case 1
MsgBox "Oavgjort"
Case 2
MsgBox "Du förlorade"
Case 3
MsgBox "Du vann"
End Select
Case 2
picDator = picSax
Select Case Spelare
Case 1
MsgBox "Du vann"
Case 2
MsgBox "Oavgjort"
Case 3
MsgBox "Du förlorade"
End Select
Case 3
picDator = picPase
Select Case Spelare
Case 1
MsgBox "Du förlorade"
Case 2
MsgBox "Du vann"
Case 3
MsgBox "Oavgjort"
End Select
End Select
End Sub

Private Sub optPase_Click()
picSpelare = picPase
Spelare = 3
End Sub

Private Sub optSax_Click()
picSpelare = picSax
Spelare = 2
End Sub

Private Sub optSten_Click()
picSpelare = picSten
Spelare = 1
End Sub
</code>

Nu har jag åter fastnat, nu är nästa steg att räkna hur många gånger datorn vinner och hur många gånger spelaren vinner.

Jag har grubblat men jag kan inte komma på hur jag ska göra. Ska man räkna case eller ska man göra på nbåt helt annat sätt?

Tack på förhand.

dim Datavinn as integer
dim spelareVinn as integer

om datan vinner så blir det
datavinn = datavinn + 1
och tvärtom om spelaren vinner

/bj