Novità

Ultima del mese 2 ambate su Bari

Pandit

Junior Member
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
    sabato 27 luglio 2024
    Bari
    68
    18
    05
    80
    90
    Cagliari
    68
    80
    63
    13
    55
    Firenze
    57
    10
    34
    04
    02
    Genova
    17
    08
    51
    71
    76
    Milano
    73
    68
    62
    47
    53
    Napoli
    32
    76
    19
    08
    44
    Palermo
    71
    26
    48
    56
    12
    Roma
    16
    68
    12
    32
    88
    Torino
    19
    66
    61
    60
    52
    Venezia
    59
    39
    14
    42
    53
    Nazionale
    30
    41
    80
    50
    83
    Estrazione Simbolotto
    Nazionale
    02
    44
    22
    20
    30

Ultimi Messaggi

Alto