Novità

Metodo su Bari e Cagliari

Così hai il risultato di ogni ruota, ma ovviamente spesa e guadagno cambiano..
Option Explicit
Sub Main
'Metodo da un'idea di PORTAFORTUNA by Pandit
Dim a,a1,b,b1,c,c1,d,e,g,h
Dim Ini,Fin,Es,Ruo(5),K,R2,R1
Dim Nu(10),Num(6),posta(3)
Dim clp,Poste(1),f,i,R(12),Ru(12)
Poste(1) = 1
posta(2) = 1
R1 = CInt(InputBox(" Inserisci il numero della prima ruota",,1))
R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",,2))
'P***
Ini = EstrazioneFin - 300
Fin = EstrazioneFin
Scrivi "Metodo Data di nascita",1,,,1,3,,1
For Es = Ini To Fin
'If IsUltimaDelMese(Es) Then
If IndiceMensile(Es) = 1 Then
'-----------------------------------
K = K + 1
a = Decina(Estratto(Es,R1,1))
a1 = Cadenza(Estratto(Es,R1,1))
If a > a1 Then
c = a - a1
End If
If a < a1 Then
c = a1 - a
End If
'P***
b = Decina(Estratto(Es,R2,1))
b1 = Cadenza(Estratto(Es,R2,1))
If b > b1 Then
c1 = b - b1
End If
If b < b1 Then
c1 = b1 - b
End If
'P***
d = Fuori90(c & c1)
e = Fuori90(Vert(d))
g = 90 - d
h = 90 - e
'P***
For f = 1 To UBound(Num)
If Cadenza(Num(f)) = 9 Then Num(f) = Vert(Num(f) - 1)
Next
'P***
For i = 1 To UBound(Num)
If Gemello(Num(i)) Then Num(i) = Vert(Num(i) - 1)
Next
'P***
Ruo(1) = R1
Ruo(2) = R2
'P***
'Ru(1) = R1
'Ru(2) = R2
Ru(1) = 1: Ru(2) = 2:Ru(3) = 3:Ru(4) = 4:Ru(5) = 5:Ru(6) = 6:Ru(7) = 7:Ru(8) = 8:Ru(9) = 9:Ru(10) =10:Ru(12) =12
'*** Numeri ***
Num(1) = d
Num(2) = e
Num(3) = g
Num(4) = h
EliminaRipetuti Num
'P***
Nu(1) = d
'Nu(2) = e
'P***
Scrivi DataEstrazione(Es) & "Primo Numero in Gioco " & d & " Vertibile " & e,1
'P***
ImpostaGiocata 1,Nu,Ruo,Poste,7',1
ImpostaGiocata 2,Num,Ru,posta,17',1
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
 
Buongiorno dall' estrazione del 23 uscito 61 a Cagliari, restano 11,54,22,42,55..da alcune mie previsioni ho 11-88 e 22-65 a Bari per chi ha convergenze gradirei un riscontro
 
Se Ti può essere utile su Bari ho il 20 che mi manca all'appello..
Veramente anche su Milano e Napoli , dovrebbe uscire entro 6/7 colpi..
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 novembre 2026
    Bari
    38
    30
    06
    56
    57
    Cagliari
    71
    18
    42
    67
    54
    Firenze
    89
    57
    21
    25
    62
    Genova
    24
    47
    88
    65
    70
    Milano
    13
    63
    10
    24
    05
    Napoli
    55
    69
    35
    36
    90
    Palermo
    71
    14
    27
    34
    80
    Roma
    35
    01
    54
    36
    51
    Torino
    48
    31
    21
    19
    87
    Venezia
    32
    85
    59
    40
    25
    Nazionale
    36
    01
    32
    18
    05
    Estrazione Simbolotto
    Torino
    06
    33
    14
    28
    07

Ultimi Messaggi

Indietro
Alto