Sub Main()
Scrivi
Scrivi " ALLA 8° ESTRAZIONE MENSILE ",- 1,,,1,3
Scrivi
Scrivi
Scrivi " METODO IMAGING ",- 1,,,2,3
Scrivi
Dim ruote(10)
Dim nn1(10): Dim nn2(10) : Dim nn3(5) : Dim nn4(5) : Dim poste(2)
poste(2) = 1
klp = 9
ini = EstrazioneFin - 610 'imposta l'intervallo di ricerca
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 8 Then
ruote(1) = 5
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(80,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile",- 1,,,2,3
ColoreTesto 0
Scrivi
nn1(1) = Fuori90(Estratto(es,5,3) + 04)
nn1(2) = Fuori90(Estratto(es,1,5) + 13)
ImpostaGiocata 1,nn1,ruote,poste,klp,2
nn2(1) = Fuori90(Estratto(es,5,3) + 74)
nn2(2) = Fuori90(Estratto(es,4,3) * 05)
ImpostaGiocata 2,nn2,ruote,poste,klp,2
nn3(1) = Fuori90(Estratto(es,5,3) + 26)
nn3(2) = Fuori90(Estratto(es,9,2) * 06)
ImpostaGiocata 3,nn3,ruote,poste,klp,2
nn4(1) = Fuori90(Estratto(es,5,3) + 01)
nn4(2) = Fuori90(Estratto(es,8,1) + 85)
ImpostaGiocata 4,nn4,ruote,poste,klp,2
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
'If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto(,False)
End Sub