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
    martedì 03 febbraio 2026
    Bari
    26
    30
    24
    71
    38
    Cagliari
    07
    71
    77
    64
    16
    Firenze
    15
    23
    49
    50
    66
    Genova
    65
    85
    01
    03
    68
    Milano
    79
    21
    03
    43
    54
    Napoli
    65
    72
    89
    76
    43
    Palermo
    20
    50
    26
    72
    77
    Roma
    75
    76
    31
    77
    51
    Torino
    52
    47
    11
    14
    08
    Venezia
    84
    41
    88
    13
    47
    Nazionale
    19
    03
    34
    61
    48
    Estrazione Simbolotto
    Cagliari
    05
    12
    13
    20
    38

Ultimi Messaggi

Indietro
Alto