Novità

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

Giulio Pedrinelli

Super Member >PLATINUM<
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
 
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
bravo ottimo metodo
 
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
Ciao Giulio, ho provato a far girare su spaziometria questo tuo script ma il programma mi risponde che c'è un errore di run time 500: riga 9 non definita "clp=9"....come posso risolverlo? grazie Enrico
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 ottobre 2025
    Bari
    03
    66
    37
    18
    61
    Cagliari
    26
    22
    85
    20
    43
    Firenze
    29
    61
    85
    67
    75
    Genova
    40
    63
    74
    19
    78
    Milano
    43
    80
    34
    54
    70
    Napoli
    18
    78
    89
    15
    27
    Palermo
    38
    84
    88
    06
    62
    Roma
    60
    14
    40
    84
    43
    Torino
    51
    62
    58
    65
    52
    Venezia
    07
    61
    48
    63
    87
    Nazionale
    60
    36
    11
    28
    31
    Estrazione Simbolotto
    29
    02
    24
    03
    37
Indietro
Alto