Novità

Lotteria MillionDay

Mike58

Advanced Member >PLATINUM PLUS<
Incuriosito da questa nuova Lotteria, ho voluto creare uno script Griglia Visiva, in modo da vedere e analizzare in modo per ora visivo i numeri estratti, con una loro statistica in presenze e ritardi.

Vi posto il file fi testo delle estrazioni, da aggiornare seguendo la logica dei 3 punti
Numero estrazione Progressiva.
Data
Estratti

separati da carattere ","

Con lo script della Griglia Tabella.

Fatene buon uso e soprattutto si accettano idee e suggerimenti sulla Lotteria (solo basi Statistiche).

Codice:
Sub Main
 Dim nu(5),T,V,aN(55)
 Dim sFileBd
 Dim sChrSep
 sChrSep = ","
 sFileBd = ScegliFile("C:\Mike58\Desktop\.txt") ' Percorso FileTesto
 'Call ApriBaseDatiFT(sFileBd,6,sChrSep,90) ' x Sivicetutto
 'Call ApriBaseDatiFT(sFileBd,5,sChrSep,40) ' x VinciCasa
 Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
 Ini = 1' EstrazioniArchivioFT - 20
 fin = EstrazioniArchivioFT - 1
 fine = EstrazioniArchivioFT
 ReDim T(57)'--------------------------------------------------------
 T(1) = "info data"
 T(2) = "Estratti"
 For x = 1 To 55
  T(x + 2) = Format2(x)
 Next
 Call InitTabella(T)
 For es = Ini To fine
  'For r = 1 To 1
  ReDim V(57)'------------------------------------------------------
  V(1) = GetInfoEstrazioneFT(es)
  V(2) = StringaEstrattiFT(es)
  For xx = 1 To 55
   aN(xx) = ""
   'aN(xx) = xx
   For p = 1 To 5
    nu(p) = EstrattoFT(es,p)
    If nu(p) = xx Then aN(xx) = aN(xx) & nu(p)
    If nu(p) = xx Then kk = kk + 1
    V(xx + 2) = aN(xx)
   Next
  Next
  Call AddRigaTabella(V)
 Next
 ReDim VV(57)
 For xxx = 1 To 55
  aa = EstrattoFrequenzaFT(xxx,Ini,fine)
  VV(1) = "Presenze"
  VV(xxx + 2) = aa
 Next
 Call AddRigaTabella(VV,3)
 ReDim VVV(57)
 For xxx = 1 To 55
  aa = EstrattoRitardoFT(xxx,Ini,fine)
  VVV(1) = "Ritardo"
  VVV(xxx + 2) = aa
 Next
 Call AddRigaTabella(VVV,6)
 ReDim VVVv(57)
 For xxx = 1 To 55
  aa = EstrattoStoricoFT(xxx,Ini,fine)
  VVVv(1) = "Rit Storico"
  VVVv(xxx + 2) = aa
 Next
 Call AddRigaTabella(VVVv,7)
 Call SetTableWidth("100%")
 CreaTabella
 For y = 1 To 40
  n = EstrattoFrequenzaFT(y,Ini,fin)
  m = EstrattoRitardoFT(y,Ini,fin)
  o = EstrattoStoricoFT(y,Ini,fin)
  If n > 0 And m = o Then
   kn = kn + 1
   ReDim Preserve aNum(kn)
   aNum(kn) = y
   ReDim Preserve aRit(kn)
   aRit(kn) = m
   Call VerificaEsitoFT(aNum,fine,1,1,esito,,es1)
  End If
 Next
 Scrivi "Numeri per Gioco  : " & StringaNumeri(aNum,,1) & " ( " & kn & " )" & vbTab & esito & vbTab & es1,1
 Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
End Sub

Immagine




File di Testo.


Ciao
 

Allegati

  • MillionDay.txt
    664 bytes · Visite: 68

antonio65

Super Member >PLATINUM<
Buonasera Mike, grazie per il nuovo "script" un assaggino....questo conferma la tua bravura ....come mi hai detto sono un vulcano di idee....
puoi provare ad esempio nelle varie estrazioni del lotto tradizionali mi spiego...ricercando nelle varie ruote numeri che vengono sortiti da 1-55 ovviamente nella stessa ruota
e controllare poi successivamente cosa succede sul nuovo gioco...potrebbe essere una statistica se ben condizionata dalla differenza dei numeri....
 

solare

Advanced Member >PLATINUM<
Ciao Mike58, Intanto complimenti per questo listato.
La mia idea è: Avere la possibilità di far statistica periodica analizzando le frequenze con possibilità di verifica del gg più frequente per determinati numeri. Sempre che sia possibile riuscire ad avere il ritardo minimo e max relativo al giorno. Capisco che adesso è prestino in quanto abbiamo poche estrazioni però si può intanto cominciare a vedere l'evoluzione con questo metodo statistico.
Quindi non il ritardo generale ma del singolo gg.
 

Mike58

Advanced Member >PLATINUM PLUS<
Per Ora è meglio vedere solo statistiche reali, visto le estrazioni ridotte non è indicativo andare in singole analisi.

Per valutare se è equo possiamo solo vedere le combinazioni necessarie per sorte ed il relativo rapporto.

Tutto il resto bisogna aspettarlo.

Num CmB Rapp
1 55 11
2 1485 297
3 26235 5247
4 341055 68211
5 3478761 695752.2

intanto per chi vuole valutiamo la singola giocata per estrazioni.

Codice:
Sub Main
 Dim Nu(5),NP(55),aN(90),T,V,sFile
 sFile = ScegliFile("C:\Mike58\Desktop\MillionDay\.txt")
 Call ApriBaseDatiFT(sFile,5,",",55)
 T = Array(T,"Data Esstaz.","Estratti","Peso & ( F55 )","1-11","12-22","23-33","34-44","45-55","Esito","Punti","Vincita $$ ","Rit Prec","Freq Es")
 Call InitTabella(T)
 Ini = 1
 fin = EstrazioniArchivioFT
 d11 = ""
 d22 = ""
 d33 = ""
 d44 = ""
 d55 = ""
 riga = ""
 riga2 = ""
 For x = 1 To 1
  'NP(x) = Array(0,20,21,34,37,46)
  NP(X) = Array(0,11,15,22,36,44)
  Scrivi "Numeri in Gioco : " & StringaNumeri(NP(x)),1
  Scrivi "Giocata al MillionDay ",1,,,1,3,,1
  For es = Ini To fin
  k = k + 1
   For p = 1 To 5
    aN(p) = ""
    Nu(p) = EstrattoFT(es,p)
    aa = SommaEstrattiFT(es)
    bb = FuoriX(aa,55)
    If Nu(p) <= 11 Then d11 = d11 & Nu(p) & " "
    If Nu(p) > 11 And Nu(p) < 23 Then d22 = d22 & Nu(p) & " "
    If Nu(p) > 22 And Nu(p) < 34 Then d33 = d33 & Nu(p) & " "
    If Nu(p) > 33 And Nu(p) < 45 Then d44 = d44 & Nu(p) & " "
    If Nu(p) > 44 And Nu(p) < 56 Then d55 = d55 & Nu(p) & " "

    If Nu(p) <= 11 Then dd11 = dd11 + 1
    If Nu(p) > 11 And Nu(p) < 23 Then dd22 = dd22 + 1
    If Nu(p) > 22 And Nu(p) < 34 Then dd33 = dd33 + 1
    If Nu(p) > 33 And Nu(p) < 45 Then dd44 = dd44 + 1  
    If Nu(p) > 44 And Nu(p) < 56 Then dd55 = dd55 + 1

    rit = EstrattoRitardoFT(Nu(p),Ini,es - 1)
    fre = EstrattoFrequenzaFT(Nu(p),Ini,es)
    riga = riga & Format2(rit) & " "
    riga2 = riga2 & Format2(fre) & " "


   Next
   Call VerificaEsitoFT(NP(x),es,1,1,,,es1)
   pt = SerieFreqFT(es,es,NP(x),1)
   If pt = 0 Or pt = 1 Then vc = 0
   If pt = 2 Then vc = 2
   If pt = 3 Then vc = 50
   If pt = 4 Then vc = 100
   If pt = 5 Then vc = 1000000
   V = Array(V,GetInfoEstrazioneFT(es),StringaNumeri(Nu,,1),aa & " ( " & bb & " )",d11,d22,d33,d44,d55,es1,pt,vc,riga,riga2)
   Call AddRigaTabella(V)
   For xx = 4 To 8
   Call SetColoreCella((xx),6,0)
   If pt > 1 Then Call SetColoreCella(11,3,1)
   Call SetColoreCella(2,6,0)
   Next

   d11 = ""
   d22 = ""
   d33 = ""
   d44 = ""
   d55 = ""
   riga = ""
   riga2 = ""
  Next
 Next
 vv = Array(vv," "," ","Totali",dd11,dd22,dd33,dd44,dd55," "," "," "," "," ")
 Call AddRigaTabella(vv)
 CreaTabella
End Sub
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Per Ora solo scarobocchi.

Codice:
Sub Main
 Dim sFileBd
 Dim sChrSep
 sChrSep = ","
 sFileBd = ScegliFile("C:\Mike58\Desktop\.txt")
 Call ApriBaseDatiFT(sFileBd,5,sChrSep,55)
 '=================================================
 Dim T,V,Nu(1),Ru(1)
 Ini = 1'EstrazioneFin - estr
 fin = EstrazioniArchivioFT
 Tot = fin - Ini + 1
 Scrivi "Presenze MillionDay : " & scelta,1,1,,1,3,,1
 Scrivi "Range Inizio  : " & GetInfoEstrazioneFT(Ini)
 Scrivi "Range Fine    : " & GetInfoEstrazioneFT(fin)
 Scrivi "Totali Estraz.: " & Tot
 Scrivi
 T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To 55
  For n = 1 To 55
   Nu(1) = n
   If SerieFreqFT(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieRitardoFT(ini,fin,riga,1)
    Call VerificaEsitoFT(riga,fin,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  'riga = ""
  k = 0
 Next
 Call CreaTabella()
 Scrivi
 Scrivi
 Scrivi "Script By Mike58",1,,,1,2,,1
 T = Array(T,"N.Ritardo","Numeri","Q.tà","Freq Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To 55
  For n = 1 To 55
   Nu(1) = n
   'Ru(1) = 5
   If SerieRitardoFT(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieFreqFT(ini,fin,riga,1)
    Call VerificaEsitoFT(riga,fin,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  k = 0
 Next
 Call CreaTabella()
End Sub
 
Ultima modifica:

solare

Advanced Member >PLATINUM<
Ciao, chiedo se potrebbe essere usato questo tuo listato con le opportune modifiche. Magari inserendo la possibilità della statistica giornaliera e perchè no anche mensile.
Questa ovviamente è una mia idea. segue listato

 
Ultima modifica:

solare

Advanced Member >PLATINUM<
Sub Main()
Dim nua(4005,16),nn(2)
'ee = DataEstrToIdEstr (31,12,2009)

ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/2009")
ms = CInt(InputBox("In quale mese? ",,1))
If ms = "" Then Exit Sub
'r = CInt(InputBox("Di quale ruota? ",,5))
'If r = "" Then Exit Sub
'ru(1) = r
q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
If q = "" Then Exit Sub
'
ReDim ru(0)
r = ScegliRuote(ru)
fin = EstrazioneFin
ResetTimer
'------------init tabella ------------------
ReDim atitoli(15)
atitoli(1) = " "
atitoli(2) = " Numero "
atitoli(3) = " Frequenza "
atitoli(4) = " Ritardo Attuale "
atitoli(5) = " Anno_2016 "
atitoli(6) = " Anno_2015 "
atitoli(7) = " Anno 2014 "
atitoli(8) = " Anno 2013 "
atitoli(9) = " Anno 2012 "
atitoli(10) = " Anno 2011 "
atitoli(11) = " Anno 2010 "
atitoli(12) = " Anno 2017 "
atitoli(13) = " Anno 2018 "
atitoli(14) = " Rit Sto "
atitoli(15) = " "
Call InitTabella(atitoli,1,,3,5)
For es = PrimaSuccessiva(ee) To fin
If Mese(es) = ms Then
co = 0
'For x = 1 To 89
'x = cg
'For y = x + 1 To 90
For x = 1 To 90
'If x <> y Then
co = co + 1
nua(co,1) = co
nua(co,2) = x
'nua(co,3) = y
nn(1) = x
'nn(2) = y
k = SerieFreqTurbo(es,es,nn,ru,1)
rt = SerieRitardoTurbo(Ini,fin,nn,ru,1)
rs = SerieStoricoTurbo(Ini,fin,nn,ru,1)
nua(co,4) = nua(co,4) + k
nua(co,5) = rt
nua(co,15) = rs
k1 = 0
If Anno(es) = 2016 Then k1 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,6) = nua(co,6) + k1
k2 = 0
If Anno(es) = 2015 Then k2 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,7) = nua(co,7) + k2
k3 = 0
If Anno(es) = 2014 Then k3 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,8) = nua(co,8) + k3
k4 = 0
If Anno(es) = 2013 Then k4 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,9) = nua(co,9) + k4
k5 = 0
If Anno(es) = 2012 Then k5 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,10) = nua(co,10) + k5
k6 = 0
If Anno(es) = 2011 Then k6 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,11) = nua(co,11) + k6
k7 = 0
If Anno(es) = 2010 Then k7 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,12) = nua(co,12) + k7
k8 = 0
If Anno(es) = 2017 Then k8 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,13) = nua(co,13) + k8
k9 = 0
If Anno(es) = 2018 Then k9 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,14) = nua(co,14) + k9


Next
'Next
End If
Next
OrdinaMatrice nua,- 1,4
ColoreTesto 2
Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),1
ColoreTesto 0
Scrivi "I " & q & " Numeri più frequenti " & " a " & StringaRuote(ru) & " nel mese di " & MeseNome(ms),1
Scrivi
For z = 1 To q
ReDim avalori(15)
avalori(1) = " "
avalori(2) = nua(z,2)
avalori(3) = nua(z,4)
avalori(4) = nua(z,5)
avalori(5) = nua(z,6)
avalori(6) = nua(z,7)
avalori(7) = nua(z,8)
avalori(8) = nua(z,9)
avalori(9) = nua(z,10)
avalori(10) = nua(z,11)
avalori(11) = nua(z,12)
avalori(12) = nua(z,13)
avalori(13) = nua(z,14)
avalori(14) = nua(z,15)
avalori(15) = " "
Call AddRigaTabella(avalori,,,3)
For xx = 5 To 12
Call SetColoreCella((xx),4,1)

If avalori(5) > 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 And avalori(10) > 0 And avalori(11) > 0 And avalori(12) > 0 Then
Call SetColoreCella((xx),6,1)
Call SetColoreCella(2,6,1)
End If
Next
'If avalori(5) = 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 Then Call SetColoreCella(2,vbGreen)
'If avalori(5) > 0 Then Call SetColoreCella(2,2,4)
'If rit = 0 Then Call SetColoreCella(4,3,2)
If avalori(4) = 0 Then Call SetColoreCella(4,3,2)
Call SetColoreCella(1,1,0)
Call SetColoreCella(15,1,0)
k11 = k11 + avalori(5)
k12 = k12 + avalori(6)
k13 = k13 + avalori(7)
k14 = k14 + avalori(8)
k15 = k15 + avalori(9)
k16 = k16 + avalori(10)
k17 = k17 + avalori(11)
k18 = k18 + avalori(12)
k19 = k19 + avalori(13)
'riga = Format2(nua(z,2)) & "-" & Format2(nua(z,3)) & Space(3) & Format2(nua(z,4)) & Space(10) & Format2(nua(z,5))
'Scrivi Space(10) & riga,1
'riga = ""
Next
ReDim avalori1(15)
avalori1(1) = " "
avalori1(5) = k11
avalori1(6) = k12
avalori1(7) = k13
avalori1(8) = k14
avalori1(9) = k15
avalori1(10) = k16
avalori1(11) = k17
avalori1(12) = k18
avalori1(13) = k19
Call AddRigaTabella(avalori1,1,,3,5)
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi "Tempo di Elaborazione : " & TempoTrascorso
Scrivi " Tabella listed by Mike58 ",1,- 1,3
End Sub
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Solare come ho detto sopra per ora visto le estrazioni ridotte e riferite ad appena 2 mesi, questo tipo di raccolta ancora non è proponibile, poi non saprei addirittura giornaliera per giorno che valenza potrebbe avere.

Tutto è possibile, ma per ora cerchiamo di raccogliere dati in maniera globale, poi con il susseguirsi delle estrazioni, sarà possibile filtrare come e dove si vorrà.

Ciao.

P.s. sarebbe sempre meglio non mettere listati creati per altri scopi in modo da non confondere il possibile costrutto è sempre gradito e più indicato elencare l'iter nel suo dettaglio.
 

ppaaoolloo

Super Member >PLATINUM<
ciao

ho provato a cercare in rete ma non ho trovato niente,
si potrebbe avere il tabellone analitico del milion day

grazie
ciao
 

Mike58

Advanced Member >PLATINUM PLUS<
Eccolo


Codice:
Sub Main
 Dim nu(5),sfile
 sfile = ScegliFile("C:\Mike58\Desktop\.txt")
 Call ApriBaseDatiFT(sfile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 Scrivi Space(15) & " ************* TABELLONE ANALITICO Million Day ************** ",1,1,,1,3
 Scrivi
 For es = fin To Ini Step - 1
  nk = nk + 1
  For p = 1 To 5
   nu(p) = EstrattoFT(es,p)
   If EstrattoFrequenzaFT(nu(p),es,fin) > 1 Then nu(p) = "__"
   If nu(p) <> "__" Then kk = kk + 1
  Next
  If kk > 0 Then
   Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
   Scrivi nk - 1 & vbTab,0,0
   Scrivi StringaNumeri(nu,,1) & vbTab & "  Caduti... " & 5 - kk & vbTab & " Rimasti... " & kk,1
   kk = 0
  End If
 Next
End Sub

 
Ultima modifica:

edesimone

Advanced Member >PLATINUM<
Buona sera Mike58
volevo chiederti se voglio utilizzare questo mio file archivio,
con queste caratteristiche,faccio presente che ci sono ; dove
si deve intervenire sullo script.

1;7/2/2018;7 16 43 44 51
2;8/2/2018;15 26 27 38 53
3;9/2/2018;2 13 31 43 45
4;10/2/2018;28 44 46 47 49
5;11/2/2018;5 33 39 40 46
6;12/2/2018;5 21 26 41 53
7;13/2/2018;3 34 43 46 50
8;14/2/2018;15 18 40 53 54
9;15/2/2018;1 12 19 32 47
10;16/2/2018;40 41 44 46 48
11;17/2/2018;10 15 18 52 55
12;18/2/2018;13 20 29 42 51
13;19/2/2018;1 6 25 29 44
14;20/2/2018;10 35 37 42 54
15;21/2/2018;6 16 23 29 31
16;22/2/2018;5 19 21 29 37
17;23/2/2018;7 16 17 35 48
18;24/2/2018;12 15 20 23 46
19;25/2/2018;6 10 14 29 35
20;26/2/2018;4 25 34 37 48
21;27/2/2018;11 16 43 46 47
22;28/2/2018;2 25 26 31 52
23;1/3/2018;1 20 47 48 52
24;2/3/2018;8 18 23 32 34
25;3/3/2018;5 14 28 43 46
26;4/3/2018;3 9 15 34 55
27;5/3/2018;16 28 32 40 54

un saluto edesimone
 

edesimone

Advanced Member >PLATINUM<
Grazie magia
io voglio utilizzare il mio file con quelle caratteristiche, mi puoi modificare lo script,
con il mio archivio.
grazie edesimone
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Magia, ben ritrovato e grazie per l'intervento alla domanda di edesimone.

Purtroppo edesimone cosi come è strutturato il tuo archivio non risulta leggibile dai file fi testo, in quanto non presenta caratteri comuni.

Puoi mettere tutti i separatori che si desiderano ma devono essere uguali per tutti i parametri e richiamarli con l'istruzione suggerita da Magia.

ossia
Numero progressivo
data formattata con "/"
Numeri estratti separati con lo stesso separatore utilizzato

esempio carattere ;

1;01/01/2018;11;22;33;44;55

Ciao
 
Ultima modifica:

edesimone

Advanced Member >PLATINUM<
Grazie mike58
era solo per praticità, mi ritrovo un programma MillionDay che aggiorna l'archivio con quelle caratteristiche.
un saluto edesimone
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao EdeSimone, capisco ma ci vuole un attimo a trasformarlo, se hai l'archivio con
numero progressivo ;
data :
estratti " " spazio

prendi il file cosi come è vai nel menu del file di testo - Modifica - sostituisci prima i : con / e saranno sostituiti tutti i caratteri "/"
ripeti la stessa operazione con lo spazio facendo copia e lo incolli in trova e sostituisci con ;
il munu chiederà se vuoi sostituire tutte le righe dicendo SI
salva il tutto e avrai l'archivio leggibile

Sarebbe un peccato desistere per cosi poco.

Ciao
 
Ultima modifica:

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

Ultimi Messaggi

Alto