Giulio Pedrinelli
Super Member >PLATINUM<
Ciao Raga, sto testando un metodo.
Questo è lo script per Spaziometria:
Sub Main()
'5 estrazione del mese
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
ruote(1) = 11
k = 5
y = 2
For n = 8165 To EstrazioneFin
If IndiceMensile
= 5 Then
ng = 0
numeri1(1) = Fuori90(Estratto(n,2,5) + 63)
numeri1(2) = Fuori90(Estratto(n,2,5) + 76)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,5) + 17)
numeri1(2) = Fuori90(Estratto(n,3,5) + 66)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,1) + 10)
numeri1(2) = Fuori90(Estratto(n,4,1) + 65)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,5,4) + 61)
numeri1(2) = Fuori90(Estratto(n,5,4) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + 53)
numeri1(2) = Fuori90(Estratto(n,6,1) + 69)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,8,2) + 54)
numeri1(2) = Fuori90(Estratto(n,8,2) + 69)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,2
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
Mi chiedevo, per inserire una progressione delle puntate?
Potrebbe andar bene:
1° - 1 euro
2° - 1 euro
3° - 1 euro
4° - 2 euro
5° - 2 euro.
Ora devo scappare, ciao.
Questo è lo script per Spaziometria:
Sub Main()
'5 estrazione del mese
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
ruote(1) = 11
k = 5
y = 2
For n = 8165 To EstrazioneFin
If IndiceMensile
ng = 0
numeri1(1) = Fuori90(Estratto(n,2,5) + 63)
numeri1(2) = Fuori90(Estratto(n,2,5) + 76)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,5) + 17)
numeri1(2) = Fuori90(Estratto(n,3,5) + 66)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,1) + 10)
numeri1(2) = Fuori90(Estratto(n,4,1) + 65)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,5,4) + 61)
numeri1(2) = Fuori90(Estratto(n,5,4) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + 53)
numeri1(2) = Fuori90(Estratto(n,6,1) + 69)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,8,2) + 54)
numeri1(2) = Fuori90(Estratto(n,8,2) + 69)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,2
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
Mi chiedevo, per inserire una progressione delle puntate?
Potrebbe andar bene:
1° - 1 euro
2° - 1 euro
3° - 1 euro
4° - 2 euro
5° - 2 euro.
Ora devo scappare, ciao.