Novità

Lotteria MillionDay

Mike58

Advanced Member >PLATINUM PLUS<
e Vabbè script datati.... ecco le modifiche richieste.
Codice:
'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.
 

Alien.

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

Mike58

Advanced Member >PLATINUM PLUS<
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

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

Allegati

  • MillionDay_ordinato.txt
    17,8 KB · Visite: 21
  • MillionDay_ordinato.txt
    8,2 KB · Visite: 11

francoaltura

Junior Member
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

Advanced Member >PLATINUM PLUS<
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

Junior Member
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.

Advanced Premium Member
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.

Advanced Premium Member
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

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto