Per chi piace questo tipo di gioco

[avio]

terni su ruota per 10 estrazioni

'Option Explicit
Sub Main
Dim k(3),posta(3),ruota(1)
posta(3) = 1
kk = 10
est = 3579
fine = EstrazioneFin-kk
For se = est To fine
If IndiceMensile(se) = 1 Then
a = Estratto(se,1,1)
k(1) = Fuori90(a + 34)
k(2) = Fuori90(a + 48)
k(3) = Fuori90(a + 66)
ruota(1) = 1
ImpostaGiocata 1,k,ruota,posta,kk,2
k(1) = Fuori90(a + 54)
k(2) = Fuori90(a + 71)
k(3) = Fuori90(a + 81)
ruota(1) = 1
ImpostaGiocata 2,k,ruota,posta,kk,2
k(1) = Fuori90(a + 32)
k(2) = Fuori90(a + 56)
k(3) = Fuori90(a + 77)
ruota(1) = 6
ImpostaGiocata 3,k,ruota,posta,kk,2
k(1) = Fuori90(a + 40)
k(2) = Fuori90(a + 42)
k(3) = Fuori90(a + 77)
ruota(1) = 6
ImpostaGiocata 4,k,ruota,posta,kk,2
Gioca se,True
End If
Next'se
ScriviResoconto
End Sub





terni per tutte una sola estrazione

'Option Explicit
Sub Main
Dim k(3),posta(3),ruota(1)
posta(3) = 1
kk = 1
est = 3579
fine = EstrazioneFin-kk
For se = est To fine
If IndiceMensile(se) = 4 Then
a = Estratto(se,1,1)
k(1) = Fuori90(a + 43)
k(2) = Fuori90(a + 44)
k(3) = Fuori90(a + 72)
ruota(1) = 11
ImpostaGiocata 1,k,ruota,posta,kk,2
a = Estratto(se,2,4)
k(1) = Fuori90(a + 8)
k(2) = Fuori90(a + 26)
k(3) = Fuori90(a + 37)
ruota(1) = 11
ImpostaGiocata 2,k,ruota,posta,kk,2
a = Estratto(se,2,5)
k(1) = Fuori90(a + 40)
k(2) = Fuori90(a + 41)
k(3) = Fuori90(a + 42)
ruota(1) = 11
ImpostaGiocata 3,k,ruota,posta,kk,2
a = Estratto(se,4,4)
k(1) = Fuori90(a + 16)
k(2) = Fuori90(a + 55)
k(3) = Fuori90(a + 68)
ruota(1) = 11
ImpostaGiocata 4,k,ruota,posta,kk,2
Gioca se,True
End If
Next'se
ScriviResoconto
End Sub


PREMESSA: IO NON GIOCO A LOTTO

DOMANDA:

Conviene giocare anche se l'attesa e lunga per la vincita (inizio nel lontano 1939),(quella che ho inserito), io penso di no

Vedo su vari forum vari studi su frequenze,ritardi,spie,ecc ecc, conviene studiarli e perdegli del tempo (personalmente penso di no,non portano a niente di concreto)

secondo la vostra esperienza su cosa conviene studiare

 

[Alien.]

ciao il primo listato mi da errore qui: kk = 10 variabile non definita,grazie.

 

[avio]

ciao

sulla prima riga elimina 'Option Explicit