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.
Um tål ej mellanrum, inte mitt fel att det blev extra krångligt.
jojOzZz:
Um tål ej mellanrum, inte mitt fel att det blev extra krångligt.
Använd <pre>
aristoteles:
Använd <pre>
tackar.
Det är ju sten sax påse! Ska allt anmäla dig för tjuveri! ![[mad]](/img/smilies/mad.gif)
http://ungdomar.se/forum.php?thread_id=258631
Åtta:
Det är ju sten sax påse! Ska allt anmäla dig för tjuveri!
Faktiskt där jag fick iden. Men jag skall ej sprida den vidare i allmänheten, så bara ut som en intressant utmaning 🙂
jojOzZz:
Men jag skall ej sprida den vidare i allmänheten, så bara ut som en intressant utmaning 🙂
Bryr mig inte så ruskigt mycket. ![[rolleyes]](/img/smilies/rolleyes.gif)
Kan inte påstå att jag har ensamrätt på sten sax påse (även om det vore fräsigt ![[blush]](/img/smilies/blush.gif)
).
Åtta:
Bryr mig inte så ruskigt mycket.
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.
Tråden låst på grund av inaktivitet
