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ì 13 agosto 2026
    Bari
    70
    42
    10
    82
    72
    Cagliari
    47
    88
    48
    24
    78
    Firenze
    45
    26
    08
    35
    65
    Genova
    43
    66
    33
    20
    06
    Milano
    24
    48
    01
    50
    58
    Napoli
    84
    83
    19
    14
    72
    Palermo
    80
    11
    28
    60
    40
    Roma
    73
    55
    34
    58
    37
    Torino
    49
    46
    73
    45
    01
    Venezia
    32
    28
    11
    21
    84
    Nazionale
    31
    63
    28
    82
    32
    Estrazione Simbolotto
    Nazionale
    43
    16
    05
    08
    13

Ultimi Messaggi

Indietro
Alto