annuncio

Comprimi
Ancora nessun annuncio.

Per salvo50 -Metodo Maltese interessante!

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Per salvo50 -Metodo Maltese interessante!

    [IMG]https://img.*********.net/index_file/spacer.gif[/IMG]
    Ciao salvo50 e tutti, cercando in rete mi sono imbattuto su questo metodo sul "Maltese"...e' senza nome .
    Dai risultati credo valga la pena di creare un listato per testarlo su piu' estrazioni grazie
    [IMG]https://img.*********.net/html/emoticons/smile.gif[/IMG]


    SOLO UNA PARENTESI NEI MIEI STUDI SUL" MALTESE":
    DAL “QUADRARO DEL MALTESE”:
    COME DA VOSTRA RICHIESTA, MOSTRO PER LA PRIMA VOLTA UN ACCENNO SUI MIEI STUDI CIRCA LE PRESUNTE PROCEDURE ADOTTATE DAL MISTERIOSO “MALTESE” SECONDO LE MIE PERSONALI INTERPRETAZIONI!
    SICCOME SONO QUADRATI CHE IO “RAZIONALMENTE” CHIAMO “MODULI ARTMETICI” CHE HANNO UNA PARZIALE SIMILITUDINE CON GLI ANTICHI QUADRATI CINESI, MA CHE VANNO RICOSTRUITI TRA VARIE ESTRAZIONI DI UNA DETERMINATA RUOTA, LA PROCEDURA SAREBBE MOLTO LUNGA DA SPIEGARE, PERCIO’ NE MOSTRO UNO FACILMENTE VISIVO FORMATOSI NELLE ULTIME 4 ESTRAZIONI CONSECUTIVE, DELL’ANNO APPENA TRASCORSO CHE HA CONTRIBUITO A PORTARE LE VINCITE DI CAPODANNO SULLA RUOTA DI BARI!
    QUESTI TIPI SONO UN PO’ PIU’ RARI MA OGNI TANTO ESCONO ANCHE COSI’:
    ESTR. 18/12/04 BA XX-XX-61-XX-XX
    ESTR. 22/12/04 BA 14-46-48-XX-XX
    ESTR. 27/12/04 BA 59-03-89-XX-XX
    ESTR. 29/12/04 BA 02-15-18-XX-XX
    IN QUESTO MODULO DI 10 NUMERI POSSIAMMO NOTARE DIVERSE ARMONIE MATEMATICHE , PER PRIMA COSA POTETE OSSERVARE CHE TUTTI E 10 DIVISI IN 5 COPPIE DANNO 17 COME VALORE DI SOMMA:
    61+46=17
    14+03=17
    48+59=17
    89+18=17
    02+15=17
    PERCIO’ CONSIDERIAMO IL 17 COME VALORE DOMINANTE, QUINDI FUTURA AMBATA!
    IL 61 ,POI, CHE E’ IL NUMERO DI APERTURA DI QUESTA ARMONIA LO RITROVIAMO ESPRESSO NEGLI STESSI VALORI DI SOMMA CONTENUTI IN QUESTO MODULO:
    1) NELLA SOMMA DELLA TERZA RIGA: 59+3+89= 61 (CALCOLI SEMPRE EFFETTUATI COL -90),
    2) NELLA SOMMA TRA 59 E 2 NELLA PRIMA COLONNA VERTICALE DI SINISTRA (59+2=61)
    3) NELLA SOMMA TRA 46 E 15 NELLA SECONDA COLONNA VERTICALE CENTRALE (46+15=61)
    PERCIO’ IL 61 OLTRE AL TENTATIVO DI ABBINAMENTO COME NUMERO DI APERTURA MA PRESUMIBILE ANCHE DI CHIUSURA, ASSUME UNA RILEVANZA NEL RUOLO DELLE SOMME!
    QUINDI IN GENERE IO ABBINO ALL’AMBATA IL NUMERO DI APERTURA FORMANDO UN SOLO AMBO SECCO, IN QUESTO CASO: 17-61!
    PER LE SORTI DI TERNO E QUATERNA ABBINO IL NUMERO INTEGRATORE TRA IL 17 AL 61, OVVERO LA DIFFERENZA 44 (61-17=44) E LA SOMMA TRA 17 E 61, OVVERO 78 (61+17=78)!
    PREVISIONE FINALE SU BARI:
    17 AMBATA
    17-61 AMBO
    17-61-44 AMBO E TERNO
    17-61-44-78 AMBO, TERNO, QUAT.
    LA VINCITA L’ABBIAMO AVUTA A COLPO CON 17 AMBATA, 17-61 AMBO, 17-61-44 TERNO SECCO E TERNO ANCHE IN QUARTINA!
    PERCIO’ LA QUINTA RIGA DEL MODULO, OVVERO NELL’ESTRAZ. DEL 3/1/05 SI E’ CONCLUSA NELLO STESSO MODO ISOTOPO, CIOE’ NELLE MEDESIME POSIZIONI DI 1°/2°/3° ESTRATTO CON 61 IN CHIUSURA, 17 DOMINANTE, 44 INTEGRATORE:
    ESTR. 18/12/04 BA XX-XX-61-XX-XX
    ESTR. 22/12/04 BA 14-46-48-XX-XX
    ESTR. 27/12/04 BA 59-03-89-XX-XX
    ESTR. 29/12/04 BA 02-15-18-XX-XX
    ESTR. 03/01/05 BA 61-17-44-XX-XX

    E QUESTA ERA LA PREVISIONE PRIORITARIA, MA DAL MODULO INIZIALE RILEVIAMO ANCHE ALTRI INDIZI ARMONICI, E CIOE’ IL DOPPIO RUOLO DEL 18 ULTIMO DELLA COLONNA VERTICALE DI DESTRA PERCHE’ IN SENSO DIAGONALE DA DESTRA VERSO SINISTRA COMPONE SOMMA 35 (18+3+14=35) E IN SENSO ORIZZONTALE COMPONE SEMPRE 35 (18+15+2=35), NONCHE’ IL 18 ESPRESSO ANCH’EGLI IN VALORI DI SOMME CONTENUTI NEL MODULO:
    1) SECONDA RIGA ORIZZONTALE : 14+46+48=18
    2) SECONDA COLONNA VERTICALE : 3+15=18
    3) DIFFERENZA TRA LE 2 DIAGONALI : 18+3+14=35 E 2+3+48=53 QUINDI 53-35=18
    PERCIO’ SI AVEVA UNA SECONDA PREVISIONE CON AMBATA 18 E AMBO SECCO 18-35 DUPLICE SOMMA TRA LA RIGA ORIZZ. E LA DIAGONALE CON LO STESSO VERTICE 18!
    LA VINCITA SI E’ AVUTA AL 4° COLPO CON AMBATA 18 SU BARI E AMBO SECCO 18-35!
    NOTASI ANCHE CHE NELL’ULTIMA ESTR. DI MERC. 19/1/05 E’ RICOMPARSO SU BARI IL 18 IN TERNO CON 44-78 I 2 NUMERI DI SOMMA E DIFFERENZA TRA 17-61 DELLA PRIMA PREVISIONE!
    QUESTO E’ UN ACCENNO AI MIEI STUDI SU QUESTO FENOMENO E L’IPOTESI DI ELABORAZIONI SECONDO LA MIA INTERPRETAZIONE NELLE PROCEDURE DEL MALTESE! QUESTA PARENTESI, QUINDI, QUI SI E’ APERTA E QUI SI CHIUDE!
    POI SIA O NON SIA COSI’, L’IMPORTANTE E’ CHE ESCA IL SUGO IN QUELLO CHE SI FA’ CON TANTA PAZIENZA E DEDIZIONE!

  • #2
    grande Nunzio

    Commenta


    • #3
      Ciao a Tutti.

      Ho dato una rapida occhiata e non lo vedo semplice fare questo script, ci provo, naturalmente chiunque può cimentarsi a fare questo script, per me è complicato, ma per altri può essere semplice.
      Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

      (B. Castiglione, - Il cortegiano)

      Commenta


      • #4
        Ciao a Tutti.

        Questo script è solo una bozza, prima di proseguire devo chiederti qualche chiarimento, però adesso non ho tempo, a dopo

        codice:
        Option Explicit
        Sub Main
           Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1
           Dim Ruota,X,Y,Somma(45),K,K1,K2,S1,S2
           Dim A(5),B(5),C(5),D(5),Num(10)
        
           Fin = EstrazioneFin
           Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)'7395 per l'esempio nell'articolo, Ruota Bari
           Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
           'Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
           Call ScegliRange(Ini,Fin,Ini,Fin)
           Scrivi Space(1) & " PER MATEMATICO - BOZZA PER QUADRATO MALTESE - SCRIPT SALVO50",1,,4,,3,,1
           For Es = Ini To Fin
              'If IndiceMensile(Es) = 1 Then
              Caso = 0
              Messaggio(Es)
              AvanzamentoElab Ini,Fin,Es
              For R1 = Ruota To Ruota
                 S1 = ""
                 S2 = ""
                 For P1 = 1 To 5
                    A(P1) = Estratto(Es,R1,P1)
                    B(P1) = Estratto(Es + 1,R1,P1)
                    C(P1) = Estratto(Es + 2,R1,P1)
                    D(P1) = Estratto(Es + 3,R1,P1)
                 Next
                 If A(1) > 0 Then
                    Num(1) = A(3)
                    Num(2) = B(1) : Num(3) = B(2) : Num(4) = B(3)
                    Num(5) = C(1) : Num(6) = C(2) : Num(7) = C(3)
                    Num(8) = D(1) : Num(9) = D(2) : Num(10) = D(3)
                    K = 0
                    For X = 1 To 9
                       For Y = X + 1 To 10
                          K = K + 1
                          Somma(K) = Fuori90(Num(X) + Num(Y))
                       Next
                    Next
                    Caso = Caso + 1
                    Casi = Casi + 1
                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                    '
                    Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
                    '
                    Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
                    '
                    Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
                    '
                    Scrivi
                    Scrivi " Tutte le 45 somme che si formano con i 10 numeri ",1,0
                    Scrivi StringaNumeri(Num," ",True),1
                    Scrivi StringaNumeri(Somma," ",True),1
                    Scrivi String(89,"*")
                    ReDim VetRitornoN(45)
                    ReDim VetRitornoQ(45)
                    Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
                    For K1 = 1 To UBound(VetRitornoN)
                       S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
                    Next
                    Scrivi "Somme Rilevate più di una volta    " & S1,1
                    For K2 = 1 To UBound(VetRitornoQ)
                       S2 = S2 &(VetRitornoQ(K2) & "  ")
                    Next
                    Scrivi "Quante volte per ogni somma        " & S2,1
                    'ImpostaGiocata 1,Amba,Ru,Posta,Clp,2,4
                    'Gioca Es
                 End If
              Next
              'End If
           Next
           'ScriviResoconto
        End Sub
        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

        (B. Castiglione, - Il cortegiano)

        Commenta


        • #5
          Ciao salvo50, ok và bene quado puoi ...comunque ti dico subito che c'è qualcosa che non và nello script, perchè' la condiizone di ricerca è quella di rilevare 5 somme che diano lo stesso numero che poi sarà l'ambata capogioco come da esempio...
          Ultima modifica di Matematico; 15-06-2019, 21:15.

          Commenta


          • #6
            Originariamente inviato da Matematico Visualizza il messaggio
            Ciao salvo50, ok và bene quado puoi ...comunque ti dico subito che c'è qualcosa che non và nello script, perchè' la condiizone di ricerca è quella di rilevare 5 somme che diano lo stesso numero che poi sarà l'ambata capogioco come da esempio...
            Ciao Matematico, lo script va bene, sono io che ho sbagliato facendo visualizzare troppe cose, che ho capito che a te non interessano, adesso ho tolto la visualizzazione delle 45 somme, ho lasciato tutti i numeri che hanno la somma uguale per più di una volta, perchè non riesco a separare quella che si verifica per 5 volte, quindi chiedo aiuto, come faccio una volta trovato tutte le somme, a estrapolare solo quella che si verifica 5 volte?

            E faccio visualizzare solo le estrazioni che hanno somme uguali per 5 volte, alla fine c'è un resoconto di tutte le somme che si sono verificate per 5 volte nell'arco di estrazioni impostate, solo per curiosità ho messo un inputobox per variare questo valore di 5, se qualcuno vuole fare esperimenti cercando altre somme.

            Quindi se non ho questo valore che è la somma uguale per 5 volte, non posso andare avanti per finire lo script, questo script come quello del post 4 è solo una BOZZA

            Rinnovo l'aiuto per estrapolare solo le somme che si sono verificate per 5 volte.

            Grazie

            codice:
            Option Explicit
            Sub Main
               Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1,K3
               Dim Ruota,X,Y,Somma(45),K,K1,K2,S1,S2
               Dim Amba(2),Ru(1),Posta(2),OK,Q,K4,S4
               Dim A(5),B(5),C(5),D(5),Num(10)
               Posta(1) = 1
               Posta(2) = 1
               Fin = EstrazioneFin
               Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,1)'7395 per l'esempio nell'articolo, Ruota Bari
               Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
               Q = CInt(InputBox("Quale numero dei ripetuti deve trovare? Da 2 a 7",,5))
               Call ScegliRange(Ini,Fin,Ini,Fin)
               Scrivi Space(1) & " PER MATEMATICO - BOZZA PER QUADRATO MALTESE - SCRIPT SALVO50",1,,4,,3,,1
               For Es = Ini To Fin
                  'If IndiceMensile(Es) = 1 Then
                  Caso = 0
                  Messaggio(Es)
                  AvanzamentoElab Ini,Fin,Es
                  For R1 = Ruota To Ruota
                     S1 = ""
                     S2 = ""
                     S4 = ""
                     For P1 = 1 To 5
                        A(P1) = Estratto(Es,R1,P1)
                        B(P1) = Estratto(Es + 1,R1,P1)
                        C(P1) = Estratto(Es + 2,R1,P1)
                        D(P1) = Estratto(Es + 3,R1,P1)
                     Next
                     If A(1) > 0 Then
                        Num(1) = A(3)
                        Num(2) = B(1) : Num(3) = B(2) : Num(4) = B(3)
                        Num(5) = C(1) : Num(6) = C(2) : Num(7) = C(3)
                        Num(8) = D(1) : Num(9) = D(2) : Num(10) = D(3)
                        K = 0
                        For X = 1 To 9
                           For Y = X + 1 To 10
                              K = K + 1
                              Somma(K) = Fuori90(Num(X) + Num(Y))
                           Next
                        Next
                        ReDim VetRitornoN(45)
                        ReDim VetRitornoQ(45)
                        Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
                        For K1 = 1 To UBound(VetRitornoN)
                           S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
                        Next
                        For K4 = 1 To UBound(VetRitornoQ)
                           S4 = S4 &(VetRitornoQ(K4) & "  ")
                        Next
                        OK = 0
                        For K2 = 1 To UBound(VetRitornoQ)
                           If VetRitornoQ(K2) = Q Then
                              K3 = K3 + 1
                              S2 = S2 &(VetRitornoQ(K2) & "  ")
                              OK = 1
                           End If
                        Next
                        If OK = 1 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                           '
                           Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
                           '
                           Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
                           '
                           Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
                           '
                           Scrivi
                           Scrivi String(89,"*")
                           Scrivi "Somme Rilevate più di una volta    " & S1,1,,,1
                           Scrivi "Quante volte per ogni somma        " & S4,1,,,1
                           Scrivi "Quantità somme utili               " & S2,1,,,2
                           Ru(1) = R1
                        End If
                     End If
                  Next
               Next
               Scrivi
               Scrivi"  Dall'estrazione n" & Ini & " All'estrazione n" & Fin &  " Totale delle somme che si ripetano per ",1,0
               Scrivi Format2(Q) & "  Volte  = " & K3,1
               Scrivi
               If Q = 1 Then Scrivi " Hai inserito 1, numero non ammesso, devi inserire minimo 2 ",1,,,2,3
               If Q > 7 Then Scrivi " Hai inserito un numero superioe a 7, è molto improbabile che si verifica qualche caso ",1,,,2,3
            End Sub
            Ultima modifica di salvo50; 16-06-2019, 19:29.
            Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

            (B. Castiglione, - Il cortegiano)

            Commenta


            • #7
              Ciao salvo
              metti una array con indice la somma
              E conta + 1


              alla fine. Leggi questa array
              e scrivi solo la somma che ha 5 presenze



              Sempre che io abbia capito ma ho letto velocemente
              Ultima modifica di Rubino; 16-06-2019, 19:21.
              ...ciao

              Commenta


              • #8
                Ciao Rubino, grazie per aver risposto, per questo calcolo uso la funzione NumeriRipetutiRilevatiV

                codice:
                ReDim VetRitornoN(45)
                            ReDim VetRitornoQ(45)
                            Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
                
                
                ' con questo For-Next calcolo i numeri che sono doppi, tripli,ecc...          
                
                For K1 = 1 To UBound(VetRitornoN)
                               S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
                            Next
                
                'Con questo le quantità
                For K4 = 1 To UBound(VetRitornoQ)
                               S4 = S4 &(VetRitornoQ(K4) & "  ")
                            Next
                            OK = 0
                
                'con questo estrapolo solo le quantita (per le quantità ci sono riuscito)
                For K2 = 1 To UBound(VetRitornoQ)
                               If VetRitornoQ(K2) = Q Then
                                  K3 = K3 + 1
                                  S2 = S2 &(VetRitornoQ(K2) & "  ")
                                  OK = 1
                               End If
                            Next
                quindi per le quantità sono riuscito a estrapolarle, quello che non riesco ad estrapolare è il numero che è uguale per tutte le somme 5, esempio




                mi serve estrapolare il numero 36 nel primo esempio ed il numero 06 nel secondo esempio,
                cioè quelli dove sotto sono visualizzate la quantità, nei casi da me segnati il 5 (5 volte)



                Ultima modifica di salvo50; 16-06-2019, 20:41.
                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • #9
                  io farei così o qualcosa di questo genere, nella tua routine aggiungerei

                  t = 0
                  ReDim sn(3)
                  For K2 = 1 To UBound(VetRitornoQ)
                  If VetRitornoQ(K2) = Q Then
                  K3 = K3 + 1
                  S2 = S2 &(VetRitornoQ(K2) & " ")
                  If VetRitornoQ(K2) = 5 Then
                  t = t + 1
                  sn(t) = VetRitornoN(K2)
                  End If

                  OK = 1
                  End If
                  Next

                  per vederla in output ho buttato li questa soluzione

                  Scrivi "Quantità somme utili " & S2 & " " & sn(1) & " / " & sn(2) & " / " & sn(3),1,,,2


                  come vedi dove ci sono più somme (5) ne può elencare piu' di una, lo fa anche dove c'è ne una sola

                  nella arrays sn hai le somme che ti interessano




                  Clicca sull'immagine per ingrandirla.Â*  Nome:   Cattura.GIFÂ* Visite: 0Â* Dimensione: 23.0 KBÂ* ID: 2176372
                  Ultima modifica di Rubino; 16-06-2019, 21:08.
                  ...ciao

                  Commenta


                  • #10
                    Grazie Mille Rubino, non ci sarei arrivato neanche fra 100 anni
                    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                    (B. Castiglione, - Il cortegiano)

                    Commenta


                    • #11
                      Un grazie infinito di cuore a salvo50 e a Rubino x l'ottima assistenza....davvero un bel lavoro !

                      Buon a serata a voi due in particolare e a tutti

                      Commenta


                      • #12
                        Alla prima domanda chiede il numero dell'estrazione che vuoi iniziare - è impostata su 1
                        Alla seconda domanda chiede il numero della ruota - è impostata su Bari
                        Alla terza domanda chiede il numero di somme uguali - è impostata su 5
                        Alla quarta domanda se rispondi 1 fa vedere un po di calcoli in più - è impostata a 0

                        Se si verificano 2 combinazioni o più, fa solo l'ultima, che con 5 somme in tutte le estrazioni dal 1871 si è verificata solo una volta.

                        Nelle spiegazioni fa 2 previsioni con calcoli differenti, questo script appartiene alla previsione prioritaria per l'altra previsione farò un altro script, perchè più o meno al 50% i calcoli sono differenti


                        codice:
                         Option Explicit
                        Sub Main
                           Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1,K3,Vi
                           Dim Ruota,X,Y,K,K1,K2,S1,S2,OK,Q,K4,S4
                           Dim Amba(2),Ru(1),Post1(1),Somma(45),K5
                           Dim A(5),B(5),C(5),D(5),Abb(2),Num(10)
                           Dim Post2(2),Post3(3),Post4(4),Num2(4)
                           Post1(1) = 1
                           Post2(2) = 1
                           Post3(2) = 1
                           Post3(3) = 1
                           Post4(2) = 1
                           Post4(3) = 1
                           Post4(4) = 1
                           Fin = EstrazioneFin
                           Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,1)'7401 per l'esempio nelle spiegazioni, Ruota Bari
                           Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
                           Q = CInt(InputBox("Quale numero dei ripetuti deve trovare? Da 2 a 7",,5))
                           Vi =(InputBox(" Se vuoi visualizzare tutte le somme SI = 1 - per NO metti altro",,0))
                           Clp = InputBox(" Per quanti colpi vuoi giocare? ",,5)
                        
                           Call ScegliRange(Ini,Fin,Ini,Fin)
                           Scrivi Space(1) & " PER MATEMATICO - QUADRATO MALTESE di ??? - PREVISIONE PRIORITARIA - SCRIPT SALVO50 con l'aiuto di Rubino",1,,4,,3,,1
                           For Es = Ini To Fin
                              Caso = 0
                              Messaggio(Es)
                              AvanzamentoElab Ini,Fin,Es
                              For R1 = Ruota To Ruota
                                 S1 = ""
                                 S2 = ""
                                 S4 = ""
                                 For P1 = 1 To 5
                                    A(P1) = Estratto(Es,R1,P1)
                                    B(P1) = Estratto(Es + 1,R1,P1)
                                    C(P1) = Estratto(Es + 2,R1,P1)
                                    D(P1) = Estratto(Es + 3,R1,P1)
                                 Next
                                 If A(1) > 0 Then
                                    Num(1) = A(3)
                                    Num(2) = B(1) : Num(3) = B(2) : Num(4) = B(3)
                                    Num(5) = C(1) : Num(6) = C(2) : Num(7) = C(3)
                                    Num(8) = D(1) : Num(9) = D(2) : Num(10) = D(3)
                                    K = 0
                                    For X = 1 To 9
                                       For Y = X + 1 To 10
                                          K = K + 1
                                          Somma(K) = Fuori90(Num(X) + Num(Y))
                                       Next
                                    Next
                                    ReDim VetRitornoN(1)
                                    ReDim VetRitornoQ(1)
                                    Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
                                    For K1 = 1 To UBound(VetRitornoN)
                                       S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
                                    Next
                                    For K4 = 1 To UBound(VetRitornoQ)
                                       S4 = S4 &(VetRitornoQ(K4) & "  ")
                                    Next
                                    OK = 0
                                    ReDim Sn(1)
                                    For K2 = 1 To UBound(VetRitornoQ)
                                       If VetRitornoQ(K2) = Q Then
                                          K3 = K3 + 1
                                          S2 = S2 &(VetRitornoQ(K2) & " ")
                                          Sn(1) = VetRitornoN(K2)
                                          OK = 1
                                       End If
                                    Next
                                    If OK = 1 Then
                                       Abb(1) = Differenza(A(3),Sn(1))
                                       Abb(2) = Fuori90(A(3) + Sn(1))
                                       For K5 = 1 To 4
                                          Num2(K5) = 0
                                       Next
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                                       Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                                       '
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                                       '
                                       Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
                                       '
                                       Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
                                       '
                                       Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
                                       '
                                       Scrivi
                                       If Vi = 1 Then
                                          Scrivi String(89,"*")
                                          Scrivi " Somme Rilevate più di una volta    " & S1,1,,,1
                                          Scrivi " Quantità Convergenti               " & S4,1,,,1
                                       End If
                                       Scrivi " Ambata Principale                  " & Format2(Sn(1)),1,,,2
                                       Scrivi " Ambata Secondaria                  " & Format2(A(3)),1,,,1
                                       Scrivi " Abbinamento Principale             " & Format2(Abb(1)),1,,,2
                                       Scrivi " Abbinamento Secondario             " & Format2(Abb(2)),1,,,1
                                       Ru(1) = R1
                                       Num2(1) = Sn(1)
                                       ImpostaGiocata 1,Num2,Ru,Post1,Clp,,3
                                       Num2(2) = A(3)
                                       ImpostaGiocata 2,Num2,Ru,Post2,Clp,,3
                                       Num2(3) = Abb(1)
                                       ImpostaGiocata 3,Num2,Ru,Post3,Clp,,3
                                       Num2(4) = Abb(2)
                                       ImpostaGiocata 4,Num2,Ru,Post4,Clp,,3
                                       Gioca Es
                                    End If
                                 End If
                              Next
                           Next
                           ScriviResoconto
                           Scrivi
                           If Vi = 1 Then
                              Scrivi"  Dall'estrazione n" & Ini & " All'estrazione n" & Fin & " Totale delle somme che si ripetano per ",1,0
                              Scrivi Format2(Q) & "  Volte  = " & K3,1
                           End If
                           Scrivi
                           If Q = 1 Then Scrivi " Hai inserito un numero inferiore a 2, numero non ammesso, devi inserire minimo 2 ",1,,,2,3
                           If Q > 7 Then Scrivi " Hai inserito un numero superioe a 7, è molto improbabile che si verifica qualche caso ",1,,,2,3
                        End Sub
                        Ultima modifica di salvo50; 17-06-2019, 23:33.
                        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                        (B. Castiglione, - Il cortegiano)

                        Commenta


                        • #13
                          ciao Salvo potresti mettere la giocata a 18 colpi mi fare si fermi a 5 solo colpi Grazie

                          Commenta


                          • #14
                            Nulla ci sono riuscito a mettere 18 colpi ...grazie lo stesso

                            Commenta


                            • #15
                              Ciao Byron, mi fa piacere che hai iniziato a smanettare con gli script
                              Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                              (B. Castiglione, - Il cortegiano)

                              Commenta

                              Unconfigured Ad Widget

                              Comprimi

                              Ultima estrazione del lotto

                              Comprimi

                              Estrazione del lotto
                              sabato 22 giugno 2019
                              Bari
                              51
                              42
                              19
                              58
                              13
                              Cagliari
                              13
                              84
                              17
                              36
                              82
                              Firenze
                              20
                              31
                              79
                              30
                              54
                              Genova
                              70
                              58
                              02
                              40
                              62
                              Milano
                              82
                              73
                              52
                              72
                              79
                              Napoli
                              54
                              84
                              36
                              69
                              70
                              Palermo
                              16
                              46
                              51
                              42
                              13
                              Roma
                              31
                              39
                              35
                              65
                              30
                              Torino
                              12
                              43
                              74
                              17
                              88
                              Venezia
                              06
                              55
                              70
                              46
                              62
                              Nazionale
                              42
                              06
                              45
                              76
                              12
                              Sto operando...
                              X