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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 25 marzo 2025
    Bari
    30
    13
    36
    89
    71
    Cagliari
    75
    69
    53
    81
    01
    Firenze
    14
    19
    89
    40
    54
    Genova
    50
    67
    23
    04
    89
    Milano
    49
    38
    72
    07
    28
    Napoli
    82
    31
    77
    43
    25
    Palermo
    07
    49
    48
    18
    76
    Roma
    05
    42
    53
    22
    09
    Torino
    73
    58
    10
    90
    16
    Venezia
    03
    59
    24
    11
    74
    Nazionale
    30
    39
    05
    01
    38
    Estrazione Simbolotto
    Firenze
    07
    01
    11
    08
    09

Ultimi Messaggi

Indietro
Alto