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
    giovedì 29 gennaio 2026
    Bari
    52
    71
    81
    90
    43
    Cagliari
    75
    28
    02
    58
    15
    Firenze
    73
    57
    22
    69
    86
    Genova
    29
    48
    39
    60
    56
    Milano
    03
    50
    69
    14
    90
    Napoli
    73
    42
    85
    67
    12
    Palermo
    68
    72
    23
    66
    09
    Roma
    20
    26
    19
    66
    56
    Torino
    75
    04
    81
    14
    64
    Venezia
    12
    15
    64
    67
    30
    Nazionale
    64
    80
    85
    33
    75
    Estrazione Simbolotto
    Bari
    24
    42
    10
    37
    25

Ultimi Messaggi

Indietro
Alto