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
    sabato 07 febbraio 2026
    Bari
    05
    25
    19
    18
    22
    Cagliari
    42
    65
    05
    32
    14
    Firenze
    59
    08
    45
    36
    25
    Genova
    62
    52
    73
    01
    05
    Milano
    35
    31
    33
    83
    22
    Napoli
    07
    13
    67
    37
    27
    Palermo
    64
    37
    12
    89
    60
    Roma
    87
    66
    22
    16
    67
    Torino
    15
    66
    30
    04
    47
    Venezia
    30
    37
    72
    66
    38
    Nazionale
    44
    32
    26
    01
    77
    Estrazione Simbolotto
    Cagliari
    39
    29
    26
    20
    25
Indietro
Alto