R
Roby
Guest
scusa potresti eseguire questo script relativo ai tre ambi secchi di cagliari di 90spavento'
grazie ben8
Sub main()
Dim ruota(10)
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2)=1
ruota(1)=2
ruote(1)=11
For n=7094 To EstrazioneFin
If IndiceMensile=8 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+39)
numeri1(2)=Fuori90(Estratto(n,12,5)*77)
ImpostaGiocata 1,numeri1,ruota,posta,14,2
ImpostaGiocata 2,numeri1,ruote,posta,14,2
numeri1(1)=Fuori90(Estratto(n,1,1)+50)
numeri1(2)=Fuori90(Estratto(n,7,3)*37)
ImpostaGiocata 3,numeri1,ruota,posta,14,2
ImpostaGiocata 4,numeri1,ruote,posta,14,2
numeri1(1)=Fuori90(Estratto(n,1,1)+5)
numeri1(2)=Fuori90(Estratto(n,1,1)+12)
ImpostaGiocata 5,numeri1,ruota,posta,14,2
ImpostaGiocata 6,numeri1,ruote,posta,14,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,1,2
Gioca n
End If
Next
'ScriviResoconto 1 'facoltativo'
'ScriviResoconto 2 'facoltativo'
ScriviResoconto
End Sub
oliver05
grazie ben8
Sub main()
Dim ruota(10)
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2)=1
ruota(1)=2
ruote(1)=11
For n=7094 To EstrazioneFin
If IndiceMensile=8 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+39)
numeri1(2)=Fuori90(Estratto(n,12,5)*77)
ImpostaGiocata 1,numeri1,ruota,posta,14,2
ImpostaGiocata 2,numeri1,ruote,posta,14,2
numeri1(1)=Fuori90(Estratto(n,1,1)+50)
numeri1(2)=Fuori90(Estratto(n,7,3)*37)
ImpostaGiocata 3,numeri1,ruota,posta,14,2
ImpostaGiocata 4,numeri1,ruote,posta,14,2
numeri1(1)=Fuori90(Estratto(n,1,1)+5)
numeri1(2)=Fuori90(Estratto(n,1,1)+12)
ImpostaGiocata 5,numeri1,ruota,posta,14,2
ImpostaGiocata 6,numeri1,ruote,posta,14,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,1,2
Gioca n
End If
Next
'ScriviResoconto 1 'facoltativo'
'ScriviResoconto 2 'facoltativo'
ScriviResoconto
End Sub
oliver05