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
    venerdì 10 ottobre 2025
    Bari
    50
    79
    52
    88
    45
    Cagliari
    38
    69
    86
    25
    05
    Firenze
    86
    43
    66
    38
    31
    Genova
    33
    13
    45
    77
    09
    Milano
    01
    22
    59
    31
    54
    Napoli
    65
    70
    14
    53
    71
    Palermo
    51
    67
    82
    74
    84
    Roma
    46
    18
    33
    88
    08
    Torino
    78
    20
    23
    05
    65
    Venezia
    58
    33
    40
    51
    89
    Nazionale
    90
    74
    51
    41
    40
    Estrazione Simbolotto
    36
    37
    35
    21
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto