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
    sabato 28 febbraio 2026
    Bari
    63
    83
    51
    27
    84
    Cagliari
    70
    37
    29
    42
    28
    Firenze
    73
    68
    88
    85
    75
    Genova
    24
    59
    63
    57
    37
    Milano
    43
    26
    23
    55
    89
    Napoli
    11
    70
    34
    74
    05
    Palermo
    80
    11
    55
    50
    68
    Roma
    44
    50
    86
    75
    01
    Torino
    78
    32
    90
    16
    09
    Venezia
    04
    66
    13
    46
    25
    Nazionale
    52
    24
    34
    12
    60
    Estrazione Simbolotto
    Cagliari
    44
    42
    04
    41
    20
Indietro
Alto