Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · 25 Febbraio 2021

Ciao Matematico, riguardo allo script IL COS è da riprendere perchè ho trovato la funzione che scrive i numeri per eccesso o per difetto, quindi adesso lo script i calcoli li fa perfetti, ma confrontando il secondo esempio mostrato dall'autore i numeri come prima non combaciano, quindi secondo me il Longo ha sbagliato i calcoli nel secondo esempio.

Per l'altro LA DIAGONALE INFALLIBILE, come sempre appena posso gli do un'occhiata

Matematico · 25 Febbraio 2021

Grazie , certo quando puoi con calma

salvo50 · 2 Marzo 2021

Ciao a Tutti.

Matematico, Red*One, Rudivall, Xeroxs.
Grazie

La Diagonale Infallibile di Antonio Longo

Il metodo prevede che l'ambo derivato si deve cercare nelle 15 estrazioni indietro rispetto all'estrazione di calcolo, oppure 11 estrazioni avanti, alla terza e quarta domanda ho predisposto che questi parametri si possono cambiare.

Inoltre ci sono 2 procedimenti diversi dopo aver trovato l'ambo derivato, che dipendono dal fatto, se la ruota è diversa da quella di calcolo oppure uguale, se la ruota è diversa, l'ambata è la somma della diagonale che le sue cifre addizionate separatamente siano inferiori o uguali a 9, chiamiamola " giusta ", e gli abbinamenti i 2 addenti, se invece la ruota di ricerca è uguale a quella di calcolo, l'ambata è il numero estratto per ultimo nel quadro, e gli abbinamenti sono gli altri 3 numeri , ed inoltre la somma della diagonale "giusta" , quindi un'ambata e 4 ambi, 2 ambi in più del primo procedimento, per questo ho dovuto separarli e fare 2 script.

Script con ruota diversa da quella di calcolo

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50,Sp,Ok
   Dim R1,R2,P1,P2,P3,P4,P5,P6,P7,P8,P9,E1,E2
   Dim Ava,Ind,Es2,Es3,Caso,Casi
   Dim SoAB,DiAB,DeA,DeB,DeC,DeD,CaA,CaB,CaC,CaD
   Dim SoAD,SoBC,SoDeAD,SoDeBC,SoCaAD,SoCaBC
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Dim Ruo(2),Ruote(3),Po1(1),Po2(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9884))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo Derivato?",Salvo50,15))
   Ava = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo Derivato?",Salvo50,11))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & "La Diagonale Infallibile - Ruote Diverse - A. Longo - Script Salvo50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            SoAB = Fuori90(A + B)
            DiAB = Differenza(A,B)
            Es3 = CInt(Es - Ind + 1)
            For Es2 = Es - 1 To Es3 Step - 1
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        If Differenza(P3,P4) < 3 Then
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              If(C = SoAB And D = DiAB) Or(D = SoAB And C = DiAB) Then
                                 'C---D
                                 '|   |
                                 'A---B
                                 DeA = Decina(A) : CaA = Cadenza(A)
                                 DeB = Decina(B) : CaB = Cadenza(B)
                                 DeC = Decina(C) : CaC = Cadenza(C)
                                 DeD = Decina(D) : CaD = Cadenza(D)
                                 SoDeAD = DeA + DeD : SoCaAD = CaA + CaD
                                 SoDeBC = DeB + DeC : SoCaBC = CaB + CaC
                                 Ok = 0
                                 If SoDeBC <= 9 And SoCaBC <= 9 Then
                                    SoBC = Fuori90(B + C)
                                    Ok = 1
                                 Else
                                    If SoDeAD <= 9 And SoCaAD <= 9 Then
                                       SoAD = Fuori90(A + D)
                                       Ok = 2
                                    End If
                                 End If
                                 If Ok = 1 Or Ok = 2 Then
                                    If Ok = 2 Then
                                       Amba(1) = SoAD
                                       Ambo1(1) = SoAD : Ambo1(2) = A
                                       Ambo2(1) = SoAD : Ambo2(2) = D
                                    End If
                                    If Ok = 1 Then
                                       Amba(1) = SoBC
                                       Ambo1(1) = SoBC : Ambo1(2) = B
                                       Ambo2(1) = SoBC : Ambo2(2) = C
                                    End If
                                    '
                                    Caso = Caso + 1
                                    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(Es2) & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P8 = 1 To 5
                                       E2 = Estratto(Es2,R2,P8)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Ambo Derivato ",1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P7 = 1 To 5
                                       E1 = Estratto(Es,R1,P7)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Ambo Base ",1,,,1
                                    Scrivi "Ambi in quadro",1,,,1
                                    Scrivi Space(3) & Format2(C) & Sp & Format2(D),1,0,,2
                                    Scrivi Space(16) & Format2(A) & " + " & Format2(B) & " = " & Format2(SoAB),1,0
                                    Scrivi " 1° elemento Ambo Derivato ",1,,,1
                                    Scrivi Space(3) & Format2(A) & Sp & Format2(B),1,0,,2
                                    Scrivi Space(12) & "Abs " & Format2(A) & " - " & Format2(B) & " = " & Format2(DiAB),1,0
                                    Scrivi " 2° elemento Ambo Derivato ",1,,,1
                                    Scrivi Space(15) & " Ricerca ambo derivato a Ritroso per max " & Ind & " Estrazioni",1,,,2
                                    If Ok = 1 Then
                                       Scrivi Space(25) & Format2(C) & " + " & Format2(B) & " = " & Format2(SoBC) & " Ambata",1
                                       Scrivi Space(35) & Format2(C) & " Abbinamento 1",1
                                       Scrivi Space(35) & Format2(B) & " Abbinamento 2",1
                                    End If
                                    If Ok = 2 Then
                                       Scrivi Space(25) & Format2(D) & " + " & Format2(A) & " = " & Format2(SoAD) & " Ambata",1
                                       Scrivi Space(35) & Format2(D) & " Abbinamento 1",1
                                       Scrivi Space(35) & Format2(A) & " Abbinamento 2",1
                                    End If
                                    Scrivi
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                    ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                    ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                    Gioca Es,,,1
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      '
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            SoAB = Fuori90(A + B)
            DiAB = Differenza(A,B)
            Es3 = CInt(Es + Ava + 1)
            If Es3 > FIn Then Es3 = FIn
            For Es2 = Es + 1 To Es3
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        If Differenza(P3,P4) < 3 Then
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              If(C = SoAB And D = DiAB) Or(D = SoAB And C = DiAB) Then
                                 'A---B
                                 '|   |
                                 'C---D
                                 DeA = Decina(A) : CaA = Cadenza(A)
                                 DeB = Decina(B) : CaB = Cadenza(B)
                                 DeC = Decina(C) : CaC = Cadenza(C)
                                 DeD = Decina(D) : CaD = Cadenza(D)
                                 SoDeAD = DeA + DeD : SoCaAD = CaA + CaD
                                 SoDeBC = DeB + DeC : SoCaBC = CaB + CaC
                                 Ok = 0
                                 If SoDeAD <= 9 And SoCaAD <= 9 Then
                                    SoAD = Fuori90(A + D)
                                    Ok = 1
                                 Else
                                    If SoDeBC <= 9 And SoCaBC <= 9 Then
                                       SoBC = Fuori90(B + C)
                                       Ok = 2
                                    End If
                                 End If
                                 If Ok = 1 Or Ok = 2 Then
                                    If Ok = 1 Then
                                       Amba(1) = SoAD
                                       Ambo1(1) = SoAD : Ambo1(2) = A
                                       Ambo2(1) = SoAD : Ambo2(2) = D
                                    End If
                                    If Ok = 2 Then
                                       Amba(1) = SoBC
                                       Ambo1(1) = SoBC : Ambo1(2) = B
                                       Ambo2(1) = SoBC : Ambo2(2) = C
                                    End If
                                    '
                                    Caso = Caso + 1
                                    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 P7 = 1 To 5
                                       E1 = Estratto(Es,R1,P7)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Ambo Base ",1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P8 = 1 To 5
                                       E2 = Estratto(Es2,R2,P8)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Ambo Derivato ",1,,,1
                                    Scrivi "Ambi in quadro",1,,,1
                                    Scrivi Space(3) & Format2(A) & Sp & Format2(B),1,0,,2
                                    Scrivi Space(16) & Format2(A) & " + " & Format2(B) & " = " & Format2(SoAB),1,0
                                    Scrivi " 1° elemento Ambo Derivato ",1,,,1
                                    Scrivi Space(3) & Format2(C) & Sp & Format2(D),1,0,,2
                                    Scrivi Space(12) & "Abs " & Format2(A) & " - " & Format2(B) & " = " & Format2(DiAB),1,0
                                    Scrivi " 2° elemento Ambo Derivato ",1,,,1
                                    Scrivi Space(15) & " Ricerca ambo derivato in Avanti per max " & Ava & " Estrazioni",1,,,2
                                    If Ok = 1 Then
                                       Scrivi Space(25) & Format2(A) & " + " & Format2(D) & " = " & Format2(SoAD) & " Ambata",1
                                       Scrivi Space(35) & Format2(A) & " Abbinamento 1",1
                                       Scrivi Space(35) & Format2(D) & " Abbinamento 2",1
                                    End If
                                    If Ok = 2 Then
                                       Scrivi Space(25) & Format2(B) & " + " & Format2(C) & " = " & Format2(SoBC) & " Ambata",1
                                       Scrivi Space(35) & Format2(B) & " Abbinamento 1",1
                                       Scrivi Space(35) & Format2(C) & " Abbinamento 2",1
                                    End If
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                    ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                    ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                    Gioca Es2,,,1
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
End Sub

Script con ruota uguale a quella di calcolo

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50,Sp,Ok
   Dim R1,R2,P1,P2,P3,P4,P5,P6,P7,P8,P9,E1,E2
   Dim Ava,Ind,Es2,Es3,Caso,Casi,X,G,K
   Dim SoAB,DiAB,DeA,DeB,DeC,DeD,CaA,CaB,CaC,CaD
   Dim SoAD,SoBC,SoDeAD,SoDeBC,SoCaAD,SoCaBC
   Dim Amba(1),Ambo(2),Num(4)
   Dim Ruo(2),Ruote(3),Po1(1),Po2(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9804))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo Derivato?",Salvo50,15))
   Ava = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo Derivato?",Salvo50,11))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & "La Diagonale Infallibile - solo Ruota di Calcolo - A. Longo - Script Salvo50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            SoAB = Fuori90(A + B)
            DiAB = Differenza(A,B)
            Es3 = CInt(Es - Ind + 1)
            For Es2 = Es - 1 To Es3 Step - 1
               R2 = R1
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If Differenza(P3,P4) < 3 Then
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                           If(C = SoAB And D = DiAB) Or(D = SoAB And C = DiAB) Then
                              'C---D
                              '|   |
                              'A---B
                              DeA = Decina(A) : CaA = Cadenza(A)
                              DeB = Decina(B) : CaB = Cadenza(B)
                              DeC = Decina(C) : CaC = Cadenza(C)
                              DeD = Decina(D) : CaD = Cadenza(D)
                              SoDeAD = DeA + DeD : SoCaAD = CaA + CaD
                              SoDeBC = DeB + DeC : SoCaBC = CaB + CaC
                              Ok = 0
                              If SoDeBC <= 9 And SoCaBC <= 9 Then
                                 SoBC = Fuori90(B + C)
                                 Ok = 1
                              Else
                                 If SoDeAD <= 9 And SoCaAD <= 9 Then
                                    SoAD = Fuori90(A + D)
                                    Ok = 2
                                 End If
                              End If
                              If Ok = 1 Or Ok = 2 Then
                                 If Ok = 2 Then X = SoAD
                                 If Ok = 1 Then X = SoBC
                                 Amba(1) = B '
                                 Num(1) = X : Num(2) = A : Num(3) = C : Num(4) = D
                                 Caso = Caso + 1
                                 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(Es2) & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P8 = 1 To 5
                                    E2 = Estratto(Es2,R2,P8)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati Ambo Derivato ",1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P7 = 1 To 5
                                    E1 = Estratto(Es,R1,P7)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati Ambo Base ",1,,,1
                                 Scrivi "Ambi in quadro",1,,,1
                                 Scrivi Space(3) & Format2(C) & Sp & Format2(D),1,0,,2
                                 Scrivi Space(16) & Format2(A) & " + " & Format2(B) & " = " & Format2(SoAB),1,0
                                 Scrivi " 1° elemento Ambo Derivato ",1,,,1
                                 Scrivi Space(3) & Format2(A) & Sp & Format2(B),1,0,,2
                                 Scrivi Space(12) & "Abs " & Format2(A) & " - " & Format2(B) & " = " & Format2(DiAB),1,0
                                 Scrivi " 2° elemento Ambo Derivato ",1,,,1
                                 Scrivi Space(15) & " Ricerca ambo derivato a Ritroso per max " & Ind & " Estrazioni",1,,,2
                                 Scrivi
                                 Scrivi Space(35) & Format2(B) & " Ambata",1
                                 If Ok = 1 Then
                                    Scrivi Space(35) & Format2(SoBC) & " Abbinamento 1 = " & Format2(B) & " + " & Format2(C),1
                                 End If
                                 If Ok = 2 Then
                                    Scrivi Space(35) & Format2(SoAD) & " Abbinamento 1 = " & Format2(A) & " + " & Format2(D),1
                                 End If
                                 Scrivi Space(35) & Format2(A) & " Abbinamento 2",1
                                 Scrivi Space(35) & Format2(C) & " Abbinamento 3",1
                                 Scrivi Space(35) & Format2(D) & " Abbinamento 4",1
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                 EliminaRipetuti Num
                                 G = 1
                                 ImpostaGiocata G,Amba,Ruo,Po1,Clp
                                 For K = 1 To UBound(Num)
                                    If Amba(1) <> Num(K)Then
                                       Ambo(1) = Amba(1): Ambo(2) = Num(K)
                                       If Ambo(2) > 0 Then
                                          G = G + 1
                                          ImpostaGiocata G,Ambo,Ruo,Po2,Clp
                                       End If
                                    End If
                                 Next
                                 Gioca Es,,,1
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            SoAB = Fuori90(A + B)
            DiAB = Differenza(A,B)
            Es3 = CInt(Es + Ava + 1)
            If Es3 > FIn Then Es3 = FIn
            For Es2 = Es + 1 To Es3
               R2 = R1
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If Differenza(P3,P4) < 3 Then
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                           If(C = SoAB And D = DiAB) Or(D = SoAB And C = DiAB) Then
                              'A---B
                              '|   |
                              'C---D
                              DeA = Decina(A) : CaA = Cadenza(A)
                              DeB = Decina(B) : CaB = Cadenza(B)
                              DeC = Decina(C) : CaC = Cadenza(C)
                              DeD = Decina(D) : CaD = Cadenza(D)
                              SoDeAD = DeA + DeD : SoCaAD = CaA + CaD
                              SoDeBC = DeB + DeC : SoCaBC = CaB + CaC
                              Ok = 0
                              If SoDeAD <= 9 And SoCaAD <= 9 Then
                                 SoAD = Fuori90(A + D)
                                 Ok = 1
                              Else
                                 If SoDeBC <= 9 And SoCaBC <= 9 Then
                                    SoBC = Fuori90(B + C)
                                    Ok = 2
                                 End If
                              End If
                              If Ok = 1 Or Ok = 2 Then
                                 If Ok = 1 Then X = SoAD
                                 If Ok = 2 Then X = SoBC
                                 Amba(1) = D
                                 Num(1) = X : Num(2) = A : Num(3) = B : Num(4) = C
                                 Caso = Caso + 1
                                 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 P7 = 1 To 5
                                    E1 = Estratto(Es,R1,P7)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati Ambo Base ",1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P8 = 1 To 5
                                    E2 = Estratto(Es2,R2,P8)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati Ambo Derivato ",1,,,1
                                 Scrivi "Ambi in quadro",1,,,1
                                 Scrivi Space(3) & Format2(A) & Sp & Format2(B),1,0,,2
                                 Scrivi Space(16) & Format2(A) & " + " & Format2(B) & " = " & Format2(SoAB),1,0
                                 Scrivi " 1° elemento Ambo Derivato ",1,,,1
                                 Scrivi Space(3) & Format2(C) & Sp & Format2(D),1,0,,2
                                 Scrivi Space(12) & "Abs " & Format2(A) & " - " & Format2(B) & " = " & Format2(DiAB),1,0
                                 Scrivi " 2° elemento Ambo Derivato ",1,,,1
                                 Scrivi Space(15) & " Ricerca ambo derivato in Avanti per max " & Ava & " Estrazioni",1,,,2
                                 Scrivi
                                 Scrivi Space(35) & Format2(D) & " Ambata",1
                                 If Ok = 1 Then
                                    Scrivi Space(35) & Format2(SoAD) & " Abbinamento 1 = " & Format2(A) & " + " & Format2(D),1
                                 End If
                                 If Ok = 2 Then
                                    Scrivi Space(35) & Format2(SoBC) & " Abbinamento 1 = " & Format2(B) & " + " & Format2(C),1
                                 End If
                                 Scrivi Space(35) & Format2(A) & " Abbinamento 2",1
                                 Scrivi Space(35) & Format2(B) & " Abbinamento 3",1
                                 Scrivi Space(35) & Format2(C) & " Abbinamento 4",1
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                 EliminaRipetuti Num
                                 G = 1
                                 ImpostaGiocata G,Amba,Ruo,Po1,Clp
                                 For K = 1 To UBound(Num)
                                    If Amba(1) <> Num(K)Then
                                       Ambo(1) = Amba(1): Ambo(2) = Num(K)
                                       If Ambo(2) > 0 Then
                                          G = G + 1
                                          ImpostaGiocata G,Ambo,Ruo,Po2,Clp
                                       End If
                                    End If
                                 Next
                                 Gioca Es2,,,1
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
End Sub

Matematico · 2 Marzo 2021

Super salvo50 , sempre al top ....grazie di cuore

Buona giornata a te e a tutti queli che ci seguono

Red*one · 2 Marzo 2021

Ciao Salvo50 ,grazie per i tuoi fantastici script e ringrazio anche tutti gli altri per lo splendido lavoro .
La conoscenza non avrà mai fine.
Una piccola domanda ad oggi secondo Voi , quale potrebbe esser il miglior script che si avvicini in termini di risultati?
quale metodo risulta essere il migliore?
Grazie

Red*one · 3 Marzo 2021

vincente sarebbe assurdo anche ipotizzarlo (magari) per l'amor di Dio, alla fine si cerca quale a seconda delle esperienze puo' dare delle previsioni migliori rispetto ad altri visto anche che hai e avete una passione ed esperienza migliore di certo della mia.
Un abbraccio Salvo50 grazie dei tuoi intenti e delle tue perle ,grazie anche alle altre persone che contribuiscono.

tiberio1 · 5 Marzo 2021

La posto qui e' una sezione dove ci sono bravi programmatori ovviamente vado alla ricerca di un listato per spaziometria grazie

Antonio Pagano · 14 Marzo 2021

salvo50 ha scritto:

Ciao a Tutti.
COME VINCERE LA QUATERNA A RUOTA di FRANCO MONGILLO
Ho fatto lo script e la prima cosa che ho notato è che il terno dello script di Enplein qui non c'è, ho fatto dei controlli, ed ho visto che nello script postato da Enplein non ci sono le quaterne che Mongillo segnala nel metodo, nel primo quello delle basi dispari, risultano 2 ambi, in quello delle basi pari, niente non vede neanche le ruote, allora penso che Enplein lo script l'abbia fatto con altre spiegazioni, non con quelle postate da Matematico, io ho seguito le spiegazioni postate da Matematico e le 2 quaterne ci sono, ho fatto altri controlli ho impostato la ricerca dall'estrazione 7613 - (27-06-2006) all'estrazione 7663 - (21-10-2006) e sono risultate 3 quaterne a tutte ed una a ruota

Vedi l'allegato 2208273

Nello script alla terza domanda si può decidere se disegnare il cerchio ciclometrico, con risposta 1 lo disegna, con qualsiasi altro numero non lo disegna, quindi impiega meno tempo per le ricerche.

Ecco lo script, salvo errori o dimenticanze

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer,Salvo50,X1,X2
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SM14,SM23,DM12,DM43,DM13,DM24,DM14,DM23
   Dim DeX1,DeX2,CaX1,CaX2,Diff1,Abb1,Abb2,Abb3,Abb4
   Dim Amba(1),Penta(5),L(6),M(4),M1(2),Q(6)
   Dim Ruo(2),Ruot(3),Po1(1),Po2(5),Po3(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850)) '7613 - 7663 esempi nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "COME VINCERE LA QUATERNA A RUOTA - FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po2(3) = 1
   Po2(4) = 1
   Po3(3) = 1
   Po3(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(M(1),M(2)) : DM43 = Distanza(M(4),M(3))' Distanza orizzontale estratti
                        DM13 = Distanza(M(1),M(3)) : DM24 = Distanza(M(2),M(4))' Distanza diagonale estratti
                        SM14 = Fuori90(M(1) + M(4)) : SM23 = Fuori90(M(2) + M(3))'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(M(1),M(4)) : DM23 = Distanza(M(2),M(3)) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE DISPARI
                           If dispari(M1(1)) And dispari(M1(2)) Then
                              X1 = Fuori90((90 + M(1)) - DM12)
                              X2 = Fuori90(M(4) + DM43)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX2 : Abb4 = CaX2 & DeX1
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Caso = Caso + 1
                              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 = A Or E1 = B 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 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE DISPARI",1,,,1
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = X1 : L(6) = X2
                                 DisegnaCerchioCiclometrico L,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
            'Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(A,B) : DM43 = Distanza(C,D)' Distanza orizzontale estratti
                        DM13 = Distanza(A,D) : DM24 = Distanza(C,B)' Distanza diagonale estratti
                        SM14 = Fuori90(A + C) : SM23 = Fuori90(B + D)'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(A,C) : DM23 = Distanza(B,D) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE PARI
                           If pari(M1(1)) And pari(M1(2)) Then
                              X1 = M1(2) \ 2 : X1 = Fuori90(X1 + C)
                              X2 = M1(1) \ 2 : X2 = Fuori90(X2 + B)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX1 : Abb4 = CaX2 & DeX2
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Q(1) = A : Q(2) = B : Q(3) = C : Q(4) = D : Q(5) = X1 : Q(6) = X2
                              Caso = Caso + 1
                              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 = A Or E1 = B 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 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE PARI",1,,,2
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 DisegnaCerchioCiclometrico Q,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

Antonio Pagano · 14 Marzo 2021

Salve a tutti . Del listato vorrei che uscisse alla vincita o dell'ambata o dell'ambo o la vincita a tutte. E' possibile avere questa modifica. Grazie mille

salvo50 · 14 Marzo 2021

Antonio Pagano ha scritto:
Salve a tutti . Del listato vorrei che uscisse alla vincita o dell'ambata o dell'ambo o la vincita a tutte. E' possibile avere questa modifica. Grazie mille

Ciao Antonio Pagano, non capisco la tua richiesta, attualmente nell'output con questo script abbiamo, l'ambata, la cinquina risultante giocata nelle 2 ruote interessate ed in tutte le ruote, manca solo l'ambo per assecondare la tua richiesta.

Vuoi che aggiungo gli ambi?

Altrimenti spiegati meglio, anche con qualche esempio.

tiberio1 · 14 Marzo 2021

salvo50 ha scritto:
Ciao Antonio Pagano, non capisco la tua richiesta, attualmente nell'output con questo script abbiamo, l'ambata, la cinquina risultante giocata nelle 2 ruote interessate ed in tutte le ruote, manca solo l'ambo per assecondare la tua richiesta.

Vuoi che aggiungo gli ambi?

Altrimenti spiegati meglio, anche con qualche esempio.

Ciao Salvo che dici e' fattibile un listato per cio' che ho postato li' in precedenza?

salvo50 · 15 Marzo 2021

tiberio1 ha scritto:
Ciao Salvo che dici e' fattibile un listato per cio' che ho postato li' in precedenza?

Ciao a Tutti.

Ciao Tiberio, questo metodo lo hai postato più di un mese fa in un altro topic rivolto a tutti e nessuno ti ha risposto, come puoi pensare che postandolo qua ti rispondono di più, in questo topic gli unici che abbiamo fatto script siamo Enplein, MarcoElle ed io e penso che l'unico di noi tre che potrebbe fartelo potrebbe essere il bravissimo Enplein, non me ne voglia MarcoElle ma dai scriplt che gli ho visto fare penso che io e lui siamo allo stesso livello, se mi sono sbagliato gli chiedo scusa, avrei potuto chiedere aiuto, ma ho pensato che se è fattibile, è meglio che te lo faccia direttamente chi ne è capace.

Antonio Pagano · 15 Marzo 2021

salvo50 ha scritto:
Ciao Antonio Pagano, non capisco la tua richiesta, attualmente nell'output con questo script abbiamo, l'ambata, la cinquina risultante giocata nelle 2 ruote interessate ed in tutte le ruote, manca solo l'ambo per assecondare la tua richiesta.

Vuoi che aggiungo gli ambi?

Altrimenti spiegati meglio, anche con qualche esempio.

InterrompiTutteLegiocate. Buongiorno Salvo grazie per la risposta. Come và usato InterrompiTutteLeGiocate nel listato inviato. Al verificarsi di un evento positivo lo script deve uscire e andare avanti. Spesso si gioca per Ambata, Ambo e terno, al verificarsi uno dei tre casi positivi lo script segna l' esito e continua. Altrimenti non saprò mai quanti sono i casi positivi e quelli negativi. Ti ringrazio. Ciao

salvo50 · 15 Marzo 2021

Antonio Pagano ha scritto:
InterrompiTutteLegiocate. Buongiorno Salvo grazie per la risposta. Come và usato InterrompiTutteLeGiocate nel listato inviato. Al verificarsi di un evento positivo lo script deve uscire e andare avanti. Spesso si gioca per Ambata, Ambo e terno, al verificarsi uno dei tre casi positivi lo script segna l' esito e continua. Altrimenti non saprò mai quanti sono i casi positivi e quelli negativi. Ti ringrazio. Ciao

Ciao Antonio Pagano, ho capito, credo che con la funzione ImpostaInterruzioni si dovrebbe riuscire, siccome non l'ho mai usata devo fare delle prove, ti farò sapere

Antonio Pagano · 15 Marzo 2021

salvo50 ha scritto:
Ciao Antonio Pagano, ho capito, credo che con la funzione ImpostaInterruzioni si dovrebbe riuscire, siccome non l'ho mai usata devo fare delle prove, ti farò sapere

Grazie per l'impegno.

salvo50 · 15 Marzo 2021

Antonio Pagano ha scritto:
Grazie per l'impegno.

A pagina 22 post 421, ho aggiunto un altro script con le modifiche da te richieste, ho usato ImpostaInterruzione.

Riguardo alla funzione InterrompiTutteLeGiocate ho guardato nell'help (aiuti) e boh sembra che non da indicazioni, probabilmente interviene dopo qualche condizione.

mister1729 · 7 Giugno 2021

Ciao Salvo,
ho trovato questo sistema su un sito l'ideatore è per quanto ne so' il suo nick name è/era occhidigiada58@,
hai tempo e voglia di riprodurlo '
Grazie indipendentemente dalla tua disponibilita?

Cercare un ambo distanza 45 e isotopo la somma dell’ambo
Moltiplicare il numero somma con i numeri dell’ambo
Le prime due cifre del risultato sara’ la nostra ambata
Determinate nella posizione dell’ambo
abbineremo le tezine simmetriche ad entrambe le ambate
Avremo due ambate e due quartine da giocare sulle ruote di ricerca e sulle diametrali ovviamente nazionale nn avra' la diametrale!!
ruote diametrali
BA NA - CA PA - FI RO - GE TO - MI VE

esempi
3.9.2009
22.67 su milano dist 45 isotopo 89 su nazionale in 4° e 5° posizione
Moltiplicare il numero somma con i numeri dell’ambo
22+89=1958
Le prime due cifre 19 sara’ la nostra ambata
67+89=5963
Prime due cifre 59 sara’ la nostra ambata
I numeri della terzina simmetrica del 19 che sono 49.79 intera terzina simmetrica con l'ambata 59
I numeri della terzina simmetrica del 59 che sono 29.89 intera terzina simmetrica con l'ambata 19

Previsione
Milano venezia nazionale
Ambate 19.59 in 4° e 5° posizione
quartine in gioco
19.59.29.89
19.59.49.79
Al secondo colpo ambata 59 determinata 5° posizione su milano
al 8 colpo ambata 19 in 4° posizione su ve
al 10 colpo ambata 19 in 4° posizione su ve
All’11 colpo ambata 19 in 5° posizione su ve
ambo 49.79 su Nz 10° colpo
ambo 49.19 Ve 10° colpo

Gabry 72 · 17 Luglio 2021

Buona serata,chiedo gentilmente ai professionisti di turno se sia possibile creare un foglio Excel per il metodo di Antonio Longo: "Vincere a colpo con il coificente 0,070"
Complimenti per il forum e per l' impegno,siete fantastici.

GioRyuKen72 · 9 Dicembre 2022

ufolotto ha scritto:
Ciao potete fare listato di questo metodo https://lotto-previsioni-gratis.forumfree.it/?t=76397301

GioRyuKen72 · 9 Dicembre 2022

salvo50 ha scritto:
Ciao a Tutti.

Ciao Ufolotto

Credo si possa fare, appena ho un po' di tempo libero lo faccio, naturalmente se nel frattempo qualcun altro si vuole cimentare è ben accetto

Ciao @salvo50 , ciao @ufolotto e ciao a tutti,
ho modificato uno script che avevo fatto leggendo un post di Kentalotto..

Codice:

Sub Main()
 Scrivi " *****  LA DINAMICA DELLE DISTANZE di Ciro Vitale -- listato GioRyuKen72 ***** ",1,,RGB(143,0,255),5,4
   Scrivi "richiesta di ufolotto"
   Scrivi "https://forum.lottoced.com/threads/script-su-metodi-cabalistici-ciclometrici-c.2089682/post-2477920"
   Scrivi
   ColoreTesto 0

   Dim rt(3),Nn(4),P1,P2,E1,E2,P5,P6,R1,R2,RuoteAmbata(2),Colpi
   Dim Ambata1(2),PostaABT(1),Terzina1(3),Terzina2(3),Terzina3(3),Terzina4(3),Sestina1(6)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),Ambo5(2),PostaA(2),PostaS(5),PostaT(3)
   Dim Ambata,AmbataSecondaria,Num1,Num2,Num3,Num4,Num5,Num6
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
   estra = CInt(InputBox("Quante estrazioni di differenza ricerco? inserire 0 per ricercare nella stessa estrazione, NON FUNZIONA per la ricerca su una RUOTA","RANGE ESTRAZIONI",1))
   Dist = CInt(InputBox("Quale distanza si ricerca?","Distanza",45))
   Colpi = CInt(InputBox("Per quanti colpi di gioco?","Colpi di gioco",20))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      '---------------------------------------- per fare la ricerca su 2 RUOTE----------------
     For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            '-------------------------------------------------------------------------------
            ' ----------------------------------- per fare la ricerca solo su RUOTA -------------
           ' For R1 = 1 To 12
            'R2= R1
            'in questo caso, bisogna disabilitare un NEXT verso la fine dello script
            '-------------------------------------------------------------------------------
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  Nn(1) = Estratto(es -(estra),R1,P1) : Nn(2) = Estratto(es -(estra),R1,P2)
                  Nn(3) = Estratto(es,R2,P1) : Nn(4) = Estratto(es,R2,P2)
                  S2 = ""
                  ' If(R2 = R1 + 1) Or(R2 = RuotaDiametrale(R1))Or(R2 = RuotaGemella(R1)) Then
                  If R2 = R1 + 1 Then S2 = S2 & "Ruote consecutive "
                  If R2 = RuotaDiametrale(R1) Then S2 = S2 & "Ruote Diametrali "
                  If R2 = RuotaGemella(R1) Then S2 = S2 & "Ruote Gemelle "
                  If Distanza(Nn(1),Nn(3)) = Dist Then '22
                     If Distanza(Nn(2),Nn(4)) = Dist Then '22
                        Ambata = Fuori90(Nn(1) + Nn(4)) 'NUMERO BASE forte
                        AmbataSecondaria = Fuori90(Nn(1) + Nn(2)) 'NUMERO BASE debole
                        Num3 = Nn(1)
                        Num4 = Nn(2)
                        Num5 = Nn(3)
                        Num6 = Nn(4)
                        '-------------------------------------------------------
                        rt(1) = R1
                        rt(2) = R2
                        rt(3) = TT_
                        RuoteAmbata(1) = R1
                        RuoteAmbata(2) = R2
                        PostaABT(1) = 2 'posta ambata
                        PostaA(2) = 1 'posta ambo in ambo
                        PostaT(2) = 1 'posta ambo in terzina
                        PostaT(3) = 0.5 'posta terno in terzina
                        'PostaS(2) = 1.50 'posta ambo in sestina
                        PostaS(3) = 0.75 'posta terno in sestina
                        PostaS(4) = 0.20 'posta quaterna in sestina
                        PostaS(5) = 0.05 'posta cinquina in sestina
                        k = Colpi
                        ng = 0
                        '-----------------------------------------------------
                        Ambata1(1) = Ambata
                        Ambata1(2) = AmbataSecondaria
                        ImpostaGiocata 1,Ambata1,RuoteAmbata,PostaABT,k
                        ambo1(1) = Ambata
                        ambo1(2) = AmbataSecondaria
                        ImpostaGiocata 2,ambo1,rt,PostaA,k,2
                        Terzina1(1) = Ambata
                        Terzina1(2) = AmbataSecondaria
                        Terzina1(3) = Nn(1)
                        ImpostaGiocata 3,Terzina1,RuoteAmbata,PostaT,k,2
                        Terzina2(1) = Ambata
                        Terzina2(2) = AmbataSecondaria
                        Terzina2(3) = Nn(2)
                        ImpostaGiocata 4,Terzina2,RuoteAmbata,PostaT,k,2
                        Terzina3(1) = Ambata
                        Terzina3(2) = AmbataSecondaria
                        Terzina3(3) = Nn(3)
                        ImpostaGiocata 5,Terzina3,RuoteAmbata,PostaT,k,2
                        Terzina4(1) = Ambata
                        Terzina4(2) = AmbataSecondaria
                        Terzina4(3) = Nn(4)
                        ImpostaGiocata 6,Terzina4,RuoteAmbata,PostaT,k,2
                        Sestina1(1) = Ambata
                        Sestina1(2) = AmbataSecondaria
                        Sestina1(3) = Num3
                        Sestina1(4) = Num4
                        Sestina1(5) = Num5
                        Sestina1(6) = Num6
                        OrdinaMatrice Sestina1,1
                        ImpostaGiocata 7,Sestina1,RuoteAmbata,PostaS,k,3
                        casi = casi + 1
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                        ColoreTesto 0
                        Scrivi("Estrazione n." & Format2(Es -(estra)) & " del " & DataEstrazione(Es -(estra))),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es -(estra),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(3) Or E2 = Nn(4) Or E2 = Nn(1) Or E2 = Nn(2) Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi String(99,"-"),1
                        ColoreTesto 1
                        ' OrdinaMatrice Nn,1
                        Scrivi "Numeri Ricercati:  " & Format2(Nn(1)) & " - " & Format2(Nn(2)) & " - " & Format2(Nn(3)) & " - " & Format2(Nn(4)) & "  Differenza nr. estrazioni:  " & Format2(estra) & "  su RUOTE: " & Format2(S2),1,0
                        Scrivi
                        ColoreTesto 0
                        Scrivi String(99,"-"),1
                        Scrivi
                        Gioca es,True,,1
                     End If
                     'End If
                  End If
               Next
            Next
         Next
      Next ' questo è il NEXT da disabilitare se si vuole fare la ricerca su una RUOTA sola
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante    " *****  LA DINAMICA DELLE DISTANZE di Ciro Vitale -- listato GioRyuKen72 ***** ",1,RGB(143,0,255),5
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

La ricerca delle ruote, della distanza, delle estrazioni e dei colpi di gioco sono modificabili dall'utente.
Così come è impostato ora fa la ricerca su 2 ruote. E' possibile fare la ricerca su ruota abilitando e disabilitando alcune righe che ho segnalato.

Fammi sapere

Gio.

Script su Metodi Cabalistici, Ciclometrici & C.

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Banned

Banned

Member

Allegati

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Banned

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<