Ambo e Terno in quartina per Tutte per 7 colpi dalla 1°
spero vi piaccia
Vorrei capire perchè nel copiarlo fa sempre un errore.Chi cura il sito dovrebbe preoccuparsi, se lo copiate vi darà un errore che non capisco.
Forse cosi modificato va meglio
Sub main()
Dim ruota (1)
Dim numeri(10)
Dim posta(5)
posta(2)=1
posta(3)=1
posta(4)=0
posta(5)=0
ruota(1)=11
For n=7196 To EstrazioneFin
If IndiceMensile=1 Then
Messaggio DataEstrazione
numeri(1)=Fuori90((Estratto(n,3,5)*2)+Estratto(n,6,5))
numeri(4)=Fuori90((Estratto(n,6,2)+90)-Estratto(n,3,5))
numeri(5)=Fuori90((Estratto(n,6,5)+90)-Estratto(n,8,5))
numeri(6)=Fuori90(Estratto(n,7,5)+77)
ImpostaGiocata 1,numeri,ruota,posta,12
Gioca n
End If
Next
ScriviResoconto
End Sub
spero vi piaccia
Vorrei capire perchè nel copiarlo fa sempre un errore.Chi cura il sito dovrebbe preoccuparsi, se lo copiate vi darà un errore che non capisco.
Forse cosi modificato va meglio
Ultima modifica: