Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<
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
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Red*one

Junior Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
Ciao a Tutti.

Secondo me uno esperto in materia per rispondere alla tua domanda è Matematico, ho notato che in altre sezioni di questo sito, i suoi pronostici sono spesso vincenti.

Invece se vuoi proprio uno script sempre vincente, basta fare una piccola modifica ad uno dei miei ultimi script postati, esempio il secondo
Script con ruota uguale a quella di calcolo
ed avrai uno script sempre vincente, naturalmente se uno dice che è valido, è una truffa, lo posto solo per curiosità, poi lo tolgo

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 Es,,,1
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
End Sub
 

Red*one

Junior Member
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

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

Allegati

  • BBBBBB.jpg
    BBBBBB.jpg
    135,5 KB · Visite: 21

Antonio Pagano

Junior Member
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

Junior Member
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

Advanced Member >PLATINUM PLUS<
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

Member
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

Advanced Member >PLATINUM PLUS<
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.
 
Ultima modifica:

Antonio Pagano

Junior Member
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

Advanced Member >PLATINUM PLUS<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 10 aprile 2021
    Bari
    56
    82
    66
    18
    11
    Cagliari
    49
    20
    83
    38
    22
    Firenze
    36
    68
    83
    66
    32
    Genova
    42
    34
    85
    17
    26
    Milano
    53
    17
    14
    80
    60
    Napoli
    70
    85
    57
    81
    90
    Palermo
    82
    43
    89
    85
    52
    Roma
    30
    43
    02
    61
    80
    Torino
    51
    55
    89
    81
    23
    Venezia
    70
    29
    54
    32
    27
    Nazionale
    50
    21
    69
    43
    73
    Estrazione Simbolotto
    Genova
    36
    07
    31
    03
    43
Alto