Forumet - Visual basic-multipla if-satser i en loop

Visual basic-multipla if-satser i en loop

167 0 8
Okej, har knepat ihop en kod, som visar ett meddelande då man vinner.

Man kan ha siffrorna 1 till 4.

4 är fusk, den vinner mot allt.

1 vinner över 3
2 vinner över 1
3 vinner över 2

Om man har lika ska den skicka upp en annan pop-up.

Den felaktiga koden är:

For i = 1 To 2 Step 1
If pl(1) = pl(2) Then
MsgBox ("Sluta tänka likadant! " & rq2), vbOKOnly, "Ni valde samma!"
Else
If pl(i) = 4 Then
MsgBox ("Player" & i & " vann! "), vbOKOnly, "We have a winner!"
Else
If pl(i) = 1 Then
If pl((2 * i) / (i ^ 2)) = 3 Then
MsgBox ("Player" & i & " vann! "), vbOKOnly, "We have a winner!"
End If
Else
If pl(i) = (pl((2 * i) / (i ^ 2)) - 1) Then
MsgBox ("Player" & i & " vann! "), vbOKOnly, "We have a winner!"
End If
End If
End If
End If
Next i

rq2 är olika quotes som finns med i pop-uppen, de är fördefinierade och slumpas fram. Mellanrummen efter ""Player" & i & " vann! " är för att titeln på pop-uppen ska få plats.

Men koden funkar inte, så istället för att fortsätt stirra mig blind på den frågar jag nu om någon här kan titta på det.

Spana också in:

Åtta:

Bryr mig inte så ruskigt mycket. [rolleyes] Kan inte påstå att jag har ensamrätt på sten sax påse (även om det vore fräsigt [blush]).


Jag vet, jag bara drev med ^^ Jag undrar om någon har patent på sten-sax-påse? Annars kanske man skulle ta och fixa en patent ^^

Problem solved btw

Fel=

Else
If pl(i) = (pl((2 * i) / (i ^ 2)) - 1) Then
MsgBox ("Player" & i & " vann! "), vbOKOnly, "We have a winner!"
End If


Rätt=

Else
If pl(i) = (pl((2 * i) / (i ^ 2)) + 1) Then
MsgBox ("Player" & i & " vann! "), vbOKOnly, "We have a winner!"
End If



Ett smärre tankefel av mig, hade tänkt så mycket på det att jag blev blind.