Novità

Quadratura in cadenza di Salva 57

GioRyuKen72

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Ciao a tutti,
vi riporto un metodo per gentile concessione di @salva 57 che mette in gioco 2 ambate su 2 ruote con un'altissima percentualità di sortita in caso (raro, purtroppo) di ambi uniti su ruote consecutive.

Partiamo appunto dal caso detto poco fa:
Si devono rintracciare 2 ambi uniti (1a e 2a posizione, 2a e 3a posizione e via dicendo) in due ruote consecutive, della stessa cadenza.

Un esempio pratico del 28/06/2025:
1752932876555.png
per avere l'ambata Principale dobbiamo sommare tutte le decine dei numeri in quadratura: 5+0+8+5= 18, il suo vertibile 81 sarà l'ambata Secondaria.

Esito:
1752933082472.png

ora guardate il resoconto:
1752933172602.png



di seguito lo script, anzi 3, suddivisi per tipo di ricerca per aiutare i meno esperti..
[è sempre lo stesso con alcune funzione abilitate o meno in base alla ricerca]

qui trovate lo script per questo caso, ambi uniti su ruote consecutive
Codice: 
Sub Main()
   Dim ruo(2),pte(1),pta(3),ambata(2),Ambo1(2),Ambo2(2),Terno1(3),Terno2(3),Nn(4),E1,E2,P5,P6
   Dim AmbataPrincipale,AmbataSecondaria,Cadnn(4),Decnn(4)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",432))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For r1 = 1 To 10
         r2 = r1 + 1' ABILITARE per ruote consecutive
         'For r2 = r1 + 1 To 12 'ABILITARE per ruote NON consecutive
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 4
               'For p2 = p1 + 1 To 5 'ABILITARE per AMBI NON UNITI
               p2 = p1 + 1 ' ABILITARE per AMBI UNITI
               Nn(1) = Estratto(es,r1,p1) : Nn(2) = Estratto(es,r1,p2)
               Nn(3) = Estratto(es,r2,p1) : Nn(4) = Estratto(es,r2,p2)
               Cadnn(1) = Cadenza(Nn(1))
               Cadnn(2) = Cadenza(Nn(2))
               Cadnn(3) = Cadenza(Nn(3))
               Cadnn(4) = Cadenza(Nn(4))
               Decnn(1) = Decina(Nn(1))
               Decnn(2) = Decina(Nn(2))
               Decnn(3) = Decina(Nn(3))
               Decnn(4) = Decina(Nn(4))
               '______________________________________
               If Cadnn(1) = Cadnn(2) And Cadnn(3) = Cadnn(4) And Cadnn(1) = Cadnn(4) Then
                  AmbataPrincipale = Decnn(1) + Decnn(2) + Decnn(3) + Decnn(4)
                  AmbataSecondaria = Vert(AmbataPrincipale)
                  'abb1 = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4))
                  'abb1 =(Cadnn(1) + Cadnn(2) + Cadnn(3) + Cadnn(4))
                  'abb1= 01
                  'abb2 = 20
                  ruo(1) = r1
                  ruo(2) = r2
                  pte(1) = 2
                  pta(2) = 1
                  pta(3) = 0.5
                  k = 13
                  ambata(1) = AmbataPrincipale
                  ambata(2) = AmbataSecondaria
                  ImpostaGiocata 1,ambata,ruo,pte,k,1
                  Ambo1(1) = cap
                  Ambo1(2) = abb1
                  'ImpostaGiocata 2,Ambo1,ruo,pta,k
                  Ambo2(1) = cap
                  Ambo2(2) = abb2
                  'ImpostaGiocata 3,Ambo2,ruo,pta,k
                  Terno1(1) = AmbataPrincipale
                  Terno1(2) = AmbataSecondaria
                  Terno1(3) = abb1
                  'ImpostaGiocata 4,Terno1,ruo,pta,k
                  Terno2(1) = AmbataPrincipale
                  Terno2(2) = AmbataSecondaria
                  Terno2(3) = abb2
                  'ImpostaGiocata 5,Terno2,ruo,pta,k
                  casi = casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  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) Or E1 = Nn(2) Or E1 = Nn(3) Or E1 = Nn(4) 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(1) Or E2 = Nn(2) Or E2 = Nn(3) Or E2 = Nn(4) Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Gioca es,True,,1
               End If
            Next
         Next
         'Next ' ABILITARE per AMBI NON uniti
      'Next ' ABILITARE per ruote non consecutive
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

qui trovate lo script per ambi uniti su ruote NON consecutive
Codice: 
Sub Main()
   Dim ruo(2),pte(1),pta(3),ambata(2),Ambo1(2),Ambo2(2),Terno1(3),Terno2(3),Nn(4),E1,E2,P5,P6
   Dim AmbataPrincipale,AmbataSecondaria,Cadnn(4),Decnn(4)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",432))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For r1 = 1 To 10
         'r2 = r1 + 1' ABILITARE per ruote consecutive
         For r2 = r1 + 1 To 12 'ABILITARE per ruote NON consecutive
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 4
               'For p2 = p1 + 1 To 5 'ABILITARE per AMBI NON UNITI
               p2 = p1 + 1 ' ABILITARE per AMBI UNITI
               Nn(1) = Estratto(es,r1,p1) : Nn(2) = Estratto(es,r1,p2)
               Nn(3) = Estratto(es,r2,p1) : Nn(4) = Estratto(es,r2,p2)
               Cadnn(1) = Cadenza(Nn(1))
               Cadnn(2) = Cadenza(Nn(2))
               Cadnn(3) = Cadenza(Nn(3))
               Cadnn(4) = Cadenza(Nn(4))
               Decnn(1) = Decina(Nn(1))
               Decnn(2) = Decina(Nn(2))
               Decnn(3) = Decina(Nn(3))
               Decnn(4) = Decina(Nn(4))
               '______________________________________
               If Cadnn(1) = Cadnn(2) And Cadnn(3) = Cadnn(4) And Cadnn(1) = Cadnn(4) Then
                  AmbataPrincipale = Decnn(1) + Decnn(2) + Decnn(3) + Decnn(4)
                  AmbataSecondaria = Vert(AmbataPrincipale)
                  'abb1 = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4))
                  'abb1 =(Cadnn(1) + Cadnn(2) + Cadnn(3) + Cadnn(4))
                  'abb1= 01
                  'abb2 = 20
                  ruo(1) = r1
                  ruo(2) = r2
                  pte(1) = 2
                  pta(2) = 1
                  pta(3) = 0.5
                  k = 13
                  ambata(1) = AmbataPrincipale
                  ambata(2) = AmbataSecondaria
                  ImpostaGiocata 1,ambata,ruo,pte,k,1
                  Ambo1(1) = cap
                  Ambo1(2) = abb1
                  'ImpostaGiocata 2,Ambo1,ruo,pta,k
                  Ambo2(1) = cap
                  Ambo2(2) = abb2
                  'ImpostaGiocata 3,Ambo2,ruo,pta,k
                  Terno1(1) = AmbataPrincipale
                  Terno1(2) = AmbataSecondaria
                  Terno1(3) = abb1
                  'ImpostaGiocata 4,Terno1,ruo,pta,k
                  Terno2(1) = AmbataPrincipale
                  Terno2(2) = AmbataSecondaria
                  Terno2(3) = abb2
                  'ImpostaGiocata 5,Terno2,ruo,pta,k
                  casi = casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  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) Or E1 = Nn(2) Or E1 = Nn(3) Or E1 = Nn(4) 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(1) Or E2 = Nn(2) Or E2 = Nn(3) Or E2 = Nn(4) Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Gioca es,True,,1
               End If
            Next
         Next
         'Next ' ABILITARE per AMBI NON uniti
      Next ' ABILITARE per ruote non consecutive
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub


qui trovate lo script per ambi NON uniti su ruote NON consecutive
Codice: 
Sub Main()
   Dim ruo(2),pte(1),pta(3),ambata(2),Ambo1(2),Ambo2(2),Terno1(3),Terno2(3),Nn(4),E1,E2,P5,P6
   Dim AmbataPrincipale,AmbataSecondaria,Cadnn(4),Decnn(4)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",432))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For r1 = 1 To 10
         'r2 = r1 + 1' ABILITARE per ruote consecutive
         For r2 = r1 + 1 To 12 'ABILITARE per ruote NON consecutive
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 4
               For p2 = p1 + 1 To 5 'ABILITARE per AMBI NON UNITI
               'p2 = p1 + 1 ' ABILITARE per AMBI UNITI
               Nn(1) = Estratto(es,r1,p1) : Nn(2) = Estratto(es,r1,p2)
               Nn(3) = Estratto(es,r2,p1) : Nn(4) = Estratto(es,r2,p2)
               Cadnn(1) = Cadenza(Nn(1))
               Cadnn(2) = Cadenza(Nn(2))
               Cadnn(3) = Cadenza(Nn(3))
               Cadnn(4) = Cadenza(Nn(4))
               Decnn(1) = Decina(Nn(1))
               Decnn(2) = Decina(Nn(2))
               Decnn(3) = Decina(Nn(3))
               Decnn(4) = Decina(Nn(4))
               '______________________________________
               If Cadnn(1) = Cadnn(2) And Cadnn(3) = Cadnn(4) And Cadnn(1) = Cadnn(4) Then
                  AmbataPrincipale = Decnn(1) + Decnn(2) + Decnn(3) + Decnn(4)
                  AmbataSecondaria = Vert(AmbataPrincipale)
                  'abb1 = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4))
                  'abb1 =(Cadnn(1) + Cadnn(2) + Cadnn(3) + Cadnn(4))
                  'abb1= 01
                  'abb2 = 20
                  ruo(1) = r1
                  ruo(2) = r2
                  pte(1) = 2
                  pta(2) = 1
                  pta(3) = 0.5
                  k = 13
                  ambata(1) = AmbataPrincipale
                  ambata(2) = AmbataSecondaria
                  ImpostaGiocata 1,ambata,ruo,pte,k,1
                  Ambo1(1) = cap
                  Ambo1(2) = abb1
                  'ImpostaGiocata 2,Ambo1,ruo,pta,k
                  Ambo2(1) = cap
                  Ambo2(2) = abb2
                  'ImpostaGiocata 3,Ambo2,ruo,pta,k
                  Terno1(1) = AmbataPrincipale
                  Terno1(2) = AmbataSecondaria
                  Terno1(3) = abb1
                  'ImpostaGiocata 4,Terno1,ruo,pta,k
                  Terno2(1) = AmbataPrincipale
                  Terno2(2) = AmbataSecondaria
                  Terno2(3) = abb2
                  'ImpostaGiocata 5,Terno2,ruo,pta,k
                  casi = casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  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) Or E1 = Nn(2) Or E1 = Nn(3) Or E1 = Nn(4) 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(1) Or E2 = Nn(2) Or E2 = Nn(3) Or E2 = Nn(4) Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Gioca es,True,,1
               End If
            Next
         Next
         Next ' ABILITARE per AMBI NON uniti
      Next ' ABILITARE per ruote non consecutive
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub


Saluti, Gio.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 08 novembre 2025
    Bari
    47
    72
    08
    22
    76
    Cagliari
    56
    51
    36
    17
    53
    Firenze
    21
    11
    71
    89
    19
    Genova
    90
    32
    12
    80
    01
    Milano
    10
    57
    72
    21
    17
    Napoli
    59
    01
    76
    09
    61
    Palermo
    75
    10
    80
    24
    25
    Roma
    87
    86
    09
    32
    17
    Torino
    55
    21
    23
    46
    30
    Venezia
    18
    20
    13
    32
    84
    Nazionale
    19
    18
    05
    86
    08
    Estrazione Simbolotto
    Torino
    42
    29
    30
    11
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto