script per schedina 10 e lotto serale

[alexvisco]

Salve
Qualcuno ha qualche buon script per giocare una schedina al 10 e lotto serale con 7 numeri? Grazie

 

[Marcorun]

Ciao...ti metto quello che ho messo qualche post precedente a cui avevo chiesto una modesta modifica e che nessuno si è abbassato a farla!

Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num
Call ImpostaArchivio10ELotto(1)
ini = EstrazioneFin - 50
   fin = EstrazioneFin
   For es = ini To fin
   AvanzamentoElab ini,fin,es
Messaggio DataEstrazioneDL(es)
p1 = EstrattoDL(es,4)
p2 = EstrattoDL(es,5)
p3 = EstrattoDL(es,7)
p4 = EstrattoDL(es,8)
p5 = EstrattoDL(es,10)
p6 = EstrattoDL(es,11)
p7 = EstrattoDL(es,15)

Primo_num = Fuori90(p1)
Secondo_num = Fuori90(p2)
Terzo_num = Fuori90(p3)
Quarto_num = Fuori90(p4)
Quinto_num = Fuori90(p5)
sesto_num = Fuori90(p6)
Settimo_num = Fuori90(p7)

ReDim aNumeri(10)
aNumeri(1) = Primo_num
aNumeri(2) = Secondo_num
aNumeri(3) = Terzo_num
aNumeri(4) = Quarto_num
aNumeri(5) = Quinto_num
aNumeri(6) = sesto_num
aNumeri(7) = Settimo_num

Call ImpostaGiocataDL(1,aNumeri,1,50,4)
Scrivi "---------------------------------------------------------------------------------------------------------------------------------------",,,,1
Call GiocaDL(es)
Next
ScriviResocontoDL
Call ScriviDistribuzioneCasiInCorso(False)
End Sub