Novità

CAFIGE in 13 mesi 17 ambi e 2 terni (in quartina)

Ciao a tutti;

Questo mio metodo mette in gioco su Cagliari, Firenze e Genova una quartina per ambo e terno, periodo di gioco 9 estrazioni, alla 1° estrazione.

Inizio Ricerca: 03/09/2024
Fine Ricerca: 27/09/2025

1° N. quartina: 2° GE + 5
2° N. quartina: 5° CA + 85
3° N. quartina: 4° NA + 7
4° N. quartina: 3° TO + 29

Lo script è impostato per interrompere la giocata al 1° esito vincente, anche se potrebbero esserci altre uscite di ambo e/o terno dopo.
Entro la 5° estrazione il 76,9% ed il 23,1% dalla 6° estrazione in poi.

Qui di seguito lo script.

Sub main()
Dim rt(3),pt(4),n1(7)

pt(1)=0
pt(2)=1
pt(3)=1
pt(4)=0

clp=9
rt(1)=2
rt(2)=3
rt(3)=4


ini=10502
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,4,2) + 5
b=Estratto (es,2,5) + 85
c=Estratto (es,6,4) + 7
d=Estratto (es,9,3) + 29
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp,2

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub
ottimo mettodo
 
SEMPLICEMENTE ESPLOSIVO




magnet.gif
 
Ciao Giulio ma questo script è tuo sulla prima pagina.

Sub Main()
Dim rt(2),rt1(2),pt(4),n1(7)

pt(1) = 1
pt(2) = 2
pt(3) = 0.5
pt(4) = 0.5

clp = 13
rt(1) = 5
rt(2) = 6
rt1(1) = 11
rt1(2) = 12




ini = 10541
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 13 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,2,2) + 45
b = Estratto(es,8,2) + 30
c = Estratto(es,5,3) + 45
d = Estratto(es,6,1) + 7
n1(1) = Fuori90(a + 0)
n1(2) = Fuori90(b + 0)
n1(3) = Fuori90(c + 0)
n1(4) = Fuori90(d + 0)
ImpostaGiocata 1,n1,rt,pt,clp
a = Estratto(es,3,1)
b = Estratto(es,7,1)
c = Estratto(es,1,4)
d = Estratto(es,7,2)
E = Estratto(es,8,5)
F = Estratto(es,7,1)
G = Estratto(es,3,5)
H = Estratto(es,7,5)


n1(1) = Fuori90(A + B + 70)
n1(2) = Fuori90(C + D + 60)
n1(3) = Fuori90(C + E + 56)
n1(4) = Fuori90(G + H + 78)


ImpostaGiocata 2,n1,rt,pt,clp


Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto

End Sub



*****************

ma e per milano e napoli non CA-FI-GE ho preso un granchio ?
 
Ciao Giulio ma questo script è tuo sulla prima pagina.

Sub Main()
Dim rt(2),rt1(2),pt(4),n1(7)

pt(1) = 1
pt(2) = 2
pt(3) = 0.5
pt(4) = 0.5

clp = 13
rt(1) = 5
rt(2) = 6
rt1(1) = 11
rt1(2) = 12




ini = 10541
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 13 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,2,2) + 45
b = Estratto(es,8,2) + 30
c = Estratto(es,5,3) + 45
d = Estratto(es,6,1) + 7
n1(1) = Fuori90(a + 0)
n1(2) = Fuori90(b + 0)
n1(3) = Fuori90(c + 0)
n1(4) = Fuori90(d + 0)
ImpostaGiocata 1,n1,rt,pt,clp
a = Estratto(es,3,1)
b = Estratto(es,7,1)
c = Estratto(es,1,4)
d = Estratto(es,7,2)
E = Estratto(es,8,5)
F = Estratto(es,7,1)
G = Estratto(es,3,5)
H = Estratto(es,7,5)


n1(1) = Fuori90(A + B + 70)
n1(2) = Fuori90(C + D + 60)
n1(3) = Fuori90(C + E + 56)
n1(4) = Fuori90(G + H + 78)


ImpostaGiocata 2,n1,rt,pt,clp


Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto

End Sub



*****************

ma e per milano e napoli non CA-FI-GE ho preso un granchio ?
USCITO SECCO 70-79 MA A BARI IO LO AVEVO SU FIRENZE
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 30 gennaio 2026
    Bari
    52
    28
    46
    44
    56
    Cagliari
    61
    16
    37
    31
    49
    Firenze
    22
    42
    53
    38
    58
    Genova
    77
    51
    43
    54
    60
    Milano
    08
    74
    79
    82
    33
    Napoli
    52
    74
    25
    71
    70
    Palermo
    07
    70
    69
    34
    62
    Roma
    67
    59
    29
    22
    77
    Torino
    80
    06
    73
    69
    56
    Venezia
    49
    47
    12
    25
    66
    Nazionale
    54
    16
    59
    85
    68
    Estrazione Simbolotto
    Bari
    09
    35
    13
    32
    33

Ultimi Messaggi

Indietro
Alto