Lotteria MillionDay

[Mike58]

e Vabbè script datati.... ecco le modifiche richieste.

'SPOGLIO ESTRAZIONE MILLIONDAY'
Sub Main
Dim Nu(90),aN(5),sFile
sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,";",55) ' immettre il carattere separatore del proprio archivio
Ini = 1
fin = EstrazioniArchivioFT
dett = InputBox("Vuoi vedere il dettaglio","Si No","S")
'For x = 1 To 1
'Nu(x) = Array(01,02,03,04,05) '...SOSTITUIRE CON I PROPRI NUMERI...'
ScegliNumeri(Nu)
For es = Ini To fin
For p = 1 To 5
aN(p) = EstrattoFT(es,p)
pt = SerieFreqFT(es,es,Nu,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,es,1,1,,,es1)
If dett = "S" Then
Scrivi GetInfoEstrazioneFT(es) & vbTab & StringaEstrattiFT(es) & vbTab & pt & vbTab & es1
End If
Next
Scrivi
Scrivi StringaNumeri(Nu,,1),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

Attenzione usare il prorprio carattere separatore del proprio archivio come segnalato nella riga.

 

[francoaltura]

ECCEZIONALE,

 

[francoaltura]

GRAZIE INFINITE Mike58, è proprio quello che cercavo, mi serve per uno studio su MillionDay. Se ne ricavo qualcosa di buono lo posto immediatamente qui. Ciao

 

[Alien.]

è dove si trova l'archivio,come si inserisce e come si aggiorna e non mandatemi alla prima porta a destra !!

 

[Mike58]

Alien in qualche pagina indietro c'è il plugin per scaricare l'archivio e crearlo ex novo ed aggiornarlo.
se fini ad ora non l'ho hai utilizzato hai perso tempo o sei stato fuori dalla galassia.

Io ho perso interesse per questo gioco come anche negli script e nel forum, non posso aiutarvi ulteriormente.

Ciao

 

[francoaltura]

Per gli interessati del MillionDay allego 2 archivi MillionDay_ordinato.
Il 1° con il " ; " aggiornato al 09.10.2019 e con tutte le estrazioni 2018/2019
Il 2° con la " , " e soltanto le estrazioni del 2019
Credendo di aver fatto cosa gradita porgo un cordiale saluto a tutti.

 

[francoaltura]

Piccolo aiuto sul listato per il gioco del MillionDay trovato su questo forum all'indirizzo:
https://forum.lottoced.com/threads/lotteria-millionday.2104065/page-18

Che significato ha a stringa "Ritarda da ...... 3" , e a cosa si riferisce? E ancora, perché non ci sono tutte le estrazioni del mese?
[00267] [267] 24.09.2019 01.12.34.31.19 + 51 52.08.30.27.15 30 52 .. .. .. Colpo... 1 [00268] [268] 25.09.2019 Estratti [ 30.52.22.20.49 ]
[00271] [271] 28.09.2019 12.35.46.20.36 + 51 08.31.42.16.32 .. .. 31 42 .. Colpo... 6 [00277] [277] 04.10.2019 Estratti [ 50.14.31.42.25 ]
[00274] [274] 01.10.2019 05.19.54.10.23 + 51 01.15.50.06.19 .. 01 .. .. 06 Colpo... 1 [00275] [275] 02.10.2019 Estratti [ 31.01.28.27.06 ]
[00275] [275] 02.10.2019 31.01.28.27.06 + 51 27.52.24.23.02 02 24 .. .. .. Colpo... 1 [00276] [276] 03.10.2019 Estratti [ 02.24.35.09.14 ]
Chiave 51 esito............................................................................................... 262
Ambi = 250
Terni = 12
Quaterne = 0
Cinquine = 0
Ritarda da ...... 3

Il listato:
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

 

[Mike58]

Ciao Franco, vedo che spulci tutto il post alla ricerca di qualcosa di utile per questo gioco.
Come ti dicevo sopra ho perso interesse anche perché paga poco.

Per quanto riguarda lo script era stato costruito con la direttiva di qualche utente di sommare ad ogni estrazione un numero chiave da 1 a 55 e conteggiare quanti esiti avrebbero fatto le estrazioni con i numeri estratti addizionati ad un numero chiave e poi vedere oltre la frequenza anche il ritardo della chiave in esame.

Altro non saprei dirti di più, rivedere script costruiti per uno scopo è sempre complicato adattarli ad altro scopo, a volte è meglio avere un progetto ex novo e valutarne il costrutto ex novo.

Ciao

 

[francoaltura]

GRAZIE Mike58, gentile ed esaudiente come sempre. E' vero, spulcio qua e là con l'intento di trovare qualcosa di interessante, se lo troverò sarai il primo a saperlo, ciao e ancora GRAZIE.

 

[Alien.]

Alien in qualche pagina indietro c'è il plugin per scaricare l'archivio e crearlo ex novo ed aggiornarlo.
se fini ad ora non l'ho hai utilizzato hai perso tempo o sei stato fuori dalla galassia.

Io ho perso interesse per questo gioco come anche negli script e nel forum, non posso aiutarvi ulteriormente.

Ciao

e si questo è vero ma come faccio a stare dietro a tutto visito troppe galassie poi mi perdo hahahahahha ciao

 

[Alien.]

Ciao,scusa MIKE mi son perso l'aggiornamento archivio mi da errore .... non contiene colonne uniforme devono essere separate da , ecc-come risolvo,grazie.

 

[Mike58]

Ciao,scusa MIKE mi son perso l'aggiornamento archivio mi da errore .... non contiene colonne uniforme devono essere separate da , ecc-come risolvo,grazie.

Alien l'aggiornamento automatico in questo post usano il carattere separatore "; " punto e virgola mentre altri archivi possono avere il carattere "," virgola in ogni script c'è un ariga per lo split dei caratteri identificata come
AprebaseDati. verifica che i caratteri di script siano uguali all'archivio usato-
Mi sono un po rotto di dire sempre le stesse cose.
Ciao