annuncio

Comprimi
Ancora nessun annuncio.

Script

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

  • #16
    deve mostrarmi i casi in gioco che hanno raggiunto i 12 colpi e non hanno dato esito.
    Se analizzo gli ultimi 18 sorteggi ipotizziamo data fine archivio 9668 io analizzo dalla 9650 mi mostrerà le previsioni che hanno raggiunto i 12 colpi e non hanno ancora dato esito

    Commenta


    • #17
      mi mostrerà previsioni alla cui chiusura mancano 6 colpi ...altre con 5 colpi alla conclusione e cosi via

      Commenta


      • #18
        Se non mi fai un esempio con numeri anche fittizzi non lo capisco, cioè mi devi fare un disegnino di come dovrebbe essere l'output, sono duro di comprendonio, non ci posso fare niente.

        Prova questo e speriamo bene.

        codice:
        Option Explicit
        Sub Main
           Dim FIn,Es,Ini,Clp1,Salvo50,E1,S1,S2,S3
           Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,Attesa
           Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
           Dim Posta(1),Ruote(2),Nu(2),Poste(2)
           FIn = EstrazioneFin
           Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500))
           P1 = CInt(InputBox("INSERISCI IL 1° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,3))
           P2 = CInt(InputBox("INSERISCI IL 2° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,1))
           P3 = CInt(InputBox("INSERISCI IL 3° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,2))
           If P1 <> P2 And P1 <> P3 And P2 <> P3 Then
              Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
              Clp1 = CInt (InputBox("PER QUANTI COLPI VUOI GIOCARE?",,18))
              Call ScegliRange(Ini,FIn,Ini,FIn)
              Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
              Posta(1) = 1
              Poste(2) = 1
              So1 = Clp1 - Attesa
              S4 = Attesa + So1
              For R1 = 1 To 12
                 If R1 = 11 Then R1 = 12
                 Caso = 0
                 For Es = Ini To FIn
                    Messaggio Es & "   PRIMA RUOTA  " & NomeRuota(R1)
                    AvanzamentoElab Ini,FIn,Es
                    For R2 = 1 To 12
                       If R2 = 11 Then R2 = 12
                       If R1 <> R2 Then
                          A = Estratto(Es,R1,P1)
                          B = Estratto(Es,R1,P2)
                          C = Estratto(Es,R1,P3)
                          If A > 0 Then
                             S1 = Fuori90(A + B)
                             S2 = Fuori90(B + C)
                             S3 = Fuori90(S1 + S2)
                             VertS3 = Vert(S3)
                             CaS3 = Cadenza(S3)
                             CaVertS3 = Cadenza(VertS3)
                             If Not Gemello(S3)And Not Gemello(VertS3) And CaS3 <> 9 And CaVertS3 <> 9 Then
                                Ruote(1) = R1
                                Ruote(2) = R2
                                Nu(1) = S3 : Nu(2) = VertS3
                                If SerieFreqTurbo(Es,Es + S4,Nu,Ruote,1) = 0 Then
                                   Caso = Caso + 1
                                   Casi = Casi + 1
                                   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                   Scrivi String(72,"*") & " Casi con la Prima Ruota " & SiglaRuota(R1) & " = " & FormattaStringa(Caso,"0000"),1,,,1
                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                   Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                   For P6 = 1 To 5
                                      E1 = Estratto(Es,R1,P6)
                                      If E1 = A Or E1 = B Or E1 = C Then
                                         ColoreTesto 2
                                      Else
                                         ColoreTesto 0
                                      End If
                                      Scrivi Format2(E1) & " ",1,0
                                      ColoreTesto 0
                                   Next
                                   Scrivi "  Seconda Ruota ",1,0
                                   Scrivi NomeRuota(R2),1,,,2
                                   Scrivi
                                   Scrivi Space(12) & " PIRAMIDE",1,,,2
                                   Scrivi Space(12) & Format2(A) & "  " & Format2(B) & "  " & Format2(C),1
                                   Scrivi Space(14) & Format2(S1) & "  " & Format2(S2),1
                                   Scrivi Space(16) & Format2(S3),1
                                   Scrivi
                                   Scrivi "     COLPI DI ATTESA IMPOSTATI " & Format2(Attesa)
                                   Scrivi
                                   ImpostaGiocata 1,Nu,Ruote,Posta,S4,1',Attesa
                                   ImpostaGiocata 2,Nu,Ruote,Poste,S4,2',Attesa
                                   Gioca Es
                                End If
                             End If
                          End If
                       End If
                    Next
                 Next
                 If ScriptInterrotto Then Exit Sub
              Next
              ScriviResoconto
           End If
           If P1 = P2 Or P1 = P3 Or P2 = P3 Then Scrivi " HAI INSERITO 2 O PIU' POSIZIONI UGUALI NELLA 1ª RUOTA",1,,,2
        End Sub
        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

        (B. Castiglione, - Il cortegiano)

        Commenta


        • #19
          è giusto
          solo che che i casi in cui non ha maturato gli 11 colpi di attesa (se la metto a 11) non li deve mostrare.
          Se metto attesa minima 11 la previsione deve avere almeno 11 colpi di gioco e non aver dato esito per cui le ultime 10 estrazioni dalla fine archivio non le deve considerare.
          Il resto è tutto ok
          MANCANO le permutazioni che spero arrivino presto


          ************************************************** ********************** Casi con la Prima Ruota NZ = 0040 Estrazione n.9654 del 11.07.2019 NZ 84 02 71 49 22
          Seconda Ruota Milano


          questa ha una sola estrazione di gioco
          Ultima modifica di sorujoe; 15-07-2019, 16:57.

          Commenta


          • #20
            se deve "maturare" 11 colpi perche fa vedere questa che ne ha appena 8? Clicca sull'immagine per ingrandirla. 

Nome:   Cattura.PNG 
Visite: 111 
Dimensione: 104.4 KB 
ID: 2180913

            Commenta


            • #21
              acc.....
              che la luce sia con te.

              Commenta


              • #22
                Originariamente inviato da sorujoe Visualizza il messaggio
                se deve "maturare" 11 colpi perche fa vedere questa che ne ha appena 8? Clicca sull'immagine per ingrandirla. 

Nome:   Cattura.PNG 
Visite: 111 
Dimensione: 104.4 KB 
ID: 2180913
                perchè la 9655 è l'ultima estrazione in archivio, non può farne vedere più di 8 le altre non esistono ancora
                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • #23
                  ok GRAZIE spero tu riesca nelle permutazioni in modo che in automatico girino tutte le possibili posizioni generate da una cinquina.
                  Se qualche buona anima che passa da qui vuole dare una mano è bene accetta ....ma ci credo poco.
                  Ultima modifica di sorujoe; 15-07-2019, 21:01.

                  Commenta


                  • #24
                    Originariamente inviato da sorujoe Visualizza il messaggio
                    ok GRAZIE spero tu riesca nelle permutazioni in modo che in automatico girino tutte le possibili posizioni generate da una cinquina.
                    Se qualche buona anima che passa da qui vuole dare una mano è bene accetta ....ma ci credo poco.

                    La terzina è diventata cinquina, o ti sei sbagliato?
                    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                    (B. Castiglione, - Il cortegiano)

                    Commenta


                    • #25
                      No volevo dire tutte le terzine che si formano con 5 posizioni ....per il resto hai fatto come sempre un LAVORONE sei un MASTER

                      Commenta


                      • #26
                        Mi auguro che la riesci a spuntare e a compiere il passo ultimo delle permutazioni delle tre posizioni su 5 totali ...aspetto e spero cmnq GRAZIE Salvo
                        Grazie anche al Buon Rubino che mi ha sopportato ....un altro FUORICLASSE degli script che spero ti aiuti in questa fase finale.

                        Commenta


                        • #27
                          ...se si mette è fatta ..sperem

                          Commenta


                          • #28
                            Quindi le permutazioni da sviluppare non sono più 6 ma 60 perchè ogni cinquina sviluppa 10 terzine.
                            Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                            (B. Castiglione, - Il cortegiano)

                            Commenta


                            • #29
                              Tutte quelle che generano le tre posizioni su cinque numeri scambiandosi anche l'ordine; cosi copriamo il 100% delle combinazioni. Pensavo fosse piu semplice ma come vedo pur trattandosi di un semplice calcolo ha creato non pochi problemi cmnq confido nelle vostre abilità informatiche ...il buon LuigiB lo farebbe in 2 secondi ma non oso nemmeno pensarlo.
                              Altri sono molto bravi però non si degnano di calcolarmi.
                              Di te sono fiero Salvo mi hai fatto gran bei lavori e anche Rubino ad onor del vero mi ha modificato e ottimizzato script ....la verità prima di ogni cosa.
                              Per adesso il piu è fatto speriamo di venirne fuori nel minor tempo possibile.
                              CMNQ GRAZIE DI TUTTO

                              Commenta


                              • #30
                                Originariamente inviato da sorujoe Visualizza il messaggio
                                Tutte quelle che generano le tre posizioni su cinque numeri scambiandosi anche l'ordine; cosi copriamo il 100% delle combinazioni. Pensavo fosse piu semplice ma come vedo pur trattandosi di un semplice calcolo ha creato non pochi problemi cmnq confido nelle vostre abilità informatiche ...il buon LuigiB lo farebbe in 2 secondi ma non oso nemmeno pensarlo.
                                Altri sono molto bravi però non si degnano di calcolarmi.
                                Di te sono fiero Salvo mi hai fatto gran bei lavori e anche Rubino ad onor del vero mi ha modificato e ottimizzato script ....la verità prima di ogni cosa.
                                Per adesso il piu è fatto speriamo di venirne fuori nel minor tempo possibile.
                                CMNQ GRAZIE DI TUTTO
                                Ciao a Tutti.

                                E' evidente che quando hai fatto questa richiesta, non ti sei reso conto di quante previsioni vengono fuori, facciamo un po' di calcoli, per una sola estrazione,

                                imposto le coppie solo per una ruota esempio Bari

                                BA - CA
                                BA - FI
                                BA - GE
                                BA - MI
                                BA - NA
                                BA - PA
                                BA - RO
                                BA - TO
                                BA - VE
                                BA - NZ

                                sono 10 coppie, per tutte le ruote le coppie dovrebbero essere 55, ma invece sono 110 perche in questo metodo, esempio BA-CA non è uguale a CA-BA.

                                Ogni coppia sviluppa 60 permutazioni, quindi

                                60 * 110 = 6600 piramidi

                                ho constatato che per via dei filtri a volte ne scarta pochissimi (un migliaio) e a volte più di 6000,

                                comunque se imposto più di 3 estrazioni, mi si impalla Spaziometria, per continuare devo chiuderlo e riaprirlo

                                ecco lo script, segnalami eventuali errori


                                codice:
                                Option Explicit
                                Sub Main
                                   Dim FIn,Es,Ini,Clp1,Salvo50,E1,S1,S2,S3
                                   Dim R1,R2,P1,P6,Attesa,Permut,Riga,Cls,Col
                                   Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
                                   Dim Posta(1),Ruote(2),Nu(2),Poste(2),Num(5)
                                   Dim A(60),B(60),C(60)
                                   FIn = EstrazioneFin
                                   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn - 3))
                                   Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
                                   Clp1 = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?",,18))
                                   Call ScegliRange(Ini,FIn,Ini,FIn)
                                   Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
                                   Cls = 3
                                   Posta(1) = 1
                                   Poste(2) = 1
                                   So1 = Clp1 - Attesa
                                   S4 = Attesa + So1
                                   For R1 = 1 To 12
                                      If R1 = 11 Then R1 = 12
                                      Caso = 0
                                      For Es = Ini To FIn
                                         Messaggio Es & "   PRIMA RUOTA  " & NomeRuota(R1)
                                         AvanzamentoElab Ini,FIn,Es
                                         For R2 = 1 To 12
                                            If R2 = 11 Then R2 = 12
                                            If R1 <> R2 Then
                                               For P1 = 1 To 5
                                                  Num(P1) = Estratto(Es,R1,P1)
                                               Next
                                               If Num(1) > 0 Then
                                                  'CALCOLO DELLE PERMUTAZIONI
                                                  Permut = SviluppoPermutazioni(Num,Cls)
                                                  For Riga = 1 To UBound(Permut)
                                                     For Col = 1 To Cls
                                                        Num(Col) = Permut(Riga,Col)
                                                        If Col = 1 Then A(Riga) = Num(Col)
                                                        If Col = 2 Then B(Riga) = Num(Col)
                                                        If Col = 3 Then C(Riga) = Num(Col)
                                                     Next
                                                     'FINE CALCOLO DELLE PERMUTAZIONI
                                                     S1 = Fuori90(A(Riga) + B(Riga))
                                                     S2 = Fuori90(B(Riga) + C(Riga))
                                                     S3 = Fuori90(S1 + S2)
                                                     VertS3 = Vert(S3)
                                                     CaS3 = Cadenza(S3)
                                                     CaVertS3 = Cadenza(VertS3)
                                                     If Not Gemello(S3)And Not Gemello(VertS3) And CaS3 <> 9 And CaVertS3 <> 9 Then
                                                        Ruote(1) = R1
                                                        Ruote(2) = R2
                                                        Nu(1) = S3 : Nu(2) = VertS3
                                                        If SerieFreqTurbo(Es,Es + S4,Nu,Ruote,1) = 0 Then
                                                           Caso = Caso + 1
                                                           Casi = Casi + 1
                                                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                                           Scrivi String(72,"*") & " Casi con la Prima Ruota " & SiglaRuota(R1) & " = " & FormattaStringa(Caso,"0000"),1,,,1
                                                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                           For P6 = 1 To 5
                                                              E1 = Estratto(Es,R1,P6)
                                                              If E1 = A(Riga) Or E1 = B(Riga) Or E1 = C(Riga) Then
                                                                 ColoreTesto 2
                                                              Else
                                                                 ColoreTesto 0
                                                              End If
                                                              Scrivi Format2(E1) & " ",1,0
                                                              ColoreTesto 0
                                                           Next
                                                           Scrivi "  Seconda Ruota ",1,0
                                                           Scrivi NomeRuota(R2),1,,,2
                                                           'Scrivi
                                                           Scrivi Space(12) & " PIRAMIDE",1,,,2
                                                           Scrivi Space(12) & Format2(A(Riga)) & "  " & Format2(B(Riga)) & "  " & Format2(C(Riga)),1
                                                           Scrivi Space(14) & Format2(S1) & "  " & Format2(S2),1
                                                           Scrivi Space(16) & Format2(S3),1
                                                           'Scrivi
                                                           Scrivi "     COLPI DI ATTESA IMPOSTATI " & Format2(Attesa)
                                                           'Scrivi
                                                           ImpostaGiocata 1,Nu,Ruote,Posta,S4
                                                           ImpostaGiocata 2,Nu,Ruote,Poste,S4
                                                           Gioca Es
                                                        End If
                                                     End If
                                                  Next
                                               End If
                                            End If
                                         Next
                                      Next
                                      If ScriptInterrotto Then Exit Sub
                                   Next
                                   'ScriviResoconto
                                End Sub











                                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
                                martedì 20 agosto 2019
                                Bari
                                24
                                48
                                85
                                86
                                23
                                Cagliari
                                36
                                88
                                16
                                82
                                51
                                Firenze
                                10
                                05
                                57
                                39
                                43
                                Genova
                                56
                                52
                                11
                                06
                                03
                                Milano
                                88
                                34
                                85
                                60
                                40
                                Napoli
                                87
                                61
                                45
                                71
                                76
                                Palermo
                                78
                                63
                                32
                                26
                                57
                                Roma
                                50
                                69
                                41
                                75
                                47
                                Torino
                                76
                                80
                                64
                                46
                                60
                                Venezia
                                04
                                53
                                73
                                21
                                15
                                Nazionale
                                14
                                05
                                64
                                46
                                37
                                Sto operando...
                                X