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 decina 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

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.

 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto