Grazie Baffo, per gli esperti e non ,vorrei darvi uno script da valutare ,è un pò vecchiotto se ricordo bene mi sembra del 2016 e non mi ricordo chi l'aveva fatto, l'ho trovato e ho fatto alcune modifiche sembra stato studiato per l' estratto ma dà dei bei risultati non da poco .Date un'occhiata e se volete fare modiche per migliorarlo .Accetto consigli e opinioni
Questi sono risultati fatti su ultime 500 estrazioni
Codice:
Sub Main()
Dim Ambate(5),Ruotadigioco(12),Poste(5)
Ruotadigioco(1) = 1
Ruotadigioco(2) = 2
Ruotadigioco(3) = 3
Ruotadigioco(4) = 4
Ruotadigioco(5) = 5
Ruotadigioco(6) = 6
Ruotadigioco(7) = 7
Ruotadigioco(8) = 8
Ruotadigioco(9) = 9
Ruotadigioco(10) = 10
Ruotadigioco(11) = NZ_
Ruotadigioco(12) = TU_
Poste(1) = 1
Poste(2) = 1
Poste(3) = 1
Poste(4) = 1
Poste(5) = 1
For Es = EstrazioneFin - 500 To EstrazioneFin
Et = Es - 12
If IndiceMensile(et) = 1 Then 'Prima del Mese
K = K + 1 : Scrivi String(105,"=") & " " & K,1
Ambate(1) = Fuori90(Estratto(Et + 1,2,1) + 49)
Ambate(2) = Fuori90(Estratto(Et + 1,2,3) + 49)
Ambate(3) = Fuori90(Estratto(Et + 1,2,5) + 49)
Ambate(4) = Fuori90(Estratto(Et + 1,2,1) + 61) - 1
Ambate(5) = Fuori90(Estratto(Et + 1,2,3) + 61) + 1
ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,12,5
Gioca Es,1
End If
Next
ScriviResoconto
End Sub