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ì 05 settembre 2025
    Bari
    08
    05
    07
    41
    79
    Cagliari
    80
    20
    03
    04
    06
    Firenze
    16
    44
    21
    48
    60
    Genova
    46
    38
    61
    11
    20
    Milano
    75
    07
    87
    44
    65
    Napoli
    12
    15
    48
    11
    22
    Palermo
    17
    60
    64
    62
    27
    Roma
    50
    17
    41
    56
    61
    Torino
    73
    78
    33
    37
    28
    Venezia
    06
    75
    50
    69
    10
    Nazionale
    34
    51
    27
    14
    53
    Estrazione Simbolotto
    Palermo
    39
    02
    26
    08
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto