annuncio

Comprimi
Ancora nessun annuncio.

Script

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

  • Script

    script
    Ultima modifica di sorujoe; 15-07-2019, 02:04.

  • #2
    codice HTML:
    Option Explicit
    Sub Main
       '''''
       '''''script valido per 3 posizioni immesse altrimenti errore
       '''' esclude numeri piramidati uguali a gemello o cadenza(9)
       '''''
       ColoreTesto(1)
       Scrivi "Byron-20",1
       ColoreTesto(0)
       Dim r,es,n,p,e,j,retrit,retritmax,rite,rita,a,b,c,ct,ctr,nc,ini,ctv
       Dim an(2)
       ''
       r = CInt(InputBox("Inserisci Ruota ",,6))
       p = InputBox("Inserisci posizioni",,"1-3-5")
       es = InputBox("Estrazione n.",,EstrazioneFin)
       nc = CInt(InputBox("n.Colpi ",,13))
       '''
       '''rileva estratti e piramidati si ottiene un numero che con il suo vertibile sono l'ambata e l'ambo
       '''
       Scrivi "Ricerca Estratti nelle posizioni richieste",1
       ReDim av(3)
       Call SplitByChar(p,"-",av)
      ''''''
       ColoreTesto(2)
       Scrivi "Ruota Richiesta.." & NomeRuota(r),1
       Scrivi "dall Estrazione n." & es + 1 & " / " & DataEstrazione(es + 1),1
       Scrivi "Posizioni Richieste.." & p,1
       ColoreTesto(0)
       ''''''
       '''''loop
       ini = es
       Scrivi "---------------------------------------------------------------------------------------------",1
       For es = es + 1 To EstrazioneFin - 1
          ctr = ctr + 1
          Messaggio(es)
          '''prepara arrays estratti
          Scrivi es & " / " & DataEstrazione(es) & "  Rilevati.. " & Format2(Estratto(es,r,av(0))) & "." & Format2(Estratto(es,r,av(1))) & "." & Format2(Estratto(es,r,av(2))) & "   Nelle Posiz." & p,1
          a = Fuori90(Estratto(es,r,av(0)) + Estratto(es,r,av(1)))
          b = Fuori90(Estratto(es,r,av(1)) + Estratto(es,r,av(2)))
          c = Fuori90(a + b)
          Scrivi Format2(a) & " " & Format2(b)
          Scrivi Format2(c) & " Vert." & Vert(Format2(c)),1
          an(1) = Format2(c)
          an(2) = Vert(Format2(c))
          ColoreTesto(2)
          Scrivi "Numero Piramidato e suo vertibile ..." & Format2(an(1)) & "." & Format2(an(2)),1
          ColoreTesto(0)
          '''''
             ReDim ar(2)
             ar(1) = r
             For j = 1 To 11
                If j <> r Then
                   If j = 11 Then j = 12
                   ar(2) = j
                   rite = RitardoCombinazioneTurbo(ar,an,1,EstrazioneFin)
                   rita = RitardoCombinazioneTurbo(ar,an,2,EstrazioneFin)
                   If rite >= 11 Then
                            ctv = ctv + 1
                            ColoreTesto(1)
                         Scrivi "Estr.n." & EstrazioneFin & "  colpo n. " & EstrazioneFin - es & "   " & SiglaRuota(ar(1)) & " / " & SiglaRuota(ar(2)) & "  Estratti  " & Format2(an(1)) & "." & Format2(an(2)) & "  Ritardi....Estratto." & FormattaStringa(rite,"000") & "  Ambo.." & FormattaStringa(rita,"0000"),1
                            ColoreTesto(0)
                   End If
                End If
             Next
             If ctv = 0 Then
                ColoreTesto(0)
                Scrivi "La previsione non rientra nei limiti del ritardo minimo impostato  ",1
                ColoreTesto(0)
             End If
          Scrivi "---------------------------------------------------------------------------------------------",1
       Next
       Scrivi "Totale combinazioni calcolate " & ctr,1
       Scrivi "Totale Combinazioni valide..  " & ctv,1
    End Sub

    Commenta


    • #3
      c'è qualcuno ????

      Commenta


      • #4
        Salvo50 che fine hai fatto????

        Commenta


        • #5
          Byron sai che oggi è domenica?

          qua ti metto lo script come lo avevi richiesto l'altra volta.

          Bhe ora sei passato anche a voler le permutazioni delle posizioni,

          mah, sai cosa vuol dire? già devi controllare un tabulato di 10 ruote con delle combinazioni rintracciate relative ad un terzetto di estratti
          in posizione, se per non digitare le posizioni, ma sparare nel mucchio e farlo fare in automatico, vuol anche dire poi,
          avere 60 circa elenchi o output da controllare e come fai a controllarli tutti.?

          mah, a che ti servono tutti sti dati da controllare?

          spero che leggi quello che scrivo, visto che l'altra volta "Avevo messo che i gemelli e cadenza 9", lo avrei fatto successivamente
          ma tu continui a dire, che lo script è sbagliato ed è quello che non hai detto all'inizio.
          sicuramente non ti piacerà!

          questo è lo script, fin qui fatto, come avevi richiesto fino ad ieri.


          codice:
          Option Explicit
          Sub Main
             '''''
             '''''script valido per 3 posizioni immesse altrimenti errore,rilanciare !!!!
             '''' esclude numeri piramidati uguali a gemello o cadenza(9) o nr.09 90
             '''''
             ColoreTesto(1)
             Scrivi "Byron-20",1
             ColoreTesto(0)
             Dim r,es,n,p,e,j,retrit,retritmax,rite,rita,a,b,c,ct,ctr,nc,ini,ctv,esini,x
             Dim an(2)
             ''
             p = InputBox("Inserisci posizioni",,"1-3-5")
             esini = InputBox("dall Estrazione n.",,EstrazioneFin)
             nc = CInt(InputBox("n.Colpi ",,18))
             ''
             ''''''loop automatico delle ruote
             For r = 1 To 12
                If r <> 11 Then
                   Scrivi:Scrivi:Scrivi String(89,"*")
                   '''rileva estratti e piramidati si ottiene un numero che con il suo vertibile sono l'ambata e l'ambo
                   '''
                   ReDim av(3)
                   Call SplitByChar(p,"-",av)
                   ''''''
                   ColoreTesto(2)
                   Scrivi "Ruota Richiesta.." & NomeRuota(r),1
                   ColoreTesto(0)
                   Scrivi "dall Estrazione n." & esini & " / " & DataEstrazione(esini) & " - all estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
                   Scrivi "Posizioni Richieste.." & p,1
                   ColoreTesto(0)
                   ''''''
                   '''''loop
                   ini = esini
                   es = esini
                   Scrivi "-------------------------------------------------------------",1
                   For es = es + 1 To EstrazioneFin - 1
                      ctr = ctr + 1
                      Messaggio(es)
                      '''prepara arrays estratti
                      a = Fuori90(Estratto(es,r,av(0)) + Estratto(es,r,av(1)))
                      b = Fuori90(Estratto(es,r,av(1)) + Estratto(es,r,av(2)))
                      c = Fuori90(a + b)
                      '''''
                      an(1) = Int(c)
                      an(2) = Vert(Int(c))
                      '''
                      '''
                      If Int(c) <> 90 And Int(c) <> 9 Then '''' esclusione 09 90
                         If Gemello(Int(c)) = False And Gemello(Vert(Int(c))) = False Then ''' esclusione gemello
                            If Cadenza(c) < 9 Or Cadenza(Vert(c)) < 9 Then ''' esclusione cadenza (9)
                               '''
                               ColoreTesto(0)
                               '''''
                               ct = 0 : x = 0
                               ReDim ar(2)
                               ar(1) = r
                               For j = 1 To 11
                                  If j <> r Then
                                     If j = 11 Then j = 12
                                     ar(2) = j
                                     rite = RitardoCombinazioneTurbo(ar,an,1,EstrazioneFin)
                                     rita = RitardoCombinazioneTurbo(ar,an,2,EstrazioneFin)
                                     If(EstrazioneFin - es) <= nc Then
                                        If rite >= 11 Then
                                           If x = 0 Then
                                              Scrivi es & " / " & DataEstrazione(es) & "  Rilevati.. " & Format2(Estratto(es,r,av(0))) & "." & Format2(Estratto(es,r,av(1))) & "." & Format2(Estratto(es,r,av(2))) & "   Nelle Posiz." & p,1
                                              Scrivi "Numero Piramidato e suo vertibile ..." & Format2(an(1)) & "." & Format2(an(2)),1
                                              x = 1
                                           End If
                                           ''
                                           ct = ct + 1
                                           ColoreTesto(1)
                                           Scrivi "Estr.n." & EstrazioneFin & "  colpo n. " & EstrazioneFin - es & "   " & SiglaRuota(ar(1)) & " / " & SiglaRuota(ar(2)) & "  Estratti  " & Format2(an(1)) & "." & Format2(an(2)) & "  R.C..Estratto." & FormattaStringa(rite,"000") & "     R.C..Ambo.." & FormattaStringa(rita,"0000"),1
                                           ColoreTesto(0)
                                           If rita < nc Then
                                              Scrivi "---->  Scartata perchè Ritardo Estratti troppo basso  <----",1
                                           Else
                                              ctv = ctv + 1
                                           End If
                                        End If
                                     End If
                                  End If
                               Next
                               ''''
                               If ct >= 1 Then Scrivi "------------------------------------------------------------",1
                               '''
                            End If
                         End If
                      End If
                   Next
                End If
                ''''loop ruote
             Next
             Scrivi "Totale combinazioni calcolate " & ctr,1
             Scrivi "Totale Combinazioni valide..  " & ctv,1
             Scrivi:Scrivi "Tempo Elab." & TempoTrascorso,1
          End Sub
          Ultima modifica di Rubino; 14-07-2019, 21:01.
          ...ciao

          Commenta


          • #6
            Ciao a Tutti

            Ciao Sorujoe


            La permutazione delle posizioni non l'ho fatto perchè non so come fare, le permutazioni possibili con 3 numeri sono 6, già così impostando solo 150 estrazioni per ogni ruota di media risultano 100 previsioni perchè come da te richiesto scarta i gemelli, i finali 9 e quelli che nelle prime 11 estrazioni (cambiabili da esterno) hanno avuto dei riscontri, quindi giustamente come dice Rubino, mettendo anche le permutazioni vengono fuori moltissime, previsioni, comunque lo script rispetta la sequenza delle 3 posizioni, quindi se per esempio imposti posizioni 1-3-2 la base della piramide sarà con le posizioni 1-3-2


            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
               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 = InputBox("PER QUANTI COLPI VUOI GIOCARE?",,13)
                  Call ScegliRange(Ini,FIn,Ini,FIn)
                  Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
                  Posta(1) = 1
                  Poste(2) = 1
                  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 + Attesa,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,Clp1,1,Attesa
                                       ImpostaGiocata 2,Nu,Ruote,Poste,Clp1,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
            Ultima modifica di salvo50; 15-07-2019, 09:03.
            Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

            (B. Castiglione, - Il cortegiano)

            Commenta


            • #7
              Ti ringrazio tuttavia lo script deve visualizzare SOLO le previsioni in gioco da almeno 11 colpi e non ancora sfaldate (al momento le mostra tutte). Se alzo tale valore a 15 anche con le permutazioni sulle posizioni le previsioni in gioco saranno pochissime quindi non c'è il problema di avere un mare di giocate; per cui è utile farle. Sperando che qualcuno lo faccia ti ringrazio ancora e ti chiedo di eliminare i casi in cui la previsione non abbia raggiunto i colpi indicati ed eliminare i casi in cui la previsione ha dato esito.

              p.s.
              Se puoi aggiungere questo filtro:
              Eliminare le previsioni in cui v'è presente l'ambata sulle ruote di gioco nell'estrazione di rilevamento. Grazie

              Commenta


              • #8
                Originariamente inviato da sorujoe Visualizza il messaggio
                Ti ringrazio tuttavia lo script deve visualizzare SOLO le previsioni in gioco da almeno 11 colpi e non ancora sfaldate (al momento le mostra tutte).
                Ma come fai a dire che le mostra tutte, dove guardi?




                Ho preso una estrazione a caso, la prima, il circoletto in alto è l'estrazione dove fa i calcoli, nel circoletto in basso c'è l'estrazione dove inizia la ricerca quindi
                9517 - 9505 = 12 hai impostato 11 ed è giusto così perchè l'estrazione 9517 non si deve contare, le 11 estrazioni di attesa si calcolano fino alla 9516 e visualizza solo le estrazioni che nei primi 11 non è uscito nessuna previsione, se in quelle 11 estrazioni è uscito anche un solo numero dei 2 previsti, quella estrazione la scarto, io ho capito così, se è è diversamente, spiegati meglio, anche con più di un esempio.


                p.s.
                Se puoi aggiungere questo filtro:
                Eliminare le previsioni in cui v'è presente l'ambata sulle ruote di gioco nell'estrazione di rilevamento. Grazie
                si può fare
                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • #9
                  Scusa Salvo lo script mi deve fare vedere solo i casi in gioco da almeno 11 sorteggi e non ancora sortiti.
                  Se metto 11 e tempo di gioco 18 il software mi deve mostrare i casi in cui una previsione ha raggiunto almeno 11 sorteggi di gioco e non avente dato esito. Se una previsione arriva alla 18ma senza esito è negativo.
                  Ma i casi sfaldati oltre la 11ma non deve farli vedere

                  Commenta


                  • #10
                    Quindi non deve far vedere nessun caso positivo, l'output deve mostrare solo i casi negativi?

                    Se non è così, quali sono i casi positivi che deve far vedere?
                    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                    (B. Castiglione, - Il cortegiano)

                    Commenta


                    • #11
                      Mettiamo di essere al concorso 9670 (ultimo concorso in archivio); se metto data di inizio analisi concorso 9650 per 18 colpi e tempo di attesa 12
                      deve fare vedere le previsioni che hanno raggiunto i 12 colpi di gioco e che non hanno ancora dato esito
                      é ovvio che se una previsione giunge al 19mo colpo la marca come negativo
                      Previsioni sfaldate non ne deve proprio far vedere
                      Per questo è importante la permutazione sulle posizioni poiche casi giocabili ne saranno pochi se alzo l'attesa a 15 colpi per esempio

                      Commenta


                      • #12
                        Originariamente inviato da sorujoe Visualizza il messaggio
                        Mettiamo di essere al concorso 9670 (ultimo concorso in archivio); se metto data di inizio analisi concorso 9650 per 18 colpi e tempo di attesa 12
                        per 18 colpi e tempo di attesa 12, cosa vuol dire che dopo i 12 colpi, per il conteggio dei 18 colpi si inizia da 1, oppure si inizia da 13, cioè nei 18 colpi si conteggiano anche i 12 colpi, per me non è ovvio.

                        Per questo è importante la permutazione sulle posizioni poiche casi giocabili ne saranno pochi se alzo l'attesa a 15 colpi per esempio
                        Io l'ho alzata a 24 ed i colpi negativi sono di meno, ma sempre molti, comunque, a tempo perso cercherò di inserire le permutazioni, se ci riesco.





                        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                        (B. Castiglione, - Il cortegiano)

                        Commenta


                        • #13
                          Un pronostico rilevato dall'estrazione 9650 alla 9662 ha 12 colpi dei 18 ...per essere visualizzato non deve aver dato esito ed io avrò dovuto impostare il tempo di attesa massimo a 12 ...se lo avessi impostato a 13 lo avrebbe visualizzato il concorso seguente sempre che ancora in gioco e sarebbe il 13mo colpo dei 18 ...quindi in gioco per altri 5 sorteggi

                          Commenta


                          • #14
                            se puoi rilasciami una versione in cui le posizioni le immetto io temporaneamente

                            Commenta


                            • #15
                              Originariamente inviato da sorujoe Visualizza il messaggio
                              Un pronostico rilevato dall'estrazione 9650 alla 9662 ha 12 colpi dei 18 ...per essere visualizzato non deve aver dato esito ed io avrò dovuto impostare il tempo di attesa massimo a 12 ...se lo avessi impostato a 13 lo avrebbe visualizzato il concorso seguente sempre che ancora in gioco e sarebbe il 13mo colpo dei 18 ...quindi in gioco per altri 5 sorteggi
                              Non capisco, ma a che serve fare questa distinzione di 12 e 18, impostalo direttamente a 18, dato che deve segnare solo i colpi negativi.

                              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ì 16 luglio 2019
                              Bari
                              04
                              82
                              36
                              66
                              02
                              Cagliari
                              11
                              38
                              16
                              86
                              41
                              Firenze
                              77
                              90
                              85
                              37
                              82
                              Genova
                              01
                              37
                              03
                              69
                              47
                              Milano
                              29
                              50
                              18
                              77
                              62
                              Napoli
                              56
                              43
                              32
                              90
                              70
                              Palermo
                              70
                              27
                              43
                              49
                              10
                              Roma
                              65
                              90
                              47
                              34
                              29
                              Torino
                              28
                              04
                              58
                              64
                              69
                              Venezia
                              14
                              04
                              48
                              59
                              11
                              Nazionale
                              43
                              66
                              56
                              47
                              61
                              Sto operando...
                              X