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
    giovedì 20 febbraio 2025
    Bari
    40
    17
    10
    33
    32
    Cagliari
    07
    10
    01
    52
    17
    Firenze
    60
    80
    86
    48
    19
    Genova
    05
    60
    61
    52
    41
    Milano
    59
    30
    58
    78
    34
    Napoli
    62
    54
    33
    29
    31
    Palermo
    46
    37
    19
    05
    67
    Roma
    59
    51
    05
    47
    74
    Torino
    74
    32
    52
    21
    18
    Venezia
    26
    75
    54
    15
    19
    Nazionale
    51
    43
    48
    40
    59
    Estrazione Simbolotto
    Cagliari
    44
    15
    12
    31
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto