Tecnica dopo la sbronza

[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 = 10
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
r = 4 'Ruota Genova
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 1 Then 'PRIMA estrazione
a = Estratto(es,r,4)
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 4 'Ruota di Genova
ruote(2) = 5 'Ruota di Milano
ruote(3) = 10 'Ruota di Venezia
ruote(4) = 12 'Ruota Nazionale
ruote(5) = 11 'Tutte
' ------ GIOCATA
cg = 0
a1(1) = Fuori90(a + 57)
a1(2) = 45
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp
Gioca es,1
End If
Next
ScriviResoconto
End Sub