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 21 marzo 2026
    Bari
    17
    81
    25
    89
    06
    Cagliari
    83
    36
    05
    76
    69
    Firenze
    06
    43
    60
    21
    44
    Genova
    84
    56
    21
    75
    33
    Milano
    79
    24
    89
    05
    02
    Napoli
    76
    65
    70
    31
    05
    Palermo
    29
    07
    67
    62
    18
    Roma
    66
    10
    89
    57
    28
    Torino
    18
    40
    85
    09
    04
    Venezia
    51
    22
    11
    66
    73
    Nazionale
    41
    66
    86
    52
    44
    Estrazione Simbolotto
    Firenze
    06
    38
    14
    12
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto