annuncio

Comprimi
Ancora nessun annuncio.

Richiesta di listato

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

  • Richiesta di listato

    Buona sera,

    chiedo a voi la possibilità di avere il listato riguardo alla ricerca che vorrei fare :

    presa l'ultima estrazione in archivio, ipotizziamo Bari, si procederà nel fare somme come segue

    13/08/2019 ruota di Bari : 69 49 21 34 11 ( ultima in archivio )

    ( 1° est + 2° est ) 69 + 49 = 28 (F90)
    ( 2° est + 3° est ) 49 + 21 = 70
    ( 3° est + 4° est ) 21 + 34 = 55
    ( 4° est + 5° est ) 34 + 11 = 45

    i numeri somma ottenuti sono 28 - 70 - 55 - 45

    bisognerebbe scandagliare l'archivio dove ovviamente numeri diversi facendo somma riportino l'esatta quartina.

    faccio io un esempio inventato :

    a marzo 2018 gli estratti a a Bari erano

    18 - 10 - 60 - 85 - 45

    facendo le rispettive somme con eventuale F90 consegnerà stessa quartina : 28 - 70 - 55 - 45

    Resto in attesa che qualcuno possa aiutarmi, grazie.

  • #2
    Originariamente inviato da *blacklotto* Visualizza il messaggio
    Buona sera,

    chiedo a voi la possibilità di avere il listato riguardo alla ricerca che vorrei fare :

    presa l'ultima estrazione in archivio, ipotizziamo Bari, si procederà nel fare somme come segue

    13/08/2019 ruota di Bari : 69 49 21 34 11 ( ultima in archivio )

    ( 1° est + 2° est ) 69 + 49 = 28 (F90)
    ( 2° est + 3° est ) 49 + 21 = 70
    ( 3° est + 4° est ) 21 + 34 = 55
    ( 4° est + 5° est ) 34 + 11 = 45

    i numeri somma ottenuti sono 28 - 70 - 55 - 45

    bisognerebbe scandagliare l'archivio dove ovviamente numeri diversi facendo somma riportino l'esatta quartina.

    faccio io un esempio inventato :

    a marzo 2018 gli estratti a a Bari erano

    18 - 10 - 60 - 85 - 45

    facendo le rispettive somme con eventuale F90 consegnerà stessa quartina : 28 - 70 - 55 - 45

    Resto in attesa che qualcuno possa aiutarmi, grazie.
    Ciao al momento, non posso esserti utile realizzando lo script ,ma se qualcuno volesse cimentarsi mancano alcuni passaggi da spiegare .
    Ti faccio qualche esempio:
    Una volta ricavata la quartina di ricerca dove andrebbe ricercata?
    Sulla ruota di ricavo su una ruota a scelta o su qualsiasi ruota?
    Le somme devono essere isotope o vanno bene in qualsiasi posizione?
    Devono essere presenti tutte e quattro le somme o bisogna scegliere un minimo?
    una volta trovata la condizione cosa bisogna fare ?
    Senza questi questi dati che mi vengono in mente
    magari ne occorrono anche altri e' difficile stabilire come impostare lo script .
    spero di esserti stato utile con questi suggerimenti
    ciao
    NON SI GARANTISCE ALCUNA VINCITA
    Cordiali saluti I Legend

    Commenta


    • #3
      Buon giorno e buon ferragosto a tutti,

      ciao i legend, hai ragione ho tralasciato tutto ciò che hai chiesto e ti do immediata risposta.

      La quartina ottenuta dalle quattro somme specifiche andrà ricercata nella ruota in cui si vorrà svolgere la ricerca,
      le quartine dovranno corrispondere esattamente nelle posizioni base, non a caso, quindi solo isotope.

      se, sempre partendo dall'ultima estrazione in archivio, la scelta sarà nella ruota di Bari

      13/08/2019 ruota di Bari : 69 49 21 34 11 ( ultima in archivio )

      ( 1° est + 2° est ) 69 + 49 = 28 (F90)
      ( 2° est + 3° est ) 49 + 21 = 70
      ( 3° est + 4° est ) 21 + 34 = 55
      ( 4° est + 5° est ) 34 + 11 = 45

      i numeri somma ottenuti sono 28 - 70 - 55 - 45

      la ricerca a ritroso della quartina nella stessa ruota dovrà avere solo stessa posizione per tutte e quattro le somme.

      Ti ringrazio per l'aiuto che mi potrai dare, grazie.

      Commenta


      • #4
        Ciao Blacklotto se trovo dei risultati utili te li posto .





        NON SI GARANTISCE ALCUNA VINCITA
        Cordiali saluti I Legend

        Commenta


        • #5
          Ciao ILegend, Blacklotto

          Ho constatato che non ci sono molti riscontri, ho cercato solo in una ruota, quella di Roma, partendo dall'estrazione n1 del 1871 fino all'ultima in archivio, è risultato solo un riscontro, cioè sono una volta si è verificato la ripetizione isotopa delle 4 somme, che abbia cercato nella ruota sbagliata, non lo sò e non ho nessuna voglia di verificarlo, anche perchè con lo script fatto da me, ci son voluti più di 2 ore per questa ricerca nella ruota di Roma, ti posto lo script ed anche il risultato della ricerca, spero che ILegend riesca a fare uno script più veloce.




          codice:
          Option Explicit
          Sub Main
             Dim Fin,Ini,Es,Es2,R1,Caso,Casi,Ruota
             Dim A12,A23,A34,A45,B12,B23,B34,B45
             Dim A(5),B(5),A1(5),B1(5)
             Fin = EstrazioneFin
             Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,1)
             Ruota = CInt(InputBox(" In quale ruota vuoi fare la ricerca? ",,8))
             Call ScegliRange(Ini,Fin,Ini,Fin)
             Scrivi Space(1) & " CHIESTO DA BLACKLOTTO - SCRIPT SALVO50",1,,4,,3,,1
             For Es = Ini To Fin
                For Es2 = Es + 1 To Fin
                   Caso = 0
                   AvanzamentoElab Ini,Fin,Es
                   For R1 = Ruota To Ruota
                      A(1) = Estratto(Es,R1,1)
                      A(2) = Estratto(Es,R1,2)
                      A(3) = Estratto(Es,R1,3)
                      A(4) = Estratto(Es,R1,4)
                      A(5) = Estratto(Es,R1,5)
                      '
                      B(1) = Estratto(Es2,R1,1)
                      B(2) = Estratto(Es2,R1,2)
                      B(3) = Estratto(Es2,R1,3)
                      B(4) = Estratto(Es2,R1,4)
                      B(5) = Estratto(Es2,R1,5)
                      If A(1) > 0 Then
                         A12 = Fuori90(A(1) + A(2)) : A23 = Fuori90(A(2) + A(3)) : A34 = Fuori90(A(3) + A(4)) : A45 = Fuori90(A(4) + A(5))
                         B12 = Fuori90(B(1) + B(2)) : B23 = Fuori90(B(2) + B(3)) : B34 = Fuori90(B(3) + B(4)) : B45 = Fuori90(B(4) + B(5))
                         If A12 = B12 And A23 = B23 And A34 = B34 And A45 = B45 Then
                            A1(1) = A12 : A1(2) = A23 : A1(3) = A34: A1(4) = A45 : B1(1) = B12 : B1(2) = B23 : B1(3) = B34: B1(4) = B45
                            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 Space(23) & " Somme Calcolate " & StringaNumeri(A1,,True),1,,,2
                            Scrivi
                            Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1),1
                            Scrivi Space(18) & " Somme Uguali Trovate " & StringaNumeri(B1,,True),1,,,2
                         End If
                      End If
                   Next
                Next
                If ScriptInterrotto Then Exit For
             Next
             Scrivi " Tempo Trascorso " & TempoTrascorso
          End Sub
          Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

          (B. Castiglione, - Il cortegiano)

          Commenta


          • #6
            Grazie Salvo 50,

            davvero bravissimo !!! Ti ringrazio per il lavoro svolto domani me lo studierò con più lucidità
            Una cosa vorrei chiederti, la modifica di far partire la ricerca all'inverso, cioè dall'ultima estrazione estratta andando indietro.

            Cordialmente saluto, ciao

            Commenta


            • #7
              Originariamente inviato da *blacklotto* Visualizza il messaggio
              Grazie Salvo 50,

              davvero bravissimo !!! Ti ringrazio per il lavoro svolto domani me lo studierò con più lucidità
              Una cosa vorrei chiederti, la modifica di far partire la ricerca all'inverso, cioè dall'ultima estrazione estratta andando indietro.

              Cordialmente saluto, ciao
              Ciao a Tutti.

              Secondo me in questo caso la ricerca all'indietro non influenza il risultato, con la ricerca all'indietro lo script prima visualizzava l'estrazione 8367 e dopo la 6812, comunque direi di aspettare il parere di ILegend
              Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

              (B. Castiglione, - Il cortegiano)

              Commenta


              • #8
                Originariamente inviato da i legend Visualizza il messaggio
                Ciao Blacklotto se trovo dei risultati utili te li posto .




                Ciao a tutti
                ho scritto così proprio perché i risulta da me ottenuti sono simili a quelli di salvo .
                Ciao.
                NON SI GARANTISCE ALCUNA VINCITA
                Cordiali saluti I Legend

                Commenta


                • #9
                  Ciao ILegend

                  Blacklotto, a riguardo la ricerca all'indietro ho fatto qualche modifica allo script, l'unica differenza con lo script già postato è che questo ha impiegato meno tempo, poco più di 10 minuti in meno, ti posto risultati e script




                  codice:
                  Option Explicit
                  Sub Main
                     Dim Fin,Ini,Es,Es2,R1,Caso,Casi,Ruota
                     Dim A12,A23,A34,A45,B12,B23,B34,B45
                     Dim A(5),B(5),A1(5),B1(5)
                     Fin = EstrazioneFin
                  
                     Ini = InputBox("Inserisci l'estrazione che vuoi finire",,1)
                     Ruota = CInt(InputBox(" In quale ruota vuoi fare la ricerca? ",,8))
                     'Call ScegliRange(Ini,Fin,Ini,Fin)
                     Scrivi Space(1) & " CHIESTO DA BLACKLOTTO Ricerca inversa - SCRIPT SALVO50",1,,4,,3,,1
                     For Es = Fin To Ini Step - 1
                        For Es2 = Es - 1 To Ini Step - 1
                           Caso = 0
                           AvanzamentoElab Fin,Ini,Es
                           For R1 = Ruota To Ruota
                              A(1) = Estratto(Es,R1,1)
                              A(2) = Estratto(Es,R1,2)
                              A(3) = Estratto(Es,R1,3)
                              A(4) = Estratto(Es,R1,4)
                              A(5) = Estratto(Es,R1,5)
                              '
                              B(1) = Estratto(Es2,R1,1)
                              B(2) = Estratto(Es2,R1,2)
                              B(3) = Estratto(Es2,R1,3)
                              B(4) = Estratto(Es2,R1,4)
                              B(5) = Estratto(Es2,R1,5)
                              If A(1) > 0 Then
                                 A12 = Fuori90(A(1) + A(2)) : A23 = Fuori90(A(2) + A(3)) : A34 = Fuori90(A(3) + A(4)) : A45 = Fuori90(A(4) + A(5))
                                 B12 = Fuori90(B(1) + B(2)) : B23 = Fuori90(B(2) + B(3)) : B34 = Fuori90(B(3) + B(4)) : B45 = Fuori90(B(4) + B(5))
                                 If A12 = B12 And A23 = B23 And A34 = B34 And A45 = B45 Then
                                    A1(1) = A12 : A1(2) = A23 : A1(3) = A34: A1(4) = A45 : B1(1) = B12 : B1(2) = B23 : B1(3) = B34: B1(4) = B45
                                    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 Space(23) & " Somme Calcolate " & StringaNumeri(A1,,True),1,,,2
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1),1
                                    Scrivi Space(18) & " Somme Uguali Trovate " & StringaNumeri(B1,,True),1,,,2
                                 End If
                              End If
                           Next
                        Next
                        If ScriptInterrotto Then Exit For
                     Next
                     Scrivi " Tempo Trascorso " & TempoTrascorso
                  End Sub
                  Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                  (B. Castiglione, - Il cortegiano)

                  Commenta


                  • #10
                    Ciao Salvo50, buona giornata a tutti,

                    sto facendo girare il tuo listato modificato, ho messo a 7000 estrazioni, quando terminerà vedremo risultato.
                    Ecco, ha terminato ora la ricerca sulla ruota di Bari questo il resoconto :

                    CHIESTO DA BLACKLOTTO Ricerca inversa - SCRIPT SALVO50
                    Tempo Trascorso 00:07:04

                    Ora farò partire la ricerca a 5000 estrazioni e vedremo se succede qualcosa. La mia domanda leggendo il tuo messaggio è : " Secondo me in questo caso la ricerca all'indietro non influenza il risultato, con la ricerca all'indietro lo script prima visualizzava l'estrazione 8367 e dopo la 6812, comunque direi di aspettare il parere di ILegend "


                    Non capisco perché non si può inserire l'estrazione di partenza come l'ultima estratta in archivio, ma come scrivi tu ne da una a caso, ma la ricerca è stata impostata come base l'ultima estrazione in archivio di Roma ? Tutto deve partire solo da quella li, se faccio calcolo dell'ultima estrazione di Roma, corrisponde al resoconto dato da te nel listato con le somme 25.64.83.33 ? Ha terminato la ricerca di 5000 estrazioni e ha dato questo resoconto :
                    CHIESTO DA BLACKLOTTO Ricerca inversa - SCRIPT SALVO50
                    Tempo Trascorso 00:21:05

                    esito nullo ora proverò a 3000 estrazioni, vedremo il tempo e se ci sarà qualche esito

                    a 7000 Tempo Trascorso 00:07:04 ​​​​​​​
                    a 5000 Tempo Trascorso 00:21:05

                    ​​​​​​​ciao e grazie per quanto si sta facendo !

                    Blacklotto

                    Commenta


                    • #11
                      Ciao appena mi è possibile posto il mio script ,almeno sul mio PC è più veloce.
                      Non entro nel merito del metodo ma solo dell algoritmo per trovare i casi.
                      ciao
                      ://
                      NON SI GARANTISCE ALCUNA VINCITA
                      Cordiali saluti I Legend

                      Commenta


                      • #12
                        Ciao a tutti
                        l algoritmo è da verificare ,
                        sul mio pc è piu veloce , ma i tempi cambiano in base alla potenza della macchina
                        eccolo qui, fatemi sapere se è coretto
                        bisognerebbe vedere se fra quello di salvo è il mio ci sono discordanze
                        codice:
                        codice:
                        Option Explicit
                        ' questo è uno script test, SOLO UN TEST
                        ' lo script è rigorosamente da verificare per vedere se rintraccia tutti i casi CHE SI SONO VENUTI A CREARE
                        Sub Main
                           Dim idEstr,IdSucc,R,p
                           Dim aSum(4),aR(1)
                           Dim i,ii,tro,m
                           ReDim aStat(EstrazioniArchivio,3)
                           ReDim aRuote(0):Call ScegliRuote(aRuote)
                           ReDim aRapp(0)
                           For i = 1 To UBound(aRuote)
                              If aRuote(i) <> 11 Then
                                 m = m + 1
                                 ReDim Preserve aRapp(m)
                                 aRapp(m) = aRuote(i)
                              End If
                           Next
                           Call ResetTimer
                           For R = 1 To UBound(aRapp)
                              aR(1) = aRapp(R)
                              For idEstr = 1 To EstrazioniArchivio
                                 If Estratto(idEstr,aR(1),1) > 0 Then
                                    For i = 1 To 4
                                       aSum(i) = Fuori90(Estratto(idEstr,aR(1),i) + Estratto(idEstr,aR(1),i + 1))
                                    Next
                                    aStat(idEstr,1) = idEstr
                                    aStat(idEstr,2) = StringaEstratti(idEstr,aR(1),".")
                                    aStat(idEstr,3) = StringaNumeri(aSum,".",True)
                                 End If
                              Next
                              Call OrdinaMatriceTurbo(aStat,1,"3,1")
                              tro = 0
                              For idEstr = 1 To UBound(aStat) - 1
                                 If aStat(idEstr,2) <> 0 Then
                                    ReDim aV(0):Call SplitByChar("0." & aStat(idEstr,3),".",aV)
                                    For IdSucc = idEstr + 1 To UBound(aStat)
                                       ReDim aV1(0):Call SplitByChar("0." & aStat(IdSucc,3),".",aV1)
                                       If aV1(1) > aV(1) Then
                                          Exit For
                                       Else
                                          If aStat(idEstr,3) = aStat(IdSucc,3) Then
                                             tro = tro + 1
                                             Scrivi SiglaRuota(aR(1)) & "    " & aStat(idEstr,1) & "   " & aStat(idEstr,2) & "   " & aStat(idEstr,3) & " -> " & aStat(IdSucc,1) & "   " & aStat(IdSucc,2) & "   " & aStat(IdSucc,3)
                                          End If
                                       End If
                                       If ScriptInterrotto Then Exit For
                                    Next
                                    Call AvanzamentoElab(1,UBound(aStat),idEstr)
                                    If ScriptInterrotto Then Exit For
                                 End If
                              Next
                              If tro Then Scrivi String(80,"-")
                           Next
                           Scrivi "elaborato In : " & TempoTrascorso
                        End Sub
                        controllate che non ci siano errori di digitazione , ho inserito scegliruote , per rendere un po piu flessibile il tutto , ma fate le prove del caso

                        se ci sono errori proveremo a risolverli
                        NON SI GARANTISCE ALCUNA VINCITA
                        Cordiali saluti I Legend

                        Commenta


                        • #13
                          Ciao i legend,

                          questa riga If aStat(idEstr,2) <> 0 Then mi blocca l'esecuzione dello script ( Spaziometria 1.6.26 ) e non posso visualizzare
                          che mi puoi consigliare ?

                          Grazie

                          Commenta


                          • #14
                            Controlla che tra <> non ci siano spazi tipo < >
                            io utilizzo la versione 1.6.31
                            Che messaggio di errore da?
                            NON SI GARANTISCE ALCUNA VINCITA
                            Cordiali saluti I Legend

                            Commenta


                            • #15
                              Messaggio

                              errore script!
                              13-tipo nono corrispondente : aStat(...)
                              Linea : 34
                              Colonna : 9
                              Source : Errore di run-time di Microsoft VB Script

                              evidenziando la stringa If aStat(idEstr,2) <> 0 Then

                              ciao

                              Commenta

                              Unconfigured Ad Widget

                              Comprimi

                              Ultima estrazione del lotto

                              Comprimi

                              Estrazione del lotto
                              sabato 24 agosto 2019
                              Bari
                              32
                              81
                              76
                              24
                              77
                              Cagliari
                              53
                              69
                              16
                              66
                              57
                              Firenze
                              71
                              67
                              53
                              16
                              76
                              Genova
                              52
                              39
                              06
                              79
                              55
                              Milano
                              29
                              21
                              69
                              74
                              40
                              Napoli
                              87
                              71
                              79
                              52
                              19
                              Palermo
                              73
                              84
                              49
                              16
                              23
                              Roma
                              56
                              23
                              14
                              79
                              27
                              Torino
                              65
                              13
                              80
                              06
                              49
                              Venezia
                              11
                              13
                              06
                              40
                              65
                              Nazionale
                              42
                              56
                              64
                              80
                              26
                              Sto operando...
                              X