ciao Dj io guardo molti video in rete, per passatempo
poi provo a fare dei listati , a questo come aggiungo i frequenti dell'ambata?
Sub main()
Dim ruote(10)
Dim ruota(1)
Dim numeri1(3)
Dim numeri2(3)
Dim poste(2)
Dim posta(3)
poste(1)=1
poste(2)=1
posta(2)=0.5
posta(3)=0.5
ruote(1)=2
ruote(2)=12
ruota(1)=11
For n=10000 To EstrazioneFin
If IndiceMensile(n)=2 Then
a=Estratto(n,8,2)
numeri1(1)=Fuori90(a+48)
numeri1(2)=Vert(numeri1(1))
ImpostaGiocata 1,numeri1,ruote,poste,12,0
ImpostaGiocata 2,numeri1,ruota,posta,12,0
Gioca n
End If
Next
'ScriviResoconto
End Sub
grazie!!!!!!