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ì 20 febbraio 2026
    Bari
    71
    19
    24
    07
    58
    Cagliari
    88
    71
    64
    85
    87
    Firenze
    72
    52
    40
    85
    57
    Genova
    50
    27
    14
    18
    26
    Milano
    31
    56
    50
    53
    58
    Napoli
    06
    07
    54
    03
    72
    Palermo
    67
    50
    70
    78
    57
    Roma
    19
    70
    29
    06
    61
    Torino
    38
    03
    06
    20
    19
    Venezia
    57
    52
    78
    66
    07
    Nazionale
    63
    53
    25
    24
    15
    Estrazione Simbolotto
    Cagliari
    06
    35
    21
    26
    34
Indietro
Alto