Sub Main()
Scrivi:Scrivi "Metodo (+ modifica) e Script By Blackmore":Scrivi
Dim ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),quartina(4),posta(1),poste(2)
Dim ambata2(1),terzina1(3),terzina2(3),terzina3(3)
posta(1) = 1 : poste(2) = 1
rr1 = CInt(InputBox("RUOTA DI RICERCA 1 ",,6))
rr2 = CInt(InputBox("RUOTA DI RICERCA 2 ",,12))
som = CInt(InputBox("SOMMA ",,10))
pos1 = CInt(InputBox("POSIZIONE ESTRATTO RUOTA 1",,2))
pos2 = CInt(InputBox("POSIZIONE ESTRATTO RUOTA 2",,4))
ini = InputBox("INIZIO RICERCA",,8322)
k = InputBox("COLPI DI GIOCO",,10)
fin = EstrazioneFin
For es = ini To fin
a = Estratto(es,rr1,pos1):b = Estratto(es,rr2,pos2)
If Fuori90(a + b) = som Then
co = co + 1
ruote(1) = NA_ : ruote(2) = VE_
Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr1) & " " & FormatSpace(StringaEstratti(es,rr1),19) & " " & Format2(a) & " [Ruote di gioco " & SiglaRuota(6) & " e " & SiglaRuota(10) & " ]"
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr2) & " " & FormatSpace(StringaEstratti(es,rr2),19) & " " & Format2(b) & " [Ruote di gioco " & SiglaRuota(6) & " e " & SiglaRuota(10) & " ]"
ambata(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,MI_,1))
ImpostaGiocata 1,ambata,ruote,posta,k,1
ambo1(1) = ambata(1)
ambo1(2) = Fuori90(Estratto(es,CA_,2)* Estratto(es,MI_,5))
ImpostaGiocata 2,ambo1,ruote,poste,k,2
ambo2(1) = ambata(1)
ambo2(2) = Fuori90(90 +(Estratto(es,FI_,1)) - Estratto(es,TO_,5))
ImpostaGiocata 3,ambo2,ruote,poste,k,2
ambo3(1) = ambata(1)
ambo3(2) = Fuori90(Estratto(es,GE_,5)* Estratto(es,MI_,2)* 31)
ImpostaGiocata 4,ambo3,ruote,poste,k,2
' ------- METODO MODIFICATO CON GLI ABBINAMENTI +10 E - 10 (A PARTIRE DALLA GIOCATA N°0005) --------
ambata2(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,MI_,1))
ImpostaGiocata 5,ambata2,ruote,posta,k,1
terzina1(1) = ambata(1)
terzina1(2) = Fuori90(Estratto(es,CA_,2)* Estratto(es,MI_,5) + 10)
terzina1(3) = Fuori90(Estratto(es,CA_,2)* Estratto(es,MI_,5) - 10)
ImpostaGiocata 6,terzina1,ruote,poste,k,2
terzina2(1) = ambata(1)
terzina2(2) = Fuori90(90 +(Estratto(es,FI_,1)) - Estratto(es,TO_,5) + 10)
terzina2(3) = Fuori90(90 +(Estratto(es,FI_,1)) - Estratto(es,TO_,5) - 10)
ImpostaGiocata 7,terzina2,ruote,poste,k,2
terzina3(1) = ambata(1)
terzina3(2) = Fuori90(Estratto(es,GE_,5)* Estratto(es,MI_,2)* 31 + 10)
terzina3(3) = Fuori90(Estratto(es,GE_,5)* Estratto(es,MI_,2)* 31 - 10)
ImpostaGiocata 8,terzina3,ruote,poste,k,2
Gioca es,1 'SE USATE L8 O LOTTODESK TOGLIETE ,1 DOPO Gioca es
'ImpostaInterruzioni 1,1,1
'ImpostaInterruzioni 2,1,1
'ImpostaInterruzioni 3,1,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi:Scrivi:ScriviResoconto
End Sub