Novità

Lotteria MillionDay

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.101
Punti reazione
87
Punti
48
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

antonio65

Super Member >PLATINUM<
Messaggi
364
Punti reazione
2
Punti
18
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<
Messaggi
1.410
Punti reazione
35
Punti
48
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.
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.375
Punti reazione
207
Punti
63
Qualcuno ha quantificato se è + equo del lotto e se si, di quanto?
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.101
Punti reazione
87
Punti
48
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<
Messaggi
2.101
Punti reazione
87
Punti
48
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<
Messaggi
1.410
Punti reazione
35
Punti
48
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 [HR][/HR] [HR][/HR]
 
Ultima modifica:

solare

Advanced Member >PLATINUM<
Messaggi
1.410
Punti reazione
35
Punti
48
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<
Messaggi
2.101
Punti reazione
87
Punti
48
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<
Messaggi
296
Punti reazione
3
Punti
18
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<
Messaggi
2.101
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
467
Punti reazione
3
Punti
18
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

Super Member >PLATINUM<
Messaggi
467
Punti reazione
3
Punti
18
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<
Messaggi
2.101
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
467
Punti reazione
3
Punti
18
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<
Messaggi
2.101
Punti reazione
87
Punti
48
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
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18

Ultimi Messaggi

Alto