Novità

Terno secco alla Piemontese chi lo conosce?

Dopo qualche tentativo sono riuscitoa formare questo metodo, anche perchè in rete erano nascosti alcuni parametri quindi mi sono adattato.
Così come modificato non fa terni (come nel 2022) ma ambi quasi fissi ....
Il metodo parte trovando ambi distanza 45 in qualsiasi modo (ho provato isotopia e uniti ma i risultati erano scarsi) e procede con le somme: vi troverete in un'estrazione parecchi ambi distanza 45.
Quindi alla sortita della condizione fate queste somme sempre fuori 90:
2° Genova +3° Roma
1° Genova+4° Bari
4° Napoli+5° Firenze
Vedrete che la Nazionale e Torino sono le più gettonate, vi aggiungo anche una tabella testuale cos' da avere una visione più ampia ed ho notato che alcune figure di questi ambi danno esiti favorevoli (può essere uno spunto.....) ed altre no.

Sub Main()
Dim number(3)
Dim ruote(12),posta(2)
Dim es,r,r1,p,p1,p2,p3,a,b,c,d

posta(2) = 2
ruote(1) = 1 : ruote(2) = 2 : ruote(3) = 3 : ruote(4) = 4 : ruote(5) = 5
ruote(6) = 6 : ruote(7) = 7 : ruote(8) = 8 : ruote(9) = 9 : ruote(10) = 10
ruote(12) = 12

' Intestazione Tabella (Ricerca Libera)
Dim riga : riga = Array("","Data","Ruote","Ambi Dist. 45","Figure","Pronostico","Esito","Colpo")
InitTabella riga,RGB(80,80,80),,12,vbWhite

For es = 10783 To EstrazioneFin
Messaggio "Ricerca Libera: " & DataEstrazione(es)
For r = 1 To 10
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12

' Cicli posizioni libere sulla prima ruota
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)

' Cicli posizioni libere sulla seconda ruota
For p2 = 1 To 4
For p3 = p2 + 1 To 5
c = Estratto(es,r1,p2)
d = Estratto(es,r1,p3)

If Distanza(a,b) = 45 And Distanza(c,d) = 45 Then
' Calcolo Numeri
number(1) = Fuori90(Estratto(es,4,2) + Estratto(es,8,3))
number(2) = Fuori90(Estratto(es,4,1) + Estratto(es,1,4))
number(3) = Fuori90(Estratto(es,6,4) + Estratto(es,3,5))

' Verifica Esito
Dim nEsito,colpo,strEsito,estrattiEsito
nEsito = VerificaEsito(number,ruote,es + 1,2,12,,strEsito,colpo,estrattiEsito)

' Stringa Figure
Dim sFig
sFig = Figura(a) & "." & Figura(b) & " / " & Figura(c) & "." & Figura(d)

' Aggiunta dati alla tabella
Dim valori : valori = Array("",_
DataEstrazione(es),_
SiglaRuota(r) & "-" & SiglaRuota(r1),_
a & "." & b & " / " & c & "." & d,_
sFig,_
StringaNumeri(number),_
estrattiEsito,_
colpo)

AddRigaTabella valori

' Giocata
ImpostaGiocata 1,number,ruote,posta,12,2
Gioca es,True
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
CreaTabella
ScriviResoconto
End Sub
 
Ultima modifica:
Per esempio partendo dal lavoro e studio e fatica che ci hai messo a disposizione gratuito e andando a ritroso e se non ci sono state ancora estrazioni andate a segno. Quali numeri previsione ci sono al momento? Grazie
 
Ciao e grazie, ma la giocata della terzina ricavata è da giocare su tutte le ruote oppure dove c'è o ci sono gli ambi diametrali ?
Grazie
 
Se lanci lo script sono in fondo alla tabella
Quindi alla sortita della condizione fate queste somme sempre fuori 90:
2° Bari+3° Roma
1° Genova+4° Bari
4° Napoli+5° Firenze
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 aprile 2026
    Bari
    31
    34
    54
    63
    51
    Cagliari
    54
    15
    14
    25
    40
    Firenze
    75
    79
    42
    26
    19
    Genova
    02
    67
    09
    42
    41
    Milano
    34
    68
    73
    79
    03
    Napoli
    47
    26
    31
    23
    63
    Palermo
    74
    64
    03
    75
    63
    Roma
    82
    60
    28
    73
    11
    Torino
    27
    30
    51
    75
    05
    Venezia
    21
    65
    43
    15
    87
    Nazionale
    48
    09
    72
    88
    29
    Estrazione Simbolotto
    Genova
    45
    15
    22
    05
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto