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
    giovedì 23 luglio 2026
    Bari
    76
    59
    64
    45
    15
    Cagliari
    58
    75
    33
    44
    42
    Firenze
    84
    04
    10
    15
    82
    Genova
    89
    81
    74
    02
    65
    Milano
    17
    48
    04
    07
    75
    Napoli
    31
    54
    18
    26
    33
    Palermo
    30
    57
    78
    06
    29
    Roma
    85
    75
    08
    09
    62
    Torino
    40
    18
    13
    66
    73
    Venezia
    13
    78
    59
    23
    04
    Nazionale
    34
    59
    37
    27
    86
    Estrazione Simbolotto
    Nazionale
    41
    05
    38
    30
    14
Indietro
Alto