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
    sabato 22 marzo 2025
    Bari
    55
    37
    89
    48
    51
    Cagliari
    08
    34
    32
    23
    26
    Firenze
    03
    64
    74
    33
    90
    Genova
    03
    59
    77
    64
    70
    Milano
    52
    45
    41
    27
    29
    Napoli
    41
    09
    17
    49
    70
    Palermo
    68
    82
    65
    41
    44
    Roma
    67
    08
    87
    70
    79
    Torino
    80
    12
    32
    59
    44
    Venezia
    22
    75
    06
    83
    15
    Nazionale
    12
    84
    44
    38
    34
    Estrazione Simbolotto
    Firenze
    18
    27
    17
    15
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto