Lotteria MillionDay

[claudio8]

Davvero complimenti per questi due listati, Michele
In tutti e due ho portato modifica aggiungendo la cinquina, però, non ci sono riuscito ad inserire l'ambo non riesco a capire come e cosa aggiungere ...

k = k + 1
If esito = "Terno" Then kT = kT + 1
If esito = "Quaterna" Then kQ = kQ + 1
If esito = "Cinquina" Then kC = kC + 1

Se me lo farai sapere te ne sarò davvero grato.

blacklotto

Un saluto a tutti, al generoso Mike oberato di richieste, ed al bravo Nikor per le sue ricerche statistiche.

Sub Main
    Dim sFile,Nu(5),sommaChiave(5)
    sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"
    Call ApriBaseDatiFT(sFile,5,";",55)
    Ini = 2
    fin = EstrazioniArchivioFT - 3
    T = Array(T,"Sommativo","Totali","Ambi","Terni","Quaterne","Cinquine","Ritardo","ColpoMin","ColpoMax","ColpoMedio")
    Call InitTabella(T)
    For chiave = 0 To 55
        For es = Ini To fin
            For p = 1 To 5
                Nu(p) = EstrattoFT(es,p)
                sommaChiave(p) = FuoriX((Nu(p) + chiave),55)
            Next
            If VerificaEsitoFT(sommaChiave,es + 1,2,100,esito,clp,es1,id) = True Then
                k = k + 1
                ReDim Preserve ColpoMedio(k)
                ColpoMedio(k) = clp
                clpMedio =(clpMedio + clp)
                ColpoMed = Round((clpMedio / k),2)
                colpoMin = MinimoV(ColpoMedio,1,- 1)
                colpoMax = MassimoV(ColpoMedio,1,- 1)
                If esito = "Ambo" Then kA = kA + 1
                If esito = "Terno" Then kT = kT + 1
                If esito = "Quaterna" Then kQ = kQ + 1
                If esito = "Cinquina" Then kC = kC + 1
                Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
                Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
                Scrivi " + " & chiave & vbTab,0,0
                Scrivi StringaNumeri(sommaChiave,,1) & vbTab,0,0
                Scrivi es1 & vbTab & "Colpo... " & clp & vbTab & GetInfoEstrazioneFT(id) & vbTab & " Estratti [ " & StringaEstrattiFT(id) & " ]"
                'End If
                ess = fin - Id
            End If
        Next
        V = Array(V,"+ " & chiave,k,kA,kT,kQ,kC,ess,colpoMin,colpoMax,colpoMed)
        Call AddRigaTabella(V)
        Scrivi "Chiave " & FormatSpace(chiave,2) & " esito............................................................................................... " & k,1,1,,1
        Scrivi "Ambi    = " & kA
        Scrivi "Terni    = " & kT
        Scrivi "Quaterne = " & kQ
        Scrivi "Cinquine = " & kC
        Scrivi "Ritarda da ...... " & ess,1
        Scrivi "Colpo Minimo  : " & colpoMin
        Scrivi "Colpo massimo : " & colpoMax
        Scrivi "Colpo Medio   : " & ColpoMed
        k   = 0
        kA = 0
        kT = 0
        kQ = 0
        kC = 0
        clpMedio = 0
        Scrivi
    Next
    Scrivi "Riepilogo finale Ordinabile",1,,,1,3
    CreaTabellaOrdinabile
End Sub

 

[*blacklotto*]

Grazie Claudio8, molto gentile.

buona serata, blacklotto

 

[Mike58]

Ciao a Tutti.
Ciao Claudio, grazie della comprensione e aiuto, non sono sempre presente, e quindi gli aiuti sono graditi.

Le Richieste quando sono pertinenti allo scopo e stimolanti permettono di allenare la mente e rappresenta sempre una sfida a raggiungere lo scopo finale.

Per Blacklotto lo script richiesto è tutto un altro costrutto e per ora non ho idea di come poterlo impostare.

P.s. spero che leggendo lo script e la correzione di Claudio hai capito il perché non riuscivi a fare la modifica che ti necessitava.

 

[Nikor]

Salutando gli amici aggiorno la situazione lunghette.

Dopo il 18/05/2018 Range 101:

Le Decine per ( > = di 2 ) escono di scena !

Novine Vergini = 29 !

Una sola 21ina è rimasta vergine = 01 !

 

[Ciro_Dimeio]

Modulo a 55 per Millionday ... in studio

23.03.2018 39 31 16 23 22 CINQUINA Base
23.03.2018 40 32 17 24 23 CINQUINA + n° 1
Estrazione generatrice del pronostico 00045 [ 45 - 23/03/2018]
G 0001 Numeri in gioco : 40.32.17.24.23
V N. [40.32.17.24.23 ] [.. 32 24 23 40 ] C. 9 Quaterna 00054 [ 54 - 01/04/2018]
-------------------------------------------------------------------------------------------------------
14.04.2018 46 13 33 18 35 CINQUINA Base
14.04.2018 53 20 40 25 42 CINQUINA + n° 7
Estrazione generatrice del pronostico 00067 [ 67 - 14/04/2018]
G 0001 Numeri in gioco : 53.20.40.25.42
V N. [53.20.40.25.42 ] [40 42 .. 20 53 ] C. 27 Quaterna 00094 [ 94 - 11/05/2018]
-------------------------------------------------------------------------------------------------------
10.03.2018 35 42 9 32 1 CINQUINA Base
10.03.2018 48 55 22 45 14 CINQUINA + n° 13
Estrazione generatrice del pronostico 00032 [ 32 - 10/03/2018]
G 0001 Numeri in gioco : 48.55.22.45.14
V N. [48.55.22.45.14 ] [.. 22 48 55 14 ] C. 44 Quaterna 00076 [ 76 - 23/04/2018]
--------------------------------------------------------------------------------------------------------
24.04.2018 24 28 42 44 49 CINQUINA Base
24.04.2018 37 41 55 2 7 CINQUINA + n° 13
Estrazione generatrice del pronostico 00077 [ 77 - 24/04/2018]
G 0001 Numeri in gioco : 37.41.55.02.07
V N. [37.41.55.02.07 ] [07 37 02 41 .. ] C. 14 Quaterna 00091 [ 91 - 08/05/2018]
--------------------------------------------------------------------------------------------------------
04.03.2018 55 9 34 3 15 CINQUINA Base
04.03.2018 19 28 53 22 34 CINQUINA + n° 19
Estrazione generatrice del pronostico 00026 [ 26 - 04/03/2018]
G 0001 Numeri in gioco : 19.28.53.22.34
V N. [19.28.53.22.34] [34 28 53 .. 19 ] C. 33 Quaterna 00059 [ 59 - 06/04/2018]
--------------------------------------------------------------------------------------------------------
11.02.2018 5 39 40 46 33 CINQUINA Base
11.02.2018 30 9 10 16 3 CINQUINA + n° 25
Estrazione generatrice del pronostico 00005 [ 5 - 11/02/2018]
G 0001 Numeri in gioco : 30.09.10.16.03
V N. [30.09.10.16.03] [16 09 .. 10 03 ] C. 44 Quaterna 00049 [ 49 - 27/03/2018]
--------------------------------------------------------------------------------------------------------
07.03.2018 19 1 49 43 24 CINQUINA Base
07.03.2018 53 35 28 22 3 CINQUINA + n° 34
Estrazione generatrice del pronostico 00029 [ 29 - 07/03/2018]
G 0001 Numeri in gioco : 53.35.28.22.03
V N. [53.35.28.22.03] [28 .. 53 03 35 ] C. 45 Quaterna 00074 [ 74 - 21/04/2018]
--------------------------------------------------------------------------------------------------------
13.02.2018 50 46 43 3 34 CINQUINA Base
13.02.2018 32 28 25 40 16 CINQUINA + n° 37
Estrazione generatrice del pronostico 00007 [ 7 - 13/02/2018]
G 0001 Numeri in gioco : 32.28.25.40.16
V N. [32.28.25.40.16] [.. 28 16 32 40 ] C. 20 Quaterna 00027 [ 27 - 05/03/2018]
--------------------------------------------------------------------------------------------------------
13.03.2018 16 9 19 53 31 CINQUINA Base
13.03.2018 4 52 7 41 19 CINQUINA + n° 43
Estrazione generatrice del pronostico 00035 [ 35 - 13/03/2018]
G 0001 Numeri in gioco : 04.52.07.41.19
V N. [04.52.07.41.19] [.. 19 07 52 41 ] C. 6 Quaterna 00041 [ 41 - 19/03/2018]
--------------------------------------------------------------------------------------------------------
17.03.2018 36 49 14 43 19 CINQUINA Base
17.03.2018 25 38 3 32 8 CINQUINA + n° 44
Estrazione generatrice del pronostico 00039 [ 39 - 17/03/2018]
G 0001 Numeri in gioco : 25.38.03.32.08
V N. [25.38.03.32.08] [.. 38 03 32 08 ] C. 12 Quaterna 00051 [ 51 - 29/03/2018]
--------------------------------------------------------------------------------------------------------
14.02.2018 54 53 15 40 18 CINQUINA Base
14.02.2018 47 46 8 33 11 CINQUINA + n° 48
Estrazione generatrice del pronostico 00008 [ 8 - 14/02/2018]
G 0001 Numeri in gioco : 47.46.08.33.11
V N. [47.46.08.33.11] [33 47 .. 46 08 ] C. 22 Quaterna 00030 [ 30 - 08/03/2018]
--------------------------------------------------------------------------------------------------------
21.03.2018 6 23 46 37 38 CINQUINA Base
21.03.2018 1 18 41 32 33 CINQUINA + n° 50
Estrazione generatrice del pronostico 00043 [ 43 - 21/03/2018]
G 0001 Numeri in gioco : 01.18.41.32.33
V N. [01.18.41.32.33] [.. 32 18 33 41 ] C. 13 Quaterna 00056 [ 56 - 03/04/2018]
--------------------------------------------------------------------------------------------------------
21.02.2018 16 6 31 23 29 CINQUINA Base
21.02.2018 12 2 27 19 25 CINQUINA + n° 51
Estrazione generatrice del pronostico 00015 [ 15 - 21/02/2018]
G 0001 Numeri in gioco : 12.02.27.19.25
V N. [12.02.27.19.25] [12 .. 27 19 02 ] C. 43 Quaterna 00058 [ 58 - 05/04/2018]
--------------------------------------------------------------------------------------------------------
20.03.2018 41 22 7 43 25 CINQUINA Base
20.03.2018 37 18 3 39 21 CINQUINA + n° 51
Estrazione generatrice del pronostico 00042 [ 42 - 20/03/2018]
G 0001 Numeri in gioco : 37.18.03.39.21
V N. [37.18.03.39.21] [.. 37 39 03 18 ] C. 24 Quaterna 00066 [ 66 - 13/04/2018]
--------------------------------------------------------------------------------------------------------
13.02.2018 50 46 43 3 34 CINQUINA Base
13.02.2018 50 46 43 3 34 CINQUINA + n° 55
Estrazione generatrice del pronostico 00007 [ 7 - 13/02/2018]
G 0001 Numeri in gioco : 50.46.43.03.34
V N. [50.46.43.03.34] [43 46 .. 03 34 ] C. 78 Quaterna 00085 [ 85 - 02/05/2018]
--------------------------------------------------------------------------------------------------------

ciao, blacklotto

Bel risultato blacklotto complimenti, quante cinquine hai messo in gioco per ogni estrazione?

 

[*blacklotto*]

Un saluto a tutti,

ciao Ciro, leggendo attentamente vedrai che ho inserito che è un resoconto avuto da un listato che è in fase di ricerca e non di certo delle vincite realizzate da me.
Però l'intenzione di vincerne qualcuna non mi dispiace.
A te ?
L'intenzione del nostro buon Mike58 è questa.
Con tanta volontà ha aperto questo spazio, inserito tanti listati che sono davvero di grande aiuto, per poter iniziare a studiarci su.
Se hai passione per questa lotteria unisciti, facendo qualche richiesta ti si potrebbe aiutare.
Richiedere previsione, ne dubito, però non si sa mai.
Nel mio piccolo, se posso aiutarti, dimmi pure, cercherò di accontentarti.

blacklotto

 

[Nikor]

Salutando gli amici aggiorno la situazione lunghette.

Dopo il 18/05/2018 Range 101:

Le Decine per ( > = di 2 ) escono di scena !

Novine Vergini = 29 !

Una sola 21ina è rimasta vergine = 01 !



2 ] Cinquine sincrone, decine & cinquine consecutive più altre interessanti Utility ...fatte da Mike.

Più volte era stato scritto che per le richieste di script si doveva aprire una nuova sezione per lasciare spazio a questo thread di Mike con l'intento di completare nel modo migliore il software Emulato !

Il messaggio non è stato recepito, prima si era iniziato con indici giornalieri dove a uno piace il Giovedi e a quell'altro il Venerdi ! poi richieste cervellotiche di altro tipo , adesso i sommativi e chi più ne ha più ne metta.....

Personalmente rispettando ogni opinione non sono a favore di cabala , quadrati, triangoli e strisce per terra , anche se tutto fa brodo........

Questo è l'ultimo mio aggiornamento:

Novine Vergini = 21 !

La 21ina esce di scena :



Ventine vergini = 69 !

Tanti auguri a Luigi & Mike credo che ne avrete tanto bisogno..... le FAQ più toste non sono ancora arrivate , ma credo che non si faranno attendere per molto.... , Buon proseguimento Nikor.

 

[Ciro_Dimeio]

Un saluto a tutti,

ciao Ciro, leggendo attentamente vedrai che ho inserito che è un resoconto avuto da un listato che è in fase di ricerca e non di certo delle vincite realizzate da me.
Però l'intenzione di vincerne qualcuna non mi dispiace.
A te ?
L'intenzione del nostro buon Mike58 è questa.
Con tanta volontà ha aperto questo spazio, inserito tanti listati che sono davvero di grande aiuto, per poter iniziare a studiarci su.
Se hai passione per questa lotteria unisciti, facendo qualche richiesta ti si potrebbe aiutare.
Richiedere previsione, ne dubito, però non si sa mai.
Nel mio piccolo, se posso aiutarti, dimmi pure, cercherò di accontentarti.

blacklotto

Ciao Blacklotto,
intanto grazie per la sincera risposta, anche io desidero essere sincero ...di listati non ho molta dimestichezza e non ne uso, al momento non saprei come utilizzarli, moltissimi anni fa quando inizio la moda dei listati feci una scelta ben precisa, se avrei avuto tempo di imparare un linguaggio di programmazione, allora avrei imparato un vero linguaggio di programmazione e non linguaggi script, ma poi il tempo è tiranno. Attualmente utilizzo dei fogli di MS-excel e un piccolissimo free-software di (M.Day) trovato in rete per aggiornare le estrazioni, chiudo qui questo mio pensiero altrimenti il signor. Nikor s'inca....vola perchè sto utilizzando questo spazio Ot.

Si la lotteria ( M.Day ) mi incuriosisce anche se una estrazione al giorno non da molto spazio a riflessione, elaborazione e studio di strategia. Al momento la migliore strategia che mi sembra più idonea secondo il mio punto di vista è quella condotta dal signor. Nikor, cioè lo studio sulle lunghette di numeri, ma questo è solo possibile per le sorti minori ambo e terno, adesso che le estrazioni sono ancora una manciata, poi man mano che le estrazioni cresceranno non si avrá più il tempo necessario per fare delle elaborazioni in tempo reale, anche per le sorti maggiori quaterna e cinquina a meno che non si ha a disposizione un elaboratore della NASA e un super-algoritmo.

Il mio contributo in questo senso sarebbe di scompattare l'archivio nei vari giorni della settimana, lunedi martedi etc.etc. e di analizzare in profondità le estrazioni avvenute.

Allora si avrebbe anche il tempo disponibile per elaborare una strategia da giocare a distanza di una settimana, da domenica a domenica, da lunedi a lunedi, etc. etc.
Ciro

 

[*blacklotto*]

Ciao,

leggere le continue lamentele di nikor non fanno altro che allontanare gli utenti che vorrebbero aggregarsi allo studio di questa lotteria.
Brutta cosa.
Se per me le lunghette non mi dicono niente, non vedo il perché non potrei scrivere a Mike58 altro che riguardi a questa lotteria, e così stessa cosa per chi vorrebbe farsi avanti.
Non ho detto che lo studio/ricerca di nikor sia meno di altro studio, ma così facendo blocca chi avrebbe e potrebbe dire molto, e sappiamo bene che lo scambio di idee attivo, è e sarà sempre la miglior cosa.
Rileggendo il post d'apertura noto che Mike58 dirige l'invito a tutti per la condivisione di questo tema, non specificando che il perno della discussione siano le lunghette.

Se Ciro lo gradisse, per dirigere la sua ricerca, per porre le sue domande apra altro post, dove chi avrà voglia di condividere le sue e altre richieste degli utenti, ci sarà, e ci sarò, per dare un contributo.
Con questo voglio semplicemente dire a Ciro che per quanto riguarda al suo scritto di ricerca io, e non solo io condivido, e sono pronto ad iniziare quando vuole.

blacklotto

 

[Mike58]

Cosa bisogna aggiungere, solo che quanto leggo mi può dispiacere, il mio intento era è rimane quello di raccogliere più dati concreti possibili a livello statistico per poi capire come e dove si poteva attingere per estrapolare pronostici definiti al fine di possibili giocate.

Resta inteso che tutti possono intervenire e proporre proprie idee poi se fattibili e se incontrano l'apprezzamento di altri su questo non posso rispondere e dare certezze.

Io in questo post ho cercato di raccogliere con dati e lavori precisi e mirati quello che ritenevo utile, come altri intervenuti sempre con il rispetto delle idee altrui.

La lettura del post parla da sola con le visualizzazioni vuole dire che quello che si è fatto finora ha avuto un buon apprezzamento, quindi per il rispetto di chi può seguire sarebbe meglio continuare a dare ognuno il proprio contributo, senza la pretesa di essere perfetti.

Ciao a Tutti.

 

[*blacklotto*]

Ciao
non voglio che Nicor si astenga nella sua ricerca sulle lunghette, non voglio che smetta di dare le sue pubblicazioni a chi ha lo stesso interesse, avvierò io un altro post dove cercherò di portare avanti tutt'altro studio e ricerche, cose semplici, che potrebbero interessare a tutti, come è certo che mi aspetto che anche Nikor voglia dare le sue opinioni.
Daremo il via ad un gemellaggio riguardante questa lotteria, Millionday, dove si potrà dar maggior spazio a tutto ciò che si vuol condividere.

blacklotto

 

[Nikor]

Ciao Black. confrontarsi con chiarimenti educati e civili come hai scritto nell’ultimo tuo intervento conforme alle policy e netiquette del Forum , credo sia buona cosa.

Devo ribadire che non mi era piaciuto il tuo scritto dove mi imputavi lamentele che erano una brutta cosa, tanto meno l’intervento di Ciro-d che avrebbe potuto risparmiare l’ammiccamento del signor nei miei confronti ( considerando che siamo tutti utenti ospiti in casa d’altri ! )

Fatto questo doveroso chiarimento aggiungo , e scusa se mi ripeto che seguivo questo interessante thread perché vedevo crescere il software Million-day che poteva essere emulato in tutte le sue principali funzioni come un vero e proprio software indipendente in ambiente Spaziometria di Luigi.
In effetti se rileggi il mio post :



Si evince che Nikor non è citato , partecipavo solo per non intrecciare richieste di natura varia con l’implemento di nuove funzioni…… e nel frattempo considerando che i tempi per le lunghette sono proibitivi ed io mi avvalgo di altro hardware ,postavo qualche cosa ……

Mi fa piacere che abbiamo chiarito il frainteso, tranquillo continua pure in questa sezione perché ho notato che anche il buon Mike non ha nulla in contrario.
Caso mai mi tornerà la voglia , tempo permettendo aprirò io una nuova sezione statistica sul Million….. riassumendo qualche dato che avevo postato in precedenza che non riguardava le sole lunghette!

Ciao e buona continuazione, Nikor.

 

[Mike58]

Ottimo amici, sentitevi tutti liberi ognuno di dire la propria opinione e di proporre le vostre idee liberamente.
Poi per non intasare il thread ormai pieno di post è anche giusto aprire nuove sezioni dedicate in modo che ognuno di noi può mettere a disposizioni gli aggiornamenti che via via prenderanno consistenza.

l'unione fa sempre la forza.

Ciao a tutti e agli amici Nikor e Blacklotto.

 

[Ciro_Dimeio]

Cosa bisogna aggiungere, solo che quanto leggo mi può dispiacere, il mio intento era è rimane quello di raccogliere più dati concreti possibili a livello statistico per poi capire come e dove si poteva attingere per estrapolare pronostici definiti al fine di possibili giocate.

Resta inteso che tutti possono intervenire e proporre proprie idee poi se fattibili e se incontrano l'apprezzamento di altri su questo non posso rispondere e dare certezze.

Io in questo post ho cercato di raccogliere con dati e lavori precisi e mirati quello che ritenevo utile, come altri intervenuti sempre con il rispetto delle idee altrui.

La lettura del post parla da sola con le visualizzazioni vuole dire che quello che si è fatto finora ha avuto un buon apprezzamento, quindi per il rispetto di chi può seguire sarebbe meglio continuare a dare ognuno il proprio contributo, senza la pretesa di essere perfetti.
Ciao a Tutti.

no no non puoi rammaricarti o dispiacerti per l'intento che sarebbe stato ma non lo è, ogni estrazione rivela e offre molte possibilità di statistica a partire da quelle più note a quelle meno note, da quelle inventate a quelle cabalistiche più conosciute, è chiaro che da tutte queste statistiche non potrai mai estrappolare la cinquina vincente, ma solo avere una linea guida indicativa su ciò che potrà sortire, quindi la sagoma di come sarà la nostra futura cinquina da mettere in gioco.

Diversamente è la ricerca dei numeri da mettere in gioco o sotto osservazione, quindi la riduzione della massa numerica, qui la scelta si complica, in quanto abbiamo tre tipologie di formazioni i frequenti, i costanti e i ritardi, per avere informazioni precise su queste formazioni bisogna avere gli strumenti adeguati, cioè un programma che lavora a livello macchina e un super algoritmo che consente di elaborare in brevissimo tempo tutte le formazioni possibili, per potere avviare un piano di gioco valido, altrimenti stiamo parliamo solo di utopia.

Ciao Black. confrontarsi con chiarimenti educati e civili come hai scritto nell’ultimo tuo intervento conforme alle policy e netiquette del Forum , credo sia buona cosa.

Devo ribadire che non mi era piaciuto il tuo scritto dove mi imputavi lamentele che erano una brutta cosa, tanto meno l’intervento di Ciro-d che avrebbe potuto risparmiare l’ammiccamento del signor nei miei confronti ( considerando che siamo tutti utenti ospiti in casa d’altri ! ) [...] ...

mi devi scusare se questo ha leso la tua permalosità, ma è stato solo un modo per evidenziare quello che tu stesso hai scritto e sottolineato qui in quota.

 

[*blacklotto*]

Buona serata a tutti,

taglio netto a tutto e riprendiamo la discussione tanto cara a Mike58, a me e a voi, la lotteria Millionday.
Come appurato le ipotesi di ricerca hanno strade differenti, e questa " meraviglia " di contrarietà intuitive ci daranno ulteriormente stimolo per confrontarci.
Io ho scelto una ricerca molto vasta, di cose semplici quasi paragonabile al gioco del lotto, come ispirazione, poi, maturando le estrazioni del Millionday, scandagliando le varie formazioni scaturite dai soli 55 numeri totali,
e le curiosità proposte da queste, ne traggo ispirazione.
Ma questo non basta, tra lo studio e il dare un gioco in previsione è un vero enigma, ma però ci sono scappatoie possibili, discutibili.
Gioco tanto bello quanto perfido, bello perché chi non vorrebbe il milioncino ?, perfido per via delle sue rigide leggi che non danno nessun scampo ... ma è vero ?
Tanto per dirne una, grazie a Mike58, sto imparando, pur pasticciando, a modificare ogni listato che mi ispira riguardante il gioco del lotto per la lotteria Millionday. E per ora, gradualmente, ci sto riuscendo.
Se cortesemente c'è chi mi fa capire come inserire qui un listato correttamente non esiterò ad inserirne, tanto per poter ricevere " bacchettate " per gli errori dai tanti esperti in compilazioni script e stimolare chi vuole imparare alle possibili modifiche.

a presto, blacklotto

 

[lotto_tom75]

Buona serata a tutti,

taglio netto a tutto e riprendiamo la discussione tanto cara a Mike58, a me e a voi, la lotteria Millionday.
Come appurato le ipotesi di ricerca hanno strade differenti, e questa " meraviglia " di contrarietà intuitive ci daranno ulteriormente stimolo per confrontarci.
Io ho scelto una ricerca molto vasta, di cose semplici quasi paragonabile al gioco del lotto, come ispirazione, poi, maturando le estrazioni del Millionday, scandagliando le varie formazioni scaturite dai soli 55 numeri totali,
e le curiosità proposte da queste, ne traggo ispirazione.
Ma questo non basta, tra lo studio e il dare un gioco in previsione è un vero enigma, ma però ci sono scappatoie possibili, discutibili.
Gioco tanto bello quanto perfido, bello perché chi non vorrebbe il milioncino ?, perfido per via delle sue rigide leggi che non danno nessun scampo ... ma è vero ?
Tanto per dirne una, grazie a Mike58, sto imparando, pur pasticciando, a modificare ogni listato che mi ispira riguardante il gioco del lotto per la lotteria Millionday. E per ora, gradualmente, ci sto riuscendo.
Se cortesemente c'è chi mi fa capire come inserire qui un listato correttamente non esiterò ad inserirne, tanto per poter ricevere " bacchettate " per gli errori dai tanti esperti in compilazioni script e stimolare chi vuole imparare alle possibili modifiche.

a presto, blacklotto

Ciao blacklotto, credo che per inserire correttamente il codice basti racchiuderlo tra i TAG "cancelletto" # che vedi in alto a sinistra dopo che hai selezionato il menu testo cliccando sulla icona della A in alto a destra come da foto sottostante

 

[*blacklotto*]

Grazie ! Grazie lotto_tom75 faccio subito una prova.
Inserisco un listato preso in web tempo fa che riguarda le " piramidi numeriche " modificato per Millionday.
Vediamo come rimane ...

ciao

blacklotto

  Sub Main

Dim sFile:sFile = GetDirectoryAppData & "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"

Call ApriBaseDatiFT(sFile,5,";",55)

Dim idEstr,p,p1,p2,p3,p4

Dim Ini:Ini = 1

Dim Fin:Fin = EstrazioniArchivioFT

For idEstr = Ini To Fin

For p = 1 To 1

For p1 = 2 To 2

For p2 = 3 To 3

For p3 = 4 To 4

For p4 = 5 To 5

ColoreTesto 0

Scrivi GetInfoEstrazioneFT(idEstr) & " " & StringaEstrattiFT(idEstr," - ")

ColoreTesto 0

Scrivi

Scrivi

Scrivi StringaEstrattiFT(idEstr,"-"),1

a1 = Decina(EstrattoFT(idEstr,p))

a2 = Cadenza(EstrattoFT(idEstr,p))

b1 = Decina(EstrattoFT(idEstr,p1))

b2 = Cadenza(EstrattoFT(idEstr,p1))

c1 = Decina(EstrattoFT(idEstr,p2))

c2 = Cadenza(EstrattoFT(idEstr,p2))

d1 = Decina(EstrattoFT(idEstr,p3))

d2 = Cadenza(EstrattoFT(idEstr,p3))

e1 = Decina(EstrattoFT(idEstr,p4))

e2 = Cadenza(EstrattoFT(idEstr,p4))

f = a1 + a2

If f > 9 Then f = Decina(f) + Cadenza(f)

Scrivi f & "",0,0

g = a2 + b1

If g > 9 Then g = Decina(g) + Cadenza(g)

Scrivi g & "-",0,0

h = b1 + b2

If h > 9 Then h = Decina(h) + Cadenza(h)

Scrivi h & "",0,0

i = b2 + c1

If i > 9 Then i = Decina(i) + Cadenza(i)

Scrivi i & "-",0,0

j = c1 + c2

If j > 9 Then j = Decina(j) + Cadenza(j)

Scrivi j & "",0,0

k = c2 + d1

If k > 9 Then k = Decina(k) + Cadenza(k)

Scrivi k & "-",0,0

l = d1 + d2

If l > 9 Then l = Decina(l) + Cadenza(l)

Scrivi l & "",0,0

m = d2 + e1

If m > 9 Then m = Decina(m) + Cadenza(m)

Scrivi m & "-",0,0

n = e1 + e2

If n > 9 Then n = Decina(n) + Cadenza(n)

Scrivi n & ""

o = f + g

If o > 9 Then o = Decina(o) + Cadenza(o)

Scrivi Space(1) & o & "",0,0

q = g + h

If q > 9 Then q = Decina(q) + Cadenza(q)

Scrivi q & "-",0,0

s = h + i

If s > 9 Then s = Decina(s) + Cadenza(s)

Scrivi s & "",0,0

t = i + j

If t > 9 Then t = Decina(t) + Cadenza(t)

Scrivi t & "-",0,0

u = j + k

If u > 9 Then u = Decina(u) + Cadenza(u)

Scrivi u & "",0,0

v = k + l

If v > 9 Then v = Decina(v) + Cadenza(v)

Scrivi v & "-",0,0

w = l + m

If w > 9 Then w = Decina(w) + Cadenza(w)

Scrivi w & "",0,0

x = m + n

If x > 9 Then x = Decina(x) + Cadenza(x)

Scrivi x

y = o + q

If y > 9 Then y = Decina(y) + Cadenza(y)

Scrivi Space(2) & y & "",0,0

z = q + s

If z > 9 Then z = Decina(z) + Cadenza(z)

Scrivi z & "-",0,0

aa = s + t

If aa > 9 Then aa = Decina(aa) + Cadenza(aa)

Scrivi aa & "",0,0

ab = t + u

If ab > 9 Then ab = Decina(ab) + Cadenza(ab)

Scrivi ab & "-",0,0

ac = u + v

If ac > 9 Then ac = Decina(ac) + Cadenza(ac)

Scrivi ac & "",0,0

ad = v + w

If ad > 9 Then ad = Decina(ad) + Cadenza(ad)

Scrivi ad & "-",0,0

ae = w + x

If ae > 9 Then ae = Decina(ae) + Cadenza(ae)

Scrivi ae

af = y + z

If af > 9 Then af = Decina(af) + Cadenza(af)

Scrivi Space(3) & af & "",0,0

ag = z + aa

If ag > 9 Then ag = Decina(ag) + Cadenza(ag)

Scrivi ag & "-",0,0

ah = aa + ab

If ah > 9 Then ah = Decina(ah) + Cadenza(ah)

Scrivi ah & "",0,0

ai = ab + ac

If ai > 9 Then ai = Decina(ai) + Cadenza(ai)

Scrivi ai & "-",0,0

aj = ac + ad

If aj > 9 Then aj = Decina(aj) + Cadenza(aj)

Scrivi aj & "",0,0

ak = ad + ae

If ak > 9 Then ak = Decina(ak) + Cadenza(ak)

Scrivi ak

al = af + ag

If al > 9 Then al = Decina(al) + Cadenza(al)

Scrivi Space(4) & al & "",0,0

am = ag + ah

If am > 9 Then am = Decina(am) + Cadenza(am)

Scrivi am & "-",0,0

an = ah + ai

If an > 9 Then an = Decina(an) + Cadenza(an)

Scrivi an & "",0,0

ao = ai + aj

If ao > 9 Then ao = Decina(ao) + Cadenza(ao)

Scrivi ao & "-",0,0

ap = aj + ak

If ap > 9 Then ap = Decina(ap) + Cadenza(ap)

Scrivi ap

aq = al + am

If aq > 9 Then aq = Decina(aq) + Cadenza(aq)

Scrivi Space(5) & aq & "",0,0

ar = am + an

If ar > 9 Then ar = Decina(ar) + Cadenza(ar)

Scrivi ar & "-",0,0

at = an + ao

If at > 9 Then at = Decina(at) + Cadenza(at)

Scrivi at & "",0,0

au = ao + ap

If au > 9 Then au = Decina(au) + Cadenza(au)

Scrivi au

av = aq + ar

If av > 9 Then av = Decina(av) + Cadenza(av)

Scrivi Space(6) & av & "",0,0

aw = ar + at

If aw > 9 Then aw = Decina(aw) + Cadenza(aw)

Scrivi aw & "-",0,0

ax = at + au

If ax > 9 Then ax = Decina(ax) + Cadenza(ax)

Scrivi ax

ay = av + aw

If ay > 9 Then ay = Decina(ay) + Cadenza(ay)

Scrivi Space(7) & ay & "",0,0

az = aw + ax

If az > 9 Then az = Decina(az) + Cadenza(az)

Scrivi az

jj = ay & az

If jj > 55 Then

jj = jj - 55

End If

Scrivi

Scrivi "( con Fuori 55 se oltre )"

Scrivi "numero finale ottenuto dalla piramide = " & jj

Scrivi "------------------------------------------------------",1

Next

Next

Next

Next

Next

Next

End Sub

 

[i legend]

Ciao a tutti
x blackLotto
ciao se non ho fatto errori , sempre possibili ,
ti posto un listato che utilizza un ciclo for per scrivere le righe residue della piramide man mano che vengono elaborate
si possono raggiungere gli stessi risultati percorrendo strade diverse,
il confronto ci permette di crescere e migliorarci
non mi stancherò mai di dire Grazie a Luigi e a joe ( gli ottimizzatori per eccelenza ) e a Mike, e a disaronno,e alla coppia MagiaAmaretto, e a claudio .
ho imparatao da tutti
invito altri scripter a proporre soluzioni alternative , per la crescita delle future generazioni .
pertanto Salvo errori ,Verificare che i dati siano esatti

Option Explicit
' Verificare che i dati restituiti siano esatti
'
Dim aCol(3):aCol(1) = RGB(223,230,234):aCol(2) = RGB(0,64,64):aCol(3) = RGB(255,79,79)
Sub Main
   Dim sFile:sFile = "   "    ' inserire il proprio percorso
   Call ApriBaseDatiFT(sFile,5,";",55)
   Dim sLin:sLin = "+-----------------------------------------+"
   Dim sDist: sDist = "|                          "
   Dim IdEstr,i,sEstr,LenEstr,sPir
   Dim Fin:Fin = EstrazioniArchivioFT
   Dim Ini:Ini = Fin-10
   LenEstr = 9
   For IdEstr = Ini To Fin
      Call GetTit(IdEstr,sLin)
      sEstr = StringaEstrattiFT(IdEstr,"")
      Call GetSpazi(sDist,sEstr)
      ' il ciclo for che segue costruisce la piramide che si vuole elaborare
      ' sino a ridurre l estrazione ad un numero compreso tra 1 e 55
      For i = LenEstr To 2 Step - 1
         sPir = Piramide(sEstr,,i)
         Scrivi sDist,1,0,aCol(1),aCol(2)
         Scrivi FormatSpace(sPir,13,1) & " ",1,0,,RGB(0,51,72)
         Scrivi " |",1,,aCol(1),aCol(2)
      Next
      Call GetUltimaRiga(sLin,sPir)
   Next
End Sub
' qui sono riportate le sub di scrittura per snellire e leggere piu chiaramente la sub main
Sub GetTit(IdEstr,sLin)
   Dim sTit:sTit = sLin & vbcrlf & "| IdA | IdM | Data Estr. |    Estratti    |"
   Dim IdA:IdA = FormattaStringa(IndiceAnnualeFT(IdEstr),"000")
   Dim IdM:IdM = FormattaStringa(IndiceMensileFT(IdEstr),"000")
   Dim Dat:Dat = DataEstrazioneFT(IdEstr)
   Scrivi sTit,1,,aCol(1),aCol(2)
   Scrivi "| " & IdA & " | " & IdM & " | " & Dat & " | " & StringaEstrattiFT(IdEstr) & " |",1,,aCol(1),aCol(2)
   Scrivi sLin,1,,aCol(1),aCol(2)
End Sub
Sub GetSpazi(sDist,sEstr)
   Scrivi sDist,1,0,aCol(1),aCol(2)
   Scrivi FormatSpace(sEstr,13,1) & " ",1,0
   Scrivi " |",1,,aCol(1),aCol(2)
End Sub
Sub GetUltimaRiga(sLin,sPir)
   Scrivi sLin,1,,aCol(1),aCol(2)
   Scrivi "|Elaborazione Fuori 55   | ",1,0,aCol(1),aCol(2)
   Scrivi FormatSpace(FuoriX(sPir,55),13,1) & " ",1,0,aCol(3),RGB(255,240,240)
   Scrivi " |",1,,aCol(1),aCol(2)
   Scrivi sLin,1,,aCol(1),aCol(2)
   Scrivi
End Sub

ciao dite pure cosa ne pensate

 

[Mike58]

Bravi Raga,lo script di Blacklotto è originale ma eseguito con l'A,B,C, che può servire a muovere i primi Passi in un costrutto Scripting Passo-Passo mentre l'ottimizzazione di Ilegend con le funzioni apposite e Sub rende gli insegnamenti ricevuti Super Ottimizzati.

Bene, in fatto di script, sarebbe interessando qualche sviluppo circa un possibile utilizzo in termini di gioco.

Ciao a Tutti.

 

[*blacklotto*]

Ciao,

che bella grafica lo script di i legend, mi studierò attentamente le varie righe e vedrò di riuscire a comprendere facendo qualcosa che poi inserirò.
Grazie, l'ho già inserito come trampolino di lancio per darmi da fare, per modernizzare anche altri listati.
Vero Mike58, un listato semplice che però il vero intento è la trasformazione per il Millionday, e dopo esserci riuscito mi ha dato ulteriore carica nel convincermi che basta la vera voglia per imparare.
E' sicuro che i listati che inserirò saranno leggeri, elementari, ma come ripeto, per ora, quello che mi diverto a fare riguarda solo la modifica dal listato lotto a listato Millionday, sempre listati presi dal web, di ieri, cioè datati anche di molti anni, come qualcuno di recente.

Per quanto riguarda il gioco reale, studiare delle previsioni è un argomento che non è semplice, un discorso che necessita di molta attenzione, dove bisognerà oltrepassare ostacoli non indifferenti, studiati apposta per creare vere e proprie difficoltà. Certo, ... il milioncino sembra che ce lo vogliano proprio dare .... ah ah ah ah.
Una estrazione al giorno.
Obbligo di segnare cinque numeri.
Già questo sono due fattori fondamentali : il " legamento " dello scommettitore.
Non c'è possibilità di altro gioco se non l'inserimento di 5 numeri.
Chi avrà più ragione : chi gioca ogni giorno la stessa cinquina, o chi cambia cinquina ogni giorno ?
Giocare una cinquina per 10 concorsi e poi cambiarla è sconsigliabile, controllandola per 10 sere consecutive si memorizza nel cervello, e cambiandola difficilmente la scorderemmo, e vederla poi uscire al 15 ° concorso perderemmo la ragione. Ecco, questo è un tipo di legame che induce questo gioco.
Cambiando cinquina ogni giorno, scritta a casaccio, ne usciremmo " puliti " ogni sera per mille sere consecutive. Vinco o perdo. Vero. Ma a questo punto che convenienza avrei nello studiare questo gioco ?

Non è semplice. Neanche un po'. Tutto hanno studiato.

Ma noi ci studieremo su, proprio sul loro studio, poi, dopo, sui numeri.

Vi saluto, a presto, blacklotto