Sub Main()
'https://forum.lottoced.com/threads/il-mio-primo-metodo-lo-chiamer%C3%B2-lascio-o-raddoppio.2223308/#post-2744053
Scrivi " TEST: LASCIO O RADDOPPIO di MARINA2009 [giugno 2025] ---- script di GioRyuKen72 ",1,,2,6,5,,1
Dim Ru(1),Nn(2),E1,E2,P5,P6
Dim Terno1(4),PostaT(3),Cinquina1(5),PostaC(5),Ambata(1),Ambo1(2),PostaA(2)
Dim Num(4)
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",54))
ini = EstrazioneFin - ex
fin = EstrazioneFin
estra = CInt(InputBox("Quante estrazioni di differenza ricerco?","Estrazioni indietro",1))
p = CInt(InputBox("Posizione Estratto 1, 2, 3, 4 o 5 ?","In quale Posizione estrattiva?",5))
r =InputBox("1=BARI, 2=CAGLIARI, 3=FIRENZE, 4=GENOVA, 5=MILANO, 6=NAPOLI, 7=PALERMO, 8=ROMA, 9=TORINO, 10=VENEZIA, 12=NAZIONALE","Scelta Ruota di Ricerca",7)
ReDim Rg(0)
rr = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",,1)
For es = ini To fin
Ru(1)= r
Messaggio es
rr = Rg
Nn(1) = Estratto(es -(estra),r,p) : Nn(2) = Estratto(es,r,p)
Num(1) = Fuori90(Nn(1) + Nn(2))
Num(2) = Fuori90(Num(1) + 3)
Num(3) = Nn(1)
Num(4) = Nn(2)
Ambata(1) = Fuori90(Num(1) + Num(2))
'rt(1) = CA_
'rt(2) = FI_
'rt(3) = TT_
PostaA(2) = 1
PostaT(2) = 1
PostaT(3) = 0.5
PostaC(2) = 1.6
PostaC(3) = 0.9
PostaC(4) = 0.4
PostaC(5) = 0.1
k = 15
Ambo1(1) = Ambata(1)
Ambo1(2) = Num(2)
ImpostaGiocata 2,Ambo1,rr,PostaA,k,2 '2 significa che ferma le giocate solo dopo il primo ambo
Terno1(1) = Ambata(1)
Terno1(2) = Num(1)
Terno1(3) = Num(2)
ImpostaGiocata 3,Terno1,rr,PostaT,k,3 '3 significa che ferma le giocate solo dopo il primo terno (gli ambi vanno fino alla fine)
Cinquina1(1) = Ambata(1)
Cinquina1(2) = Num(1)
Cinquina1(3) = Num(2)
Cinquina1(4) = Num(3)
Cinquina1(5) = Num(4)
ImpostaGiocata 4,Cinquina1,rr,PostaC,k,4 '4 significa che ferma le giocate solo dopo il primo quaterna (i terni vanno fino alla fine)
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi("Estrazione n." & Format2(Es -(estra)) & " del " & DataEstrazione(Es -(estra))),1,0
Scrivi " " & SiglaRuota(r) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es -(estra),r,P5)
If E1 = Nn(1) Or E1 = Nn(2) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(r) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,r,P6)
If E2 = Nn(1) Or E2 = Nn(2) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(78,"-"),1
ColoreTesto 1
' OrdinaMatrice Nn,1
Scrivi "Numeri Ricercati: " & Format2(Nn(1)) & " - " & Format2(Nn(2)),1,0
Scrivi
ColoreTesto 0
Scrivi String(78,"-"),1
Scrivi
Gioca es,True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub
3918272820
