Novità

1° Estrazione del Mese - 3 Ambi su Tutte

Giulio Pedrinelli

Super Member >PLATINUM<
Ciao a tutti;

Tre ambi su Tutte le ruote alla 1° Estrazione del mese, periodo ricerca 36 mesi.

Inzio: 02/03/2023
Fine: 28/02/2026

1° Ambo: 4° VE + 74 / 5° GE + 28
2° Ambo: 4° VE + 74 / 3° BA + 82
3° Ambo: 4° VE + 74 / 3° TO + 19

Periodo di gioco: 6 estrazioni.
Qui di seguito lo script.

Sub main()
Dim rt(1),pt(4),n1(7)

pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0

clp=6
rt(1)=11

ini=10206
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,10,4) + 74
b=Estratto (es,4,5) + 28
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,10,4) + 74
b=Estratto (es,1,3) + 82
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
ImpostaGiocata 2,n1,rt,pt,clp
a=Estratto (es,10,4) + 74
b=Estratto (es,9,3) + 19
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
ImpostaGiocata 3,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub
 
Ciao GIULIO ottimo come sempre _; nello script puoi inserire in distribuzioni esiti ruota per ruota ? grazie.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 20 ottobre 2026
    Bari
    54
    19
    90
    65
    23
    Cagliari
    07
    78
    44
    23
    64
    Firenze
    85
    52
    78
    37
    21
    Genova
    14
    88
    68
    18
    29
    Milano
    69
    16
    29
    53
    22
    Napoli
    01
    76
    64
    21
    31
    Palermo
    14
    18
    47
    37
    51
    Roma
    86
    88
    64
    26
    34
    Torino
    21
    64
    52
    62
    40
    Venezia
    29
    87
    64
    40
    50
    Nazionale
    03
    52
    85
    23
    42
    Estrazione Simbolotto
    25
    16
    13
    20
    43
Indietro
Alto