Visual Basic 6 - Gioco del Tokio (aiuto)

Forum - Visual Basic 6 - Gioco del Tokio (aiuto)

Raffa50 (Normal User)
Pro

Messaggi: 68
Iscritto: 07/12/2008

Postato alle 21:27
Sabato, 02/01/2010

Conoscete quel gioco di dadi che si kiama tokio???
si lanciano 2 dadi e bisogna fare + dell'altro e se si fa meno si può dire una bugia...
se viene 21 è tokio..
(non conta l'ordine dei dadi si mette il numero + grande davanti...)

stò cercando di fare una cosa del genere... ma non sò kome fare a mettere il numero maggiore davanti...

Codice sorgente - presumibilmente VB.NET

Randomize
Dim Minimo As Integer
Dim Massimo As Integer
Dim gce As Single
Minimo = 11
Massimo = 66
'Estrazione
gce = Int((Massimo - Minimo + 1) * Rnd) + Minimo
ttiro.Text = gce
Tira.Enabled = False
 
'il pc ci crede sempre e tira!
Randomize
Dim pcn As Single 'dichiarazione di variabile
'Estrazione Pc
pcn = Int((Massimo - Minimo + 1) * Rnd) + Minimo
'e poi decide se dichiarare il falso...
'cioè se fa meno di tè prende il  tuo puntiggio e ci aggiunge 0 o 1 o 2
If pcn < gce Then
pcdk = Int(gce + Rnd * 2)
Else
pcdk = pcn
End If
'verificare le coppie... (incompleto)
cpvr = gce Mod 11
 
'e se viene meno di tokio? il pc dikiara tokio!
If gce = 21 Or gce = 12 Then
pcdk = 21
End If
 
pcdic.Text = pcdk 'quello ke il pc dichiara

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 22:30
Sabato, 02/01/2010

kome fare a mettere il numero maggiore davanti...

Se intendi far diventare 25 > 52

If Left(gce, 1) < Right(gce, 1) Then

gce = Right(gce, 1) & Left(gce, 1)

End If