Ciao a tutti;
Lo script funziona sia con Spaziometria che con Lottodesk 2.0
Con il primo programma escono dei numeri differenti da quelli che ho postato, mentre con Lottodesk corrispondono perfettamente.
Scrivi : Scrivi "1 AMBATA E TRE AMBI SU GENOVA-MILANO"
Sub Main()
Dim rt(2),pt(4),n1(4)
pt(2) = 1
clp = 9 'colpi di gioco
rt(1) = 4 '1a ruota di gioco
rt(2) = 5
ini = 10415 'Lottodesk 10415 - Spaziometria 2381? - 02/04/2024
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If Indicemensile(es) = 1 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,4,1)
b = Estratto(es,9,2)
n1(1) = Fuori90(a + 2)
n1(2) = Fuori90(b + 7)
ImpostaGiocata 1,n1,rt,pt,clp
a = Estratto(es,4,1)
b = Estratto(es,7,5)
n1(1) = Fuori90(a + 2)
n1(2) = Fuori90(b + 12)
ImpostaGiocata 2,n1,rt,pt,clp
a = Estratto(es,4,1)
b = Estratto(es,6,3)
n1(1) = Fuori90(a + 2)
n1(2) = Fuori90(b + 42)
ImpostaGiocata 3,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub