Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Noppa peli

aloitteleva [13.07.2005 21:41:44]

#

Tää on pieni Noppa peli jossa Hunajavohveli mua autto mut ite tein aika paljon (Muitten mielestä voi olla naurettava mut mä oon alottelija ja oli 10 minsan duuni tehä tää.)

Kiitos hunajavohvelille xD
Aika sekavaa tekstiä mut anti mennä.

Tee vaa commandi jonka nimeks command1 ja sinne toi

Private Sub Command1_Click()
oma = Int(Rnd * 6) + 1
vastustaja = Int(Rnd * 6) + 1
MsgBox "Arvotaan sinun numeroasi"
MsgBox oma
MsgBox "Arvotaan vastustajasi numero"
MsgBox vastustaja
If oma > vastustaja Then
MsgBox "voitit!"
ElseIf oma = vastustaja Then
MsgBox "Tasa peli ei voittajaa."
ElseIf oma < vastustaja Then
MsgBox "Hävisit mutta parempi tuuri ensi kerralla."
End If
End Sub

Latska [16.07.2005 00:15:40]

#

Minusta tämä on vähän turhan aloittelijavinkki. Ei millään pahalla.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta