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 04 aprile 2026
    Bari
    81
    21
    69
    24
    65
    Cagliari
    40
    01
    30
    38
    25
    Firenze
    18
    84
    24
    58
    63
    Genova
    86
    64
    56
    89
    60
    Milano
    38
    07
    06
    50
    25
    Napoli
    72
    16
    90
    85
    74
    Palermo
    23
    13
    20
    73
    14
    Roma
    24
    52
    22
    01
    78
    Torino
    16
    80
    35
    84
    22
    Venezia
    36
    83
    09
    89
    51
    Nazionale
    03
    67
    45
    71
    86
    Estrazione Simbolotto
    Genova
    34
    36
    17
    40
    32

Ultimi Messaggi

Indietro
Alto