Novità

Ultima del mese 2 ambate su Bari

Non è il massimo , si possono giocare solo le ambate, ma chi vuole può osare di più.
Spero Ti vada bene e Ti faccia piacere..
Sub Main
'Metodo 2 Ambate Plus di PORTAFORTUNA
Dim num(6),Ru(12),nu(2),R(5)
Dim poste(5),ini,fin,posta(1)
posta(1) = 1
poste(2) = 1
poste(3) = 0.50
ini = EstrazioneFin - 500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,1,1) +59)
b = Estratto(es,1,4)
c = Estratto(es,10,5)
d = 90 - a
If b > c Then
e = b - c
End If
If b < c Then
e = c - b
End If
f = Fuori90(Vert(a))
g = Fuori90(Vert(e))
h = 90 - (e)
'---
nu(1) = a
nu(2) = e
'---
num(1) = a
num(2) = e
num(3) = d
num(4) = h
num(5) = f
num(6) = g
EliminaRipetuti num
'---
R(1) = 1':R(2) = 5
'---
'Ru(1) = 1:Ru(2) = 2
Ru(1) = 3: Ru(2) = 7:Ru(3) = 10:Ru(4) = 12
'---
ImpostaGiocata 1,nu,R,posta,17
ImpostaGiocata 2,num,Ru,poste,17
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 dicembre 2025
    Bari
    57
    90
    22
    43
    26
    Cagliari
    62
    22
    02
    11
    18
    Firenze
    18
    56
    01
    68
    09
    Genova
    25
    79
    48
    88
    17
    Milano
    49
    10
    56
    83
    01
    Napoli
    09
    63
    67
    07
    50
    Palermo
    10
    82
    42
    78
    09
    Roma
    29
    12
    73
    74
    62
    Torino
    32
    09
    43
    06
    38
    Venezia
    45
    63
    67
    58
    56
    Nazionale
    43
    51
    74
    32
    01
    Estrazione Simbolotto
    Venezia
    44
    20
    27
    40
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto