vinci
Super Member >GOLD<
Quartina per ambo e terno su VENEZIA e TUTTE
Colpi di gioco 13
Calcolo ultima estrazione del mese
1° NAPOLI
VERTIBILE 1° NAPOLI
5° NAPOLI
VERTIBILE 5° NAPOLI
24 casi esaminati
23 positivi
'Quartina per ambo e terno su VENEZIA e TUTTE
'Colpi di gioco 13
'Calcolo ultima estrazione del mese
'1° NAPOLI
'VERTIBILE 1° NAPOLI
'5° NAPOLI
'VERTIBILE 5° NAPOLI
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim ruot(1)
Dim posta(5)
Dim post(5)
posta(2) = 0.70
posta(3) = 0.30
k = 13
y = 0
For n = 9892 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
Scrivi String(106,"-")
ColoreTesto 2
Scrivi DataEstrazione(n,6) & " " & SiglaRuota(6) & " " & StringaEstratti(n,6) & " ",1
s1 = Estratto(n,6,1)
s2 = Vert(s1)
s3 = Estratto(n,6,5)
s4 = Vert(s3)
ruote(1) = 10
ruote(2) = 11
numeri1(1) = s1
numeri1(2) = s2
numeri1(3) = s3
numeri1(4) = s4
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub
Colpi di gioco 13
Calcolo ultima estrazione del mese
1° NAPOLI
VERTIBILE 1° NAPOLI
5° NAPOLI
VERTIBILE 5° NAPOLI
24 casi esaminati
23 positivi
'Quartina per ambo e terno su VENEZIA e TUTTE
'Colpi di gioco 13
'Calcolo ultima estrazione del mese
'1° NAPOLI
'VERTIBILE 1° NAPOLI
'5° NAPOLI
'VERTIBILE 5° NAPOLI
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim ruot(1)
Dim posta(5)
Dim post(5)
posta(2) = 0.70
posta(3) = 0.30
k = 13
y = 0
For n = 9892 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
Scrivi String(106,"-")
ColoreTesto 2
Scrivi DataEstrazione(n,6) & " " & SiglaRuota(6) & " " & StringaEstratti(n,6) & " ",1
s1 = Estratto(n,6,1)
s2 = Vert(s1)
s3 = Estratto(n,6,5)
s4 = Vert(s3)
ruote(1) = 10
ruote(2) = 11
numeri1(1) = s1
numeri1(2) = s2
numeri1(3) = s3
numeri1(4) = s4
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub