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 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
Indietro
Alto