Tecnica del 7 ottobre 2021 bis

[Mauro-emme]

Tecnica:

Sub Main
Dim ruota(2),am(3),pt(2),ruote(5),a1(2),a2(4),a3(4),a4(2),a5(2),a6(2)
pt(1) = 1
pt(2) = 1
clp = 7
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
fine = EstrazioneFin
n1 = 57
n2 = 35
r = 9
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 2 Then 'SECONDA estrazione
a = Estratto(es,r,5)
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 9
' ------ GIOCATA
cg = 0
a1(1) = Fuori90(a + 52)
a1(2) = 23
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp
a2(1) = Fuori90(a + 52)
a2(2) = 81
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp

Gioca es,1
End If
Next
ScriviResoconto
End Sub