annuncio

Comprimi
Ancora nessun annuncio.

Lotteria MillionDay

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

  • #31
    Buona sera a tutti,

    grazie Mike58, grazie per la tua disponibilità ad inserire questi listati per MillionDay.
    Seguo molto volentieri i tuoi capolavori che permettono di incominciare a seguire questo ' intrigante ' gioco che ha molti punti da chiarire, da capire e da esaminare.
    55 i numeri a pronostico, 55 sono i numeri estratti al gioco del lotto ad estrazione con 90 numeri fissi
    5 i numeri estratti, come 5 i numeri estratti per ogni ruota al gioco del lotto
    1 estrazione al giorno, 3 estrazioni a settimana per il gioco del lotto.
    Sulle vincite dei due giochi ci sarebbe lunga conversazione, ma prendendo in causa solo Millionday :

    2 = 2,00
    3 = 50,00
    4 = 1.000,00
    5 = 1.000.000,00


    a parte la differenza discutibile tra le sorti, prendiamo solo la maggiore, costo fisso 1€ a cinquina azzeccata premio la bellezza di 1 milione di €

    ma guardiamo un attimo tutte le probabilità :

    2 = 17,7
    3 = 284
    4 = 13.915
    5 = 3.478.761


    con la possibilità di mettere a pronostico solo cinque numeri a schedina, ci si dovrà confrontare con 3.478.761 cinquine dove nessuna potrà essere messa in discussione, a differenza del Lotto, dove vedersi estratte cinquine tipo queste :

    01 - 02 - 03 -0 4 - 05
    51 - 52 - 53 - 54 - 55

    diventerà cosa ovvia di normale estrazione, e, vedersi estratte in giorni consecutivi cinquine tipo :

    44 - 49 - 41 - 46 - 40
    49 - 46 - 40 - 44 - 41
    40 - 41 - 49 - 46 - 44

    con la stessa cinquina.

    A vedere, le cinquine totali non sono poi tantissime .... vuoi che in tutt'Italia non le si giochino ?
    Bè, certo, c'è un'estrazione tutti i giorni.
    Ma anche se in un'intera regione, ogni abitante giocasse una combinazione tanto da coprirle tutte, uno solo sarebbe milionario, e qualcuno, in piena tranquillità, se ne porterebbe a casa due sicuri di milioni, anzi di più !

    Resta comunque un " gioco " interessante, e come piace a Mike58, piace anche a me.

    Grazie Luigi B, spaziometria è grande, grande come il tuo lavoro per questo programma.

    ... a presto, blacklotto

    Commenta


    • Mike58
      Mike58 commentata
      Modifica di un commento
      Bene almeno siamo in 2 che dimostrano in modo costruttivo di apprezzare il gioco

  • #32
    ottimo,ma ho inserito l'archivio ma mi dice che non esiste,,,inoltre come si aggiorna l'archivio ?grazie.
    che la luce sia con te.

    Commenta


    • Mike58
      Mike58 commentata
      Modifica di un commento
      Alien, ma sai usare gli archivi FT (File di Testo) ?
      Questi sono archivi con aggiornamenti manuali e vanno richiamati dalla directory salvata.
      Io ogni tanto metto l'archivio aggiornato ma poi sta a chi vuole utilizzarlo tenerselo aggiornato.
      Ultima modifica di Mike58; 11-03-2018, 23:59.

  • #33
    Si Mike, gioco interessante.
    Grazie ai tuoi capolavori, e, anch'io facendo fatica a capire l'inserimento delle estrazioni, ora superato grazie ai tuoi consigli, ora posso darmi da fare sperimentando e modificando in piena armonia.
    Per esempio mi son fatto il listato, sempre portando modifiche ai tuoi che mi trova le somme degli estratti, ora cercherò di poter giungere a piramidarli, e via via alle migliaia i possibilità nella ricerca.
    Non ho limiti nelle ricerche, nella metodologia, e nella fantasia di giungere a discreta positività nel pronostico, e tutto quello che presumo, intuisco, idea, ogni piccolo cavillo sarà buono per dare spunto a cosa nuova.

    Insisti Alien ! ... se ci sono arrivato io ...

    blacklotto

    Commenta


    • #34
      Ciao Mike58, grazie per quanto metti in condivisione mi accodo ai complimenti degli altri utenti.

      Questo nuovo gioco ha incuriosito anche me .
      Il mio intervento è riferito a questo tuo scritto:

      Fatene buon uso e soprattutto si accettano idee e suggerimenti sulla Lotteria (solo basi Statistiche).
      Proviamo a stilare una prima bozza, anche se il campionamento è ancora esile:

      Su 33 estrazioni avvenute un solo terno si è ripetuto, (11.22.49) presenze (2)

      Per gli ambi ne abbiamo 3 con 3 presenze, (06.29) (43.46) (46.47)

      Si potrebbe a questo punto spaziare su formazioni eterogenee per poter trovare qualche cosa di utile, dal tuo spunto su 13 numeri ho trovato con il vecchio procedimento Nikor (trattato tempo fa sul Forum) una lunghetta con esiti soddisfacenti.

      01.05.13.16.19.20.23.29.40.43.44.46.47

      Nelle 33 estrazioni ha dato ben 16 presenze di un punteggio > = del 3 !
      Prova se hai tempo e voglia ad inserire nei tuoi listati i numeri e fammi sapere se ne vale la pena continuare….. poi per i sistemi non ci sono problemi, tempo permettendo sono a disposizione .

      Buon inizio settimana, Nikor.

      Commenta


      • #35
        Ciao Blacklotto,
        Ciao Nikor

        Mi fa piacere trovare chi collabora in modo costruttivo, avete perfettamente recepito il messaggio che volevo dare.

        Tutto nel limite del possibile si può sviluppare senza presunzione di perfezione ma solo mettere nero su bianco una sorte di idea.

        Confermo i dati di nikor per i terni e gli ambi che già ho sviluppato, ma per questi è ancora presto per raccogliere dati leggibili ai fini statistici.

        Mentre per le formazioni eterogenee si possono mettere in manuale in un array e verificarne i dati statistici.

        per Nikor sono sicuro saprai mettere lo sviluppo in manuale nei vari array, intanto cominciamo a vedere la tua lunghette per sorte.

        codice:
        Sub Main
         Dim Nu(55),T,V,Ru(1),Np(90),sFile
         sFile = ScegliFile(,,".txt")
         Call ApriBaseDatiFT(sFile,5,",",55)
         Ini = 1
         fin = EstrazioniArchivioFT
         Call ScegliRange(ini,fin,1,EstrazioniArchivioFT)
         Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
         Scrivi "Estrazione Inizio........... " & Ini
         Scrivi "Estrazione Fine............. " & fin
         Scrivi "Totali Estrazioni........... " &(fin - Ini) + 1
         Scrivi
         sorte = CInt(InputBox("Quale sorte di esito verifico ",,2))
         Scrivi "Sorte di verifica... " & NomeSorte(sorte),1
         T = Array(T,"Combinazione","Frequenza","Ritardo","Rit_Max","InCr","Verifica","ID DATA")
         Call InitTabella(T)
         For x = 1 To 10
          ' ............ inizio inserimento .................... di x
          Np(1) = Array(0,1,5,13,16,19,20,23,29,40,43,46,47)
          Np(2) = Array(0,11,13,20)
          Np(3) = Array(0,11,20,55)
          Np(4) = Array(0,13,20,27)
          Np(5) = Array(0,11,20,48)
          Np(6) = Array(0,3,13,20,27)
          Np(7) = Array(0,3,13,20,54)
          Np(8) = Array(0,11,20,37,42)
          Np(9) = Array(0,13,20,51)
          Np(10) = Array(0,20,27,51)
          ' .......... fine inserimento ...........................
          Call StatisticaFormazioneFT(Np(x),sorte,rit,max,Incr,fre,Ini,fin)
          Call VerificaEsitoFT(Np(x),fin,sorte,1,esito,,es1,id)
          V = Array(V,StringaNumeri(Np(x)),fre,rit,max,Incr,es1,GetInfoEstrazioneFT(id))
          Call AddRigaTabella(V)
          Call SetColoreCella(3,7,5)
         Next
         Call CreaTabella(5)
        End Sub
        Ultima modifica di Mike58; 12-03-2018, 10:21.
        Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

        Commenta


        • #36
          Ciao Mike58 tutto perfetto, ho fatto una verifica con il tuo listato e risulta tutto esatto.

          Solo un piccolissimo errore di omissione del numero 44 , avevi inserito solo 12 numeri invece di 13 ma il concetto non cambia.

          Nel precedente post avevo scritto che la lunghetta di 13 numeri sul range di 33 estrazioni fino alla data del 11/03/2018 aveva avuto 16 presenze uguali o superiori a 3 punti.

          Il risultato del tuo listato da 19 frequenze ed è esatto :

          Clicca sull'immagine per ingrandirla. 

Nome:   lungh-.jpg 
Visite: 1 
Dimensione: 10.7 KB 
ID: 2105697

          L’inghippo è subito chiarito, nelle mie 16 presenze è compresa una quaterna che nella stessa estrazione da 4 presenze di terni , 15 volte terno più i 4 terni in una stessa estrazione fanno esattamente 19 frequenze!

          Il tuo algoritmo invece conta tutti i terni presenti e li somma , ad esempio con 2 quaterne darebbe 8 frequenze del terno.

          Comunque ho voluto solo fare una verifica se i miei dati erano esatti perché estrapolati frettolosamente da un primo palinsesto per appurare se vale la pena continuare considerando il poco tempo a disposizione che è sempre tiranno.

          Proverò più tardi a confrontare qualche cinquina eterogenea per vedere cosa ne esce fuori.

          Nell’estrazione di questa sera i 13 numeri hanno fatto solo 2 punti , ma sfiorato il 4 con gli adiacenti del 29 e del 46!

          Buona Serata e Complimenti.
          Nikor.
          Ultima modifica di Nikor; 12-03-2018, 21:17.

          Commenta


          • #37
            Ciao Nikor, so e vedo che sei amante della statistica applicata al gioco

            Intanto prova questo script per verifica Lunghette divise per varie sorti.

            Poi se arrivi a qualche soluzione e veduta ragionevole ben venga per noi tutti.

            codice:
            
            Sub Main
             Dim sFile,Np(55),T,V
             sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
             Call ApriBaseDatiFT(sFile,5,",",55)
             Ini = 1
             fin = EstrazioniArchivioFT
            
             Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
             Scrivi "Estrazione Inizio........... " & Ini
             Scrivi "Estrazione Fine............. " & fin
             Scrivi "Totali Estrazioni........... " &(fin - Ini) + 1
             Scrivi "Lunghette Eterogenee per Frequenze di sorte ",1
             Scrivi sFile
             Scrivi
            
             T = Array(T,"Lunghetta","Ambi","Terni","Quaterne","Cinquine")
             Call InitTabella(T)
             For x = 1 To 10
              ' ............ inizio inserimento .................... di x
              Np(1) = Array(0,1,5,13,16,19,20,23,29,40,43,46,47)
              Np(2) = Array(0,11,13,20,22,4,25,26,27,28,29,30,31)
              Np(3) = Array(0,11,20,55,45,46,47,48,49,50,51,52,53)
              Np(4) = Array(0,13,20,27)
              Np(5) = Array(0,11,20,48)
              Np(6) = Array(0,3,13,20,27)
              Np(7) = Array(0,3,13,20,54)
              Np(8) = Array(0,11,20,37,42)
              Np(9) = Array(0,11,22,49)
              Np(10) = Array(0,20,27,51)
              ' .......... fine inserimento ...........................
              For y = 2 To 5
               Call StatisticaFormazioneFT(Np(x),y,rit,max,Incr,fre,Ini,fin)
               ReDim Preserve freq(y)
               freq(y) = fre
              Next
              V = Array(V,StringaNumeri(Np(x)),freq(2),freq(3),freq(4),freq(5))
              Call AddRigaTabella(V)
             Next
             CreaTabella
            End Sub
            Ho tolto sceglifile e messo direttamente il percorso file per l'utilizzo dovete mettere il vostro admin

            C:\Users\Mike58\Desktop\MillionDay.txt

            Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

            Commenta


            • #38
              Forse è meglio non cumulare le vincite e renderle reali sulle estrazioni
              Concordi Nikor

              codice:
              Sub Main
               Dim sFile,Np(55),T,V
               sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
               Call ApriBaseDatiFT(sFile,5,",",55)
               Ini = 1
               fin = EstrazioniArchivioFT
               Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
               Scrivi "Estrazione Inizio........... " & Ini
               Scrivi "Estrazione Fine............. " & fin
               Scrivi "Totali Estrazioni........... " &(fin - Ini) + 1
               Scrivi "Lunghette Eterogenee per Frequenze di sorte ",1
               Scrivi sFile
               Scrivi
               T = Array(T,"Lunghetta","Ambi","Terni","Quaterne","Cinquine")
               Call InitTabella(T)
               cinq = 0
               qua = 0
               Ter = 0
               amb = 0
               For x = 1 To 10
                ' ............ inizio inserimento .................... di x
                Np(1) = Array(0,1,5,13,16,19,20,23,29,40,43,46,47)
                Np(2) = Array(0,11,13,20,22,4,25,26,27,28,29,30,31)
                Np(3) = Array(0,11,20,55,45,46,47,48,49,50,51,52,53)
                Np(4) = Array(0,10,19,25,29,46,13,30,43,45,54)
                Np(5) = Array(0,11,20,48)
                Np(6) = Array(0,3,13,20,27)
                Np(7) = Array(0,3,13,20,54)
                Np(8) = Array(0,11,20,37,42)
                Np(9) = Array(0,11,22,49)
                Np(10) = Array(0,20,27,51)
                ' .......... fine inserimento ...........................
                For y = 2 To 5
                 'Call StatisticaFormazioneFT(Np(x),y,rit,max,Incr,fre,Ini,fin)
                 Call VerificaEsitoFT(Np(x),Ini,y,40,fre,clp,es1,id)
                 ReDim Preserve freq(y)
                 freq(y) = fre
                 If fre = "Cinquina" Then cinq = cinq + 1
                 If fre = "Quaterna" Then qua = qua + 1
                 If fre = "Terno" Then Ter = Ter + 1
                 If fre = "Ambo" Then amb = amb + 1
                Next
                V = Array(V,StringaNumeri(Np(x)),amb,Ter,qua,cinq)
                If V(5) = 0 Then V(5) = "-"
                If V(4) = 0 Then V(4) = "-"
                If V(3) = 0 Then V(3) = "-"
                If V(2) = 0 Then V(2) = "-"
                Call AddRigaTabella(V)
                cinq = 0
                qua = 0
                Ter = 0
                amb = 0
                'If cinq = 0 Then cinq = "-"
               Next
               CreaTabella
              End Sub

              Ultima modifica di Mike58; 12-03-2018, 23:12.
              Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

              Commenta


              • #39
                Vedo solo ora la modifica, devo guardare meglio perchè qualche cosa non quadra.

                Per quanto concerne il precedente tuo post ti rispondo subito:

                Caro Mike58 , si hai visto bene sono appassionato di statistica perché era stato il mio lavoro per un periodo di tempo.
                Posto in Output i risultati del tuo listato:

                Clicca sull'immagine per ingrandirla. 

Nome:   Mike58.jpg 
Visite: 1 
Dimensione: 35.5 KB 
ID: 2105724

                Si evince nel rettangolo rosso che inserendo la lunghetta di 13 numeri da esattamente tutti i punteggi che hai modificato.

                Hai fatto un grande lavoro, tutti gli utenti di Spazio Metria del Grande Luigi B. potranno ora approfittarne per le verifiche dei propri numeri personali.

                Siete in pochi a farvi carico di queste condivisioni, ed avete tutta la mia stima e fiducia, e come scrive Luigi chi aiuta altri utenti si contano sulle dita della mano di un falegname…

                Per il mio caso (si vede anche dell’Avatar) io mi avvalgo di altri strumenti, e tempo fa avevo deciso di non condividere più alcun dato e proseguire in solitaria; le motivazioni le avevo già scritte e sarebbe superfluo ribadirle, sintetizzo con un vecchio proverbio:
                Per colpa di qualcuno non si condividono più le formazioni estreme con nessuno!

                Ciao , appena mi è possibile guardo l'ultimo tuo listato Buona Settimana, Nikor.

                Commenta


                • #40
                  Numeri in Gioco : 1.5.13.16.19.20.23.29.40.43.44.46.47
                  Giocata al MillionDay
                  Ambi : 4
                  Terni : 15
                  Quaterne : 1



                  Ci devo lavorare qualcosa non quadra sul listato precedente
                  Ultima modifica di Mike58; 13-03-2018, 10:40.
                  Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

                  Commenta


                  • #41
                    Ciao Mike58 non angustiarti, come puoi vedere questa iniziativa sul MillionDay sembra non interessare.

                    Hai già fatto tanto, hai messo a disposizione una interessante utility dove ogni appassionato di questo gioco con i listati che avevi proposto potrà inserire le proprie formazioni e confrontare i punteggi.

                    Per il problema ( Frequenze - Presenze ) se trovo il tempo ne riparleremo….
                    Teniamo sempre presente un dato di fatto.
                    ( > = ) di 3 punti significa la presenza minima o superiore del punteggio imposto, mi spiego meglio con un esempio reale:
                    La mia tredicina ha fatto il seguente punteggio dell’operatore logico di confronto (>=) di 3 ,equivalente a 16 Presenze! Su 34 estrazioni.
                    Nel range analizzato era sortita anche una quaterna [ considerando che una quaterna sviluppa 4 terni ] il campo Presenze Terni diventa (15 volte 3 e 1 volta 4) = a 16 ed il campo Frequenze diventa (15+4) = 19 per effetto dei 4 terni presenti nella Quaterna estratta!

                    Come tu ben sai quantificare una cinquina estratta ovvero sincrona, ci sono :
                    5 – Quaterne.
                    10 – Terni.
                    10 – Ambi, il tutto in una sola Presenza estrazionale….

                    Per l’estrazione di questa sera la mia formazione di 13 numeri ha fatto altri 2 punti! niente di mirabolante ma sempre un’ottima base di partenza!

                    Altra considerazione, per chi cerca lunghette di 10 numeri con presenza di Terni, quando si trovano decine con valore uguale a 2 presenze è meglio cestinarle; mi spiego meglio:
                    Se prendiamo 2 cinquine a caso delle 35 estratte fino a questo momento ( con la caratteristica di non avere al proprio interno numeri ripetuti ) è ovvio che ci daranno la Presenza di 2 volte 5 punti!

                    Le lunghette in decina diventano interessanti solo se avranno presenza uguale o maggiore di 3, ( > = di 3 ) in questo momento ne ho scovate solo 3 con questa caratteristica…..

                    Per le Settine 2 hanno dato 2 volte il 5 punti pieno!
                    Il resoconto parziale con l’utility di Mike58:

                    Clicca sull'immagine per ingrandirla. 

Nome:   out-mike.jpg 
Visite: 1 
Dimensione: 43.5 KB 
ID: 2105874
                    Interessante anche l'ottina che ingloba punteggi minori.

                    L’elaborazione è ancora in corso , anche se il campionamento è ancora troppo scarno per avere dati attendibili!
                    Credo che per il momento sia tutto, un saluto all’Amico Mike58 ed a tutti quanti seguono questo nuovo gioco e che possono intervenire con idee costruttive.

                    Nikor.

                    Commenta


                    • #42
                      1,869 visualizzazioni dal 2 marzo sono un buon numero, una media di 150 al giorno non è da tutti i post.
                      Io vi seguo anche se non scrivo, sostanzialmente perchè sono impegnato sul fronte "lotto", e dell'Antonio 65.
                      un saluto e avanti tutta.
                      Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

                      Commenta


                      • #43
                        Originariamente inviato da claudio8 Visualizza il messaggio
                        1,869 visualizzazioni dal 2 marzo sono un buon numero, una media di 150 al giorno non è da tutti i post.
                        Io vi seguo anche se non scrivo, sostanzialmente perchè sono impegnato sul fronte "lotto", e dell'Antonio 65.
                        un saluto e avanti tutta.
                        Ciao Claudio8 , la tua fama di utente storico è conosciuta da molti se ti va di partecipare con qualche idea o per darci una mano sarai il benvenuto.

                        Nikor.

                        Commenta


                        • claudio8
                          claudio8 commentata
                          Modifica di un commento
                          Grazie Nikor, ma non penso di essere così famoso, hai con te uno dei maggiori "produttori di script" e ti assicuro che è uno stocanovista bravo e affidable...
                          per quanto riguarda il darvi una mano, vedrò di fare il possibile anche se sono preso dalle ambate a Bari, che sin'ora hanno fatto bella figura.
                          claudio

                      • #44
                        Ciao,

                        le mie attenzioni a questo gioco sono particolari, dove ne seguo attentamente l'evoluzione numerica, ma con distinzione, cioè, avendo costruito manualmente ben 8 archivi.
                        Uno, quello totale di tutte le estrazioni ne posso usufruire grazie ai listati del buon Mike58, mentre gli altri 7 archivi ancora lo porto avanti a tastiera, con la speranza che Mike58 riesca ad esaudire questo mio desiderio di poter suddividere le estrazioni giorno per giorno così da seguirne le estrazioni distintamente.
                        La visione dovrebbe essere questa, facendo esempio delle estrazioni di oggi Martedì :


                        MARTEDÌ 13 FEBBRAIO 2018 = 03 34 43 46 50
                        MARTEDÌ 20 FEBBRAIO 2018 = 10 35 37 42 54
                        MARTEDÌ 27 FEBBRAIO 2018 = 11 16 43 46 47
                        MARTEDÌ 06 MARZO 2018 = 11 21 22 49 52
                        MARTEDÌ 13 MARZO 2018 = 09 16 19 31 53

                        RIPETUTI : 43-46-11-16 ( senza ripetizioni )

                        con stringa numeri estratti
                        con stringa numeri in attesa

                        Ovviamente il listato avrà compreso tutti i giorni, ma a scelta si inserirà il giorno.

                        Detto questo, grazie ai listati di Mike provo a modificarne le formule per avere in visione qualcosa che potrebbe interessare, cose semplici, e probabilmente con errori, ma comunque funzionanti ...
                        Per esempio, questo mi da possibilità di sapere la somma delle cinquine estratte :

                        Sub Main
                        Dim Nu(5),NP(55),aN(90),T,V,sFile
                        sFile = GetDirectoryAppData & "ArchiviTxT" ' <--- inserire stringa personale
                        Call ApriBaseDatiFT(sFile,5,",",55)
                        Ini = 1
                        fin = EstrazioniArchivioFT
                        For es = fin To Ini Step - 1
                        nk = nk + 1
                        For p = 1 To 5
                        Nu(p) = EstrattoFT(es,p)
                        Next
                        somma = Nu(1) + Nu(2) + Nu(3) + Nu(4) + Nu(5)
                        'If 100 <= somma And somma <= 120 Then ' cerco somma tra somme a scelta
                        Scrivi Nu(1) & "+" & Nu(2) & "+" & Nu(3) & "+" & Nu(4) & "+" & Nu(5) & " = somma " & somma,1,1,,0,4
                        'End If
                        Next
                        End Sub

                        Questo invece ci consegna decine e cadenze :

                        SubMain

                        DimNu(5),NP(55),aN(90),T,V,sFile
                        sFile=GetDirectoryAppData& "ArchiviTxT"
                        <--- inserire stringa personale
                        CallApriBaseDatiFT(sFile,5,",",55)
                        Ini = 1
                        fin =EstrazioniArchivioFT
                        For es = fin To Ini Step- 1
                        nk = nk + 1
                        For p = 1 To 5
                        Nu(p) =EstrattoFT(es,p)
                        Next
                        de1 =Decina(Nu(1))
                        de2 =Decina(Nu(2))
                        de3 =Decina(Nu(3))
                        de4 =Decina(Nu(4))
                        de5 =Decina(Nu(5))
                        '
                        ca1 =Cadenza(Nu(1))
                        ca2 =Cadenza(Nu(2))
                        ca3 =Cadenza(Nu(3))
                        ca4 =Cadenza(Nu(4))
                        ca5 =Cadenza(Nu(5))
                        '
                        ScriviNu(1) & " - " &Nu(2) & " - " &Nu(3) & " - " &Nu(4) & " - " &Nu(5),1
                        Scrivi
                        ColoreTesto 1
                        Scrivi "DECINE : " & "" & de1 & "-" & de2 & "-" & de3 & "-" & de4 & "-" & de5,1
                        ColoreTesto 2
                        Scrivi "CADENZE : " & "" & ca1 & "-" & ca2 & "-" & ca3 & "-" & ca4 & "-" & ca5,1
                        ColoreTesto 0
                        Scrivi "==========================="
                        Next

                        End Sub

                        Certo, cose semplicissime, e ad impatto cose insignificanti, cosa che poi, volendo, ognuno potrà modificare.

                        Le cose le porto avanti, facendo pratica, dove ci riesco.

                        Un saluto a Mike58, e a tutti gli utenti

                        blacklotto





                         


                        Ultima modifica di *blacklotto*; 14-03-2018, 01:44.

                        Commenta


                        • #45
                          Ciao a Tutti e un grazie per l'interesse.

                          Purtroppo il tempo questa settimana per me è tiranno e non posso dedicarmi attivamente al progetto in esame.

                          Tuttavia l'analisi delle verifiche punteggi lascia a varie interpretazioni ma le vincite reali per punteggi sulle estrazioni devono essere solo conteggiate e non cumulate.

                          Vi metto un semplice script dei conteggi su una combinazione scelta e immessa in array.

                          codice:
                          Sub Main
                           Dim Nu(10),aN(5),sFile
                           sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
                           Call ApriBaseDatiFT(sFile,5,",",55)
                           Ini = 1
                           fin = EstrazioniArchivioFT
                           dett = InputBox("Vuoi vedere il dettaglio","Si No","S")
                           For x = 1 To 1
                            Nu(x) = Array(0,1,5,10,15,20,25,30,35,40,45)
                            For es = Ini To fin
                             For p = 1 To 5
                              aN(p) = EstrattoFT(es,p)
                              pt = SerieFreqFT(es,es,Nu(x),1)
                             Next
                             If pt = 0 Then pto = pto + 1
                             If pt = 1 Then pt1 = pt1 + 1
                             If pt = 2 Then pt2 = pt2 + 1
                             If pt = 3 Then pt3 = pt3 + 1
                             If pt = 4 Then pt4 = pt4 + 1
                             If pt = 5 Then pt5 = pt5 + 1
                             Call VerificaEsitoFT(Nu(x),es,1,1,,,es1)
                             If dett = "S" Then
                              Scrivi StringaEstrattiFT(es) & vbTab & pt & vbTab & es1
                             End If
                            Next
                            Scrivi
                            Scrivi StringaNumeri(Nu(x)),1
                            Scrivi "Punti Zero....... " & pto
                            Scrivi "Punti Uno........ " & pt1
                            Scrivi "Punti Due........ " & pt2,1
                            Scrivi "Punti tre........ " & pt3,1
                            Scrivi "Punti Quattro.... " & pt4,1
                            Scrivi "Punti Cinque..... " & pt5,1
                            'pto = 0
                           Next
                          End Sub
                          Mentre per quello che chiede L'amico Blacklotto, circa il filtro per giorni anche se questo è ancora prematuro visto le esigue estrazioni lascio un assaggino ma deve essere ancora completato.

                          Andrebbe integrato con tutti i giorni e poi andrebbero conteggiati i numeri per uscita giornaliera in esame.


                          Ci devo lavorare ma visto il poco tempo x Blacklotto lascio un assaggino visto che sarà capace di metterci le mani per le sue vedute.

                          codice:
                          
                          Sub Main
                           Dim Es,sfile
                           sfile = "C:\users\Mike58\Desktop\MillionDay.txt"
                           'sfile = ScegliFile("MillionDay.txt")
                           Call ApriBaseDatiFT(sfile,5,",",55)
                           Ini = 1
                           fin = EstrazioniArchivioFT
                           For Es = Ini To fin
                            If Sabato(Es) Then
                             Scrivi DataEstrazioneFT(Es,1) & vbTab & StringaEstrattiFT(Es) & vbTab & WeekDay(6)
                            End If
                            'Scrivi
                            If Domenica(Es) Then
                             Scrivi DataEstrazioneFT(Es,1) & vbTab & StringaEstrattiFT(Es) & vbTab & WeekDay(7)
                          
                            End If
                          
                           Next
                          End Sub
                          Function Sabato(Es)
                           Sabato = False
                           Data = Replace(DataEstrazioneFT(Es),".","/")
                           Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
                           Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
                           If WeekDay(Data) = vbSaturday Then Sabato = True
                          End Function
                          
                          Function Domenica(Es)
                           Domenica = False
                           Data = Replace(DataEstrazioneFT(Es),".","/")
                           Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
                           Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
                           If WeekDay(Data) = vbSunday Then Domenica = True
                          End Function
                          Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

                          Commenta

                          Unconfigured Ad Widget

                          Comprimi

                          Ultima estrazione del lotto

                          Comprimi

                          Estrazione del lotto
                          martedì 14 agosto 2018
                          Bari
                          10
                          71
                          08
                          62
                          14
                          Cagliari
                          46
                          59
                          23
                          73
                          69
                          Firenze
                          07
                          90
                          87
                          21
                          31
                          Genova
                          40
                          89
                          55
                          73
                          15
                          Milano
                          31
                          53
                          10
                          13
                          64
                          Napoli
                          30
                          71
                          31
                          77
                          29
                          Palermo
                          53
                          87
                          72
                          31
                          60
                          Roma
                          74
                          11
                          04
                          52
                          02
                          Torino
                          13
                          39
                          11
                          43
                          06
                          Venezia
                          55
                          84
                          31
                          59
                          67
                          Nazionale
                          39
                          48
                          83
                          22
                          01
                          Sto operando...
                          X