per le spiegazioni andate QUI
Ciauz
- Codice: Seleziona tutto
'http://www.lottopassion.it/forum/viewtopic.php?f=3&p=13069&sid=3e9d0741fa21b31c666704ae3222108d#p13069
Sub Main()
Scrivi
Scrivi " Il numero 90 come gioco come e quando giocarlo",1
Scrivi
Scrivi
Dim ambata(1),ambo(4),abbi(4),abbo(4)
Dim ruote(2),ruote1(3)
Dim poste(1),posta(2),posta1(3)
poste(1) = 1 : posta(2) = 1
posta1(2) = 1 : posta1(3) = 1
qe = InputBox("Quante estrazioni di controllo","estrazioni controllo",156)
colpi = InputBox("Quanti colpi di gioco?","COLPI ",12)
For es = EstrazioneFin - qe To EstrazioneFin
Messaggio es
For r1 = 1 To 10
For i = 1 To 5
For r2 = 1 To 12
If r1<>11 And r2<>11 and r1<>r2 Then
For j = 1 To 5
a = Estratto(es,r1,i)
b = Estratto(es,r2,j)
If i = j Then
If Distanza(a,b) = 9 Then
c = Posizione(es,r1,4)
If c > 0 Then
d=90
e=Fuori90(a+4)
f=90-e
g=Fuori90(f+2)
casi = casi + 1
ColoreTesto 1 : Scrivi String(60,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > [ " & a & " - " & 4 & "]",1
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > [ " & b & " ]",1
Scrivi String(60,"-"):ColoreTesto 0
abbi(1) = e
abbi(2) = f
abbi(3) = g
ruote(1) = r1
ruote(2) = r2
ambata(1) = d
ImpostaGiocata 1,ambata,ruote,poste,colpi
ambo(1) = d
ambo(2) = e
ambo(3) = f
ambo(4) = g
ImpostaGiocata 2,ambo,ruote,posta,colpi
Gioca es
End If
End If
End If
Next
End If
Next
Next:Next:Next
ScriviResoconto
End Sub