Sub Main()
Dim es,Ini,Fin,r1,r2,ee,clp
Dim ruote(10)
Dim posta(10)
Dim poste(10)
Dim n1(2)
Dim n2(4)
posta(1) = 1
poste(2) = 1
r1 = CInt(InputBox(" Scegli la 1°ruota ",,"1"))
r2 = CInt(InputBox(" Scegli la 2°ruota ",,"2"))' per la Nazionale metti 11
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = r1
ruote(2) = r2
a = Estratto(es,r1,1)
b = Estratto(es,r1,2)
c = Estratto(es,r2,1)
d = Estratto(es,r2,2)
'---------------------
s1 = Fuori90(a + d)
s2 = Fuori90(c + b)
s3 =(s1 * 100)
pid =(s3 + s2)
'--------------------------
ok = 0
If pid > 999 Then
pid1 = Piramide(pid,2,due)
ok = 1
End If
'--------------------------
If pid < 1000 Then
pid1 = Piramide(pid,1,due)
ok = 1
End If
'--------------------------
n1(1) = pid1
If n1(1) > 90 Then
n1(1) =(n1(1) - 90)
ok = 1
End If
n1(2) = Vert(n1(1))
n2(1) = s1
n2(2) = s2
n2(3) = n1(1)
n2(4) = n1(2)
If ok = 1 Then
'-----------------------------------------------
ruote(1) = r1
ruote(2) = r2
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
Scrivi String(65,"°"),1
ImpostaGiocata 1,n1,ruote,posta,clp
ImpostaGiocata 2,n2,ruote,poste,clp
Gioca es,1,,1
If ScriptInterrotto Then Exit For
End If
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea di Margot listato by Lanfranco60 "),1,3,0
ScriviResoconto
End Sub