Novità

Pronostico sulla ruota di Torino (da condizione ottimale)

Procedimento
Nella medesima estrazione su entrambe le ruote di Bari e Cagliari deve sortire almeno un elemento della terzina consecutiva 16-17-18

La previsione verrà giocata sulla ruota di Torino per un tempo massimo di nove colpi di gioco e sarà così composta:

Ambate: 51-76
1°abbinamento per ambo: il numero della decina del 4°estratto di Bari dev'essere adattato come unità alla decina 3
2°abbinamento per ambo: il numero della decina del 1°estratto di Venezia dev'essere adattato come unità alla decina 3
3°abbinamento per ambo: il numero della decina del 4°estratto di Cagliari dev'essere adattato come unità alla decina 8


Esempio pratico:
nell'estrazione del 07/08/18 su entrambe le ruote di Bari e Cagliari è presente almeno un numero della terzina spia (16 Ba-18 Ca) quindi si può ricavare la previsione.

Ambate: 51-76
1°abbinamento per ambo: il numero della decina del 4°estratto di Bari (50) dev'essere adattata come unità alla decina 3 (35)
2°abbinamento per ambo: il numero della decina del 1°estratto di Venezia (25) dev'essere adattata come unità alla decina 3 (32)
3°abbinamento per ambo: il numero della decina del 4°estratto di Cagliari (66) dev'essere adattata come unità alla decina 8 (86)

Vi posto i casi dall'anno 2015:

02/04/15: (51-76) (31-34-85)
2°c 76 To

31/10/15: (51-76) (38-82)
5°c 51 To

04/06/16: (51-76) (31-38-83)
1°c 51-76 To

23/06/16: (51-76) (36-37-81)
1°c 51-37 To

30/07/16: (51-76) (31-32-81)
3°c 51-31 To

13/09/16: (51-76) (34-39-83)
2°c 76-34 / 76-83 To

27/10/16: (51-76) (38-37-81)
2°c 76-81 To

01/04/17: (51-76) (37-31-89)
3°c 51 To

27/05/17: (51-76) (31-36-81)
2°c 51 To

27/07/17: (51-76) (35-34-81)
2°c 76-81 To

10/08/17: (51-76) (32-38-84)
2°c 76-84 To

02/09/17: (51-76) (36-37-81)
6°c 76-37 To

17/10/17: (51-76) (34-38-82)
5°c 76-34 To

14/12/17: (51-76) (33-82)
5°c 76 To

17/02/18: (51-76) (35-34-84)
8°c 76-35 To

27/03/18: (51-76) (31-34-81)
7°c 51-31 To

05/05/18: (51-76) (31-36-81)
7°c 51-36 To

Segnatevi negli appunti quest'altro mio metodo ed attendiamo la prossima condizione utile :)
Chi è capace di fare uno script ??? Grazie
 
Chi è capace di fare uno script ??? Grazie

Sub Main()
'https://forum.lottoced.com/threads/...torino-da-condizione-ottimale.2126339/page-18
Scrivi " PRONOSTICO OTTIMALE SU TORINO di DamBu82",1,,2,6,5,,1
Dim rt(2),Nn(6),E1,E2,P5,P6
Dim Cinquina1(5),Ambata1(2),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
Dim PostaC(5),PostaA(2),PostaAbt(2)
Dim Num(5),Ba4,Ve1,Ca4
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",1500))
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es
R1 = 1 : R2 = 2
For P1 = 1 To 5
For P2 = 1 To 5
Nn(1) = Estratto(es,R1,P1) ': Nn(2) = Estratto(es,R1,P2) : Nn(3) = Estratto(es,R1,P3)
Nn(4) = Estratto(es,R2,P2) ': Nn(5) = Estratto(es,R2,P2) : Nn(6) = Estratto(es,R2,P3)'31-9
'-----------------------------------------------------------------------------------------------------------------------------------------
If Nn(1) = 16 Or Nn(1) = 17 Or Nn(1) = 18 Then 'Or Nn(2) = 16 Or Nn(2) = 17 Or Nn(2) = 18 Or Nn(3) = 16 Or Nn(3) = 17 Or Nn(3) = 18 Then
If Nn(4) = 16 Or Nn(4) = 17 Or Nn(4) = 18 Then 'Or Nn(5) = 16 Or Nn(5) = 17 Or Nn(5) = 18 Or Nn(6) = 16 Or Nn(6) = 17 Or Nn(6) = 18 Then
'------------------------------------------------------------------------------------------------------------------------------------------
Num(1) = 51
Num(2) = 76
Ba4 = Estratto(es,BA_,4)
If Ba4 < 10 Then Ba4 = 90
Ve1 = Estratto(es,VE_,1)
If Ve1 < 10 Then Ve1 = 90
Ca4 = Estratto(es,CA_,4)
If Ca4 < 10 Then Ca4 = 90
Num(3) = 3 & Decina(Ba4) : Num(4) = 3 & Decina(Ve1) : Num(5) = 8 & Decina(Ca4)
rt(1) = 9
PostaAbt(1) = 2 PostaAbt(2) = 1
PostaA(2) = 1
PostaC(2) = 1 : PostaC(3) = 0.5 : PostaC(4) = 0.5 : PostaC(5) = 0.5
k = 9
Ambata1(1) = Num(1)
Ambata1(2) = Num(2)
ImpostaGiocata 2,Ambata1,rt,PostaAbt,k,1
Ambo1(1) = Num(1)
Ambo1(2) = Num(3)
ImpostaGiocata 3,Ambo1,rt,PostaA,k,2
Ambo2(1) = Num(1)
Ambo2(2) = Num(4)
ImpostaGiocata 4,Ambo2,rt,PostaA,k,2
Ambo3(1) = Num(1)
Ambo3(2) = Num(5)
ImpostaGiocata 5,Ambo3,rt,PostaA,k,2
Ambo4(1) = Num(2)
Ambo4(2) = Num(3)
ImpostaGiocata 6,Ambo4,rt,PostaA,k,2
Ambo5(1) = Num(2)
Ambo5(2) = Num(4)
ImpostaGiocata 7,Ambo5,rt,PostaA,k,2
Ambo6(1) = Num(2)
Ambo6(2) = Num(5)
ImpostaGiocata 8,Ambo6,rt,PostaA,k,2
Cinquina1(1) = Num(1)
Cinquina1(2) = Num(2)
Cinquina1(3) = Num(3)
Cinquina1(4) = Num(4)
Cinquina1(5) = Num(5)
ImpostaGiocata 9,Cinquina1,rt,PostaC,k,2
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = Nn(1) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = Nn(4) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(78,"-"),1
ColoreTesto 1
Scrivi "Numeri Ricercati: " & Format2(Nn(1)) & " - " & Format2(Nn(4)) & S2,1,0
Scrivi
ColoreTesto 0
Scrivi String(78,"-"),1
Scrivi
Gioca es,True,,1
End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub


Saluti, Gio.
 
Sub Main()
'https://forum.lottoced.com/threads/...torino-da-condizione-ottimale.2126339/page-18
Scrivi " PRONOSTICO OTTIMALE SU TORINO di DamBu82",1,,2,6,5,,1
Dim rt(2),Nn(6),E1,E2,P5,P6
Dim Cinquina1(5),Ambata1(2),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
Dim PostaC(5),PostaA(2),PostaAbt(2)
Dim Num(5),Ba4,Ve1,Ca4
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",1500))
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es
R1 = 1 : R2 = 2
For P1 = 1 To 5
For P2 = 1 To 5
Nn(1) = Estratto(es,R1,P1) ': Nn(2) = Estratto(es,R1,P2) : Nn(3) = Estratto(es,R1,P3)
Nn(4) = Estratto(es,R2,P2) ': Nn(5) = Estratto(es,R2,P2) : Nn(6) = Estratto(es,R2,P3)'31-9
'-----------------------------------------------------------------------------------------------------------------------------------------
If Nn(1) = 16 Or Nn(1) = 17 Or Nn(1) = 18 Then 'Or Nn(2) = 16 Or Nn(2) = 17 Or Nn(2) = 18 Or Nn(3) = 16 Or Nn(3) = 17 Or Nn(3) = 18 Then
If Nn(4) = 16 Or Nn(4) = 17 Or Nn(4) = 18 Then 'Or Nn(5) = 16 Or Nn(5) = 17 Or Nn(5) = 18 Or Nn(6) = 16 Or Nn(6) = 17 Or Nn(6) = 18 Then
'------------------------------------------------------------------------------------------------------------------------------------------
Num(1) = 51
Num(2) = 76
Ba4 = Estratto(es,BA_,4)
If Ba4 < 10 Then Ba4 = 90
Ve1 = Estratto(es,VE_,1)
If Ve1 < 10 Then Ve1 = 90
Ca4 = Estratto(es,CA_,4)
If Ca4 < 10 Then Ca4 = 90
Num(3) = 3 & Decina(Ba4) : Num(4) = 3 & Decina(Ve1) : Num(5) = 8 & Decina(Ca4)
rt(1) = 9
PostaAbt(1) = 2 PostaAbt(2) = 1
PostaA(2) = 1
PostaC(2) = 1 : PostaC(3) = 0.5 : PostaC(4) = 0.5 : PostaC(5) = 0.5
k = 9
Ambata1(1) = Num(1)
Ambata1(2) = Num(2)
ImpostaGiocata 2,Ambata1,rt,PostaAbt,k,1
Ambo1(1) = Num(1)
Ambo1(2) = Num(3)
ImpostaGiocata 3,Ambo1,rt,PostaA,k,2
Ambo2(1) = Num(1)
Ambo2(2) = Num(4)
ImpostaGiocata 4,Ambo2,rt,PostaA,k,2
Ambo3(1) = Num(1)
Ambo3(2) = Num(5)
ImpostaGiocata 5,Ambo3,rt,PostaA,k,2
Ambo4(1) = Num(2)
Ambo4(2) = Num(3)
ImpostaGiocata 6,Ambo4,rt,PostaA,k,2
Ambo5(1) = Num(2)
Ambo5(2) = Num(4)
ImpostaGiocata 7,Ambo5,rt,PostaA,k,2
Ambo6(1) = Num(2)
Ambo6(2) = Num(5)
ImpostaGiocata 8,Ambo6,rt,PostaA,k,2
Cinquina1(1) = Num(1)
Cinquina1(2) = Num(2)
Cinquina1(3) = Num(3)
Cinquina1(4) = Num(4)
Cinquina1(5) = Num(5)
ImpostaGiocata 9,Cinquina1,rt,PostaC,k,2
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = Nn(1) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = Nn(4) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(78,"-"),1
ColoreTesto 1
Scrivi "Numeri Ricercati: " & Format2(Nn(1)) & " - " & Format2(Nn(4)) & S2,1,0
Scrivi
ColoreTesto 0
Scrivi String(78,"-"),1
Scrivi
Gioca es,True,,1
End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub


Saluti, Gio.
Grazie e Buona Domenica a Tutti :coffee:👋
 
mi dispiace non aver potuto seguirti ma 19 giorni fa avuto intervento a occhio dx e dopo un paio di giorni infezione all'occhio sx quindi niente pc e niente lotto e grande rammarico x me
(complimenti a chi ha vinto) quando ho visto i risultati vincenti dei tuoi metodi x tutta questa settimana non giocherò impossibilitata ancora a guidare ma poi quando si presenterà le condizioni per i tuoi metodi ti seguirò
 
mi dispiace non aver potuto seguirti ma 19 giorni fa avuto intervento a occhio dx e dopo un paio di giorni infezione all'occhio sx quindi niente pc e niente lotto e grande rammarico x me
(complimenti a chi ha vinto) quando ho visto i risultati vincenti dei tuoi metodi x tutta questa settimana non giocherò impossibilitata ancora a guidare ma poi quando si presenterà le condizioni per i tuoi metodi ti seguirò
Ciao Spike :)

Mi dispiace molto per i problemi che hai dovuto affrontare,pian piano si risolverà tutto!

Non preoccuparti,appena si ripresenteranno le condizioni vedrai che ti toglierai belle soddisfazioni ;)

Ora cerca di riprenderti al meglio 🤗
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 14 agosto 2026
    Bari
    74
    22
    73
    87
    14
    Cagliari
    86
    69
    70
    08
    71
    Firenze
    53
    31
    14
    06
    81
    Genova
    23
    84
    10
    63
    35
    Milano
    40
    64
    54
    33
    80
    Napoli
    10
    08
    35
    29
    83
    Palermo
    33
    72
    89
    14
    80
    Roma
    81
    23
    29
    31
    74
    Torino
    56
    84
    85
    75
    48
    Venezia
    29
    79
    54
    17
    62
    Nazionale
    22
    27
    11
    64
    15
    Estrazione Simbolotto
    Nazionale
    27
    34
    14
    40
    31
Indietro
Alto