Sub Main
'Gioca ogni 11 estrazioni (dopo il ciclo dei 10 colpi per l'ambata)
Dim ruote(10)
Dim ambata(1)
Dim posta(1)
Dim progress(1,10)
posta(1) = 5
progress(1,01) = 05
progress(1,02) = 10
progress(1,03) = 15
progress(1,04) = 20
progress(1,05) = 25
progress(1,06) = 30
progress(1,07) = 35
progress(1,08) = 40
progress(1,09) = 45
progress(1,10) = 50
r1 = InputBox("INSERISCI LA RUOTA DEL 1° NUMERO",,1)
pos1 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 1° NUMERO",,3))
r2 = InputBox("INSERISCI LA RUOTA DEL 2° NUMERO",,10)
pos2 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 2° NUMERO",,3))
Ini = InputBox("INIZIO RICERCA ESTRAZIONE N°",,7500)
k = InputBox("COLPI DI GIOCO",,10)
fin = EstrazioneFin
For es = Ini To fin Step k+1
Call AvanzamentoElab(Ini,fin,es)
Messaggio "3° BA + 3° VE METODO DI VALE79 - SCRIPT BY BLACKMORE"
a = Estratto(es,r1,pos1) : b = Estratto(es,r2,pos2)
numero = Fuori90(a + b)
ruote(1) = r1 ': ruote(2) = r2
co = co + 1
Scrivi String(100,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ambata(1) = numero
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca es
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:ScriviResoconto
End Sub