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ì 06 febbraio 2026
    Bari
    09
    55
    48
    87
    35
    Cagliari
    08
    23
    16
    43
    34
    Firenze
    01
    26
    82
    69
    84
    Genova
    77
    04
    26
    23
    83
    Milano
    89
    78
    30
    19
    76
    Napoli
    78
    55
    72
    18
    54
    Palermo
    23
    59
    87
    44
    18
    Roma
    41
    18
    67
    02
    14
    Torino
    09
    75
    73
    59
    78
    Venezia
    58
    33
    67
    62
    46
    Nazionale
    57
    69
    68
    58
    37
    Estrazione Simbolotto
    Cagliari
    01
    21
    05
    44
    25
Indietro
Alto