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
    giovedì 25 giugno 2026
    Bari
    18
    55
    23
    57
    84
    Cagliari
    07
    82
    45
    52
    14
    Firenze
    84
    78
    39
    33
    59
    Genova
    42
    24
    73
    17
    38
    Milano
    51
    69
    38
    54
    23
    Napoli
    25
    49
    75
    85
    13
    Palermo
    05
    37
    74
    28
    04
    Roma
    29
    64
    63
    85
    75
    Torino
    57
    23
    70
    21
    68
    Venezia
    59
    11
    55
    60
    14
    Nazionale
    14
    07
    12
    72
    41
    Estrazione Simbolotto
    Napoli
    42
    29
    39
    14
    44
Indietro
Alto