Novità

Tabella statistica

Zetrix

Advanced Premium Member
Codice:
Sub Main

   Dim arrData(10,13)
 
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
 
 
     'rv = InputBox("Quale numero vuoi controllare?",,0)
 
 
   For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
 
  For x = 1 To 90
 

 
   For r1 = 1 To 1
   For r2 = 2 To 2

   For r3 = 3 To 3
   For r4 = 4 To 4
   For r5 = 5 To 5
   For r6 = 6 To 6

   For r7 = 7 To 7
   For r8 = 8 To 8
   For r9 = 9 To 9
   For r10 = 10 To 10
 


'If r1 = 11 Then r1 = 12 End If

 
       
         arrData(1,1) = "" & x & "  BA "
         arrData(2,1) = "" & x & "  CA "
         arrData(3,1) = "" & x & "  FI "
         arrData(4,1) = "" & x & "  GE "
         arrData(5,1) = "" & x & "  MI "
         arrData(6,1) = "" & x & "  NA "
         arrData(7,1) = "" & x & "  PA "
         arrData(8,1) = "" & x & "  RO "
         arrData(9,1) = "" & x & "  TO "
         arrData(10,1) = "" & x & "  VE "
     
   



   
    arrData(1,2) = EstrattoRitardo(r1,x)
    arrData(2,3) = EstrattoRitardo(r2,x)
    arrData(3,4) = EstrattoRitardo(r3,x)
    arrData(4,5) = EstrattoRitardo(r4,x)
    arrData(5,6) = EstrattoRitardo(r5,x)
    arrData(6,7) = EstrattoRitardo(r6,x)
    arrData(7,10) = EstrattoRitardo(r7,x)
    arrData(8,11) = EstrattoRitardo(r8,x)
    arrData(9,12) = EstrattoRitardo(r9,x)
    arrData(10,13) = EstrattoRitardo(r10,x)
   



For k = 1 To 1


 
 
 Next



      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & " " & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
 
 
      Scrivi SiglaRuota(r1) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r1,x)
      Scrivi SiglaRuota(r2) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r2,x)
      Scrivi SiglaRuota(r3) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r3,x)
      Scrivi SiglaRuota(r4) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r4,x)
      Scrivi SiglaRuota(r5) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r5,x)
      Scrivi SiglaRuota(r6) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r6,x)
      Scrivi SiglaRuota(r7) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r7,x)
      Scrivi SiglaRuota(r8) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r8,x)
      Scrivi SiglaRuota(r9) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r9,x)
      Scrivi SiglaRuota(r10) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r10,x)
   


 Next
     
Next
Next
Next


Next
Next
Next
Next
Next
Next
Next
Next

End Sub


Ciao Joe ho questo script che da sempre errore puoi vedere perche con tutti i 90
dice sempre impossibile aprire negli appunti ho fatto diversi tentativi ma niente
da fare

For x = 1 To 90

se invece scrivo

For x = 1 To 2

per due numeri lo script non da errore
e come se lo script non ce la facesse ad elaborare tutti i 90 numeri
adesso non voglio scomodare LuigiB perche forse a molte altre cose
da fare se puoi vedere te se riesci a risolvere questo problema
visto la tua bravura e la professionalità in merito ai script che realizzi
ho visto che ce anche Cinzia27 che e molto brava con i listati script
in ogni modo chiedo se qualcuno riesce a risolvere questa fastidiosa
finestra di windos che dice sempre impossibile aprire gli appunti

intanto buona domenica
 

Allegati

  • 1771.PNG
    1771.PNG
    7,3 KB · Visite: 15
Prova con questa correzione, con spazioMetria funziona perfettamente.

Option Explicit
Sub Main

Dim arrData(10,13)

Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11

Dim x,es,k


'rv = InputBox("Quale numero vuoi controllare?",,0)


For es = EstrazioneFin To EstrazioneFin
AvanzamentoElab EstrazioneFin,EstrazioneFin,es

For x = 1 To 90



For r1 = 1 To 1
For r2 = 2 To 2

For r3 = 3 To 3
For r4 = 4 To 4
For r5 = 5 To 5
For r6 = 6 To 6

For r7 = 7 To 7
For r8 = 8 To 8
For r9 = 9 To 9
For r10 = 10 To 10



'If r1 = 11 Then r1 = 12 End If



arrData(1,1) = "" & x & " BA "
arrData(2,1) = "" & x & " CA "
arrData(3,1) = "" & x & " FI "
arrData(4,1) = "" & x & " GE "
arrData(5,1) = "" & x & " MI "
arrData(6,1) = "" & x & " NA "
arrData(7,1) = "" & x & " PA "
arrData(8,1) = "" & x & " RO "
arrData(9,1) = "" & x & " TO "
arrData(10,1) = "" & x & " VE "






arrData(1,2) = EstrattoRitardo(r1,x)
arrData(2,3) = EstrattoRitardo(r2,x)
arrData(3,4) = EstrattoRitardo(r3,x)
arrData(4,5) = EstrattoRitardo(r4,x)
arrData(5,6) = EstrattoRitardo(r5,x)
arrData(6,7) = EstrattoRitardo(r6,x)
arrData(7,10) = EstrattoRitardo(r7,x)
arrData(8,11) = EstrattoRitardo(r8,x)
arrData(9,12) = EstrattoRitardo(r9,x)
arrData(10,13) = EstrattoRitardo(r10,x)




For k = 1 To 1




Next



Call Scrivi("Grafico" & k)
'Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & " " & x & Space(5) & " Rit.Att. " & Space(5) & ""," titX & "," titY"" ,True)
Call Grafico(arrData,2,DataEstrazione(es) & Space(5) ,,True)

Scrivi SiglaRuota(r1) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r1,x)
Scrivi SiglaRuota(r2) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r2,x)
Scrivi SiglaRuota(r3) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r3,x)
Scrivi SiglaRuota(r4) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r4,x)
Scrivi SiglaRuota(r5) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r5,x)
Scrivi SiglaRuota(r6) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r6,x)
Scrivi SiglaRuota(r7) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r7,x)
Scrivi SiglaRuota(r8) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r8,x)
Scrivi SiglaRuota(r9) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r9,x)
Scrivi SiglaRuota(r10) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r10,x)



Next

Next
Next
Next


Next
Next
Next
Next
Next
Next
Next
Next

End Sub
 

Zetrix

Advanced Premium Member
grazie Antonio ho provato lo script adesso non da errore quindi lo sbaglio
era che non ho dimesionate la x, k ,es,
ho visto che funziona anche senza Option Explicit che poi non ho capito a
che serve questa stringa io non la scrivo mai nei listati
 

i legend

Premium Member
Optional explicit ti obbliga a dichiarare tutte le variabili e ti permette di evitare o rintracciare possibili errori.
Lo script sopra potrebbe essere ottimizzato, purtroppo al momento non ho il pc a disposizione per mostrare come. Appena posso magari se non lo fa qualcuno prima ve lo mostro .
Ciao :)
 

Zetrix

Advanced Premium Member
grazie i legend se riesci a ottimizzare la tabella aspetto le tue dritte io ho gia creato piu di duecento
tabelle perche io non mi arrendo e lo devo battere il banco anche con la statistica
se vogliono la guerra l'hanno trovata

Ciao :)
 

joe

Advanced Member >PLATINUM PLUS<
Si ma prima devi imparare i For-Next

perché se li usi a quel modo la battaglia la fai ai mulini a vento.

For R = 1 to 10
Scrivi NomeRuota (R)
Next

R = 1 / R = 2 / R = 3 / ... / R = 10 non devono essere scritti a mano

DEVONO ESSERE UNA SOLA "R" alla quale il computer cambia il valore ad ogni ciclo.

Per esempio con 3 righe di codice scrivi 10 nomi di ruota differenti ... IN AUTOMATICO.

NON DEVONO ESSERE USATE 10 VARIABILI DIFFERENTI

MA UNA SOLA che assume tanti valori (entro i limiti 1-10).

E ... OGNI VALORE DIFFERENTE INDICA ED INDIRIZZA ad un "qualcosa" di simile e differente.

Com'è per noi il 1° nome di Ruota è Bari.

Il 2° è Cagliari .... il 10° è Venezia così per il computer è:

NomeRuota (INDICIZZATO) ... con un numero che "ho scelto" essere R.

Combiando R ... per 10 volte ... indirizzo al nome di 10 Ruote differenti.

Se R = 5 ... Scrivi NomeRuota (R) ... scriverà "Milano"

Se R = 10 ... Scrivi NomeRuota (R) ... scriverà "Venezia"

For R1 = 1 To 1
For R2 = 1 To 1 (x 10 volte che FORSE potrebbero essere 13)

E' una cosa che mette paura ... ma non al banco.

:)
 
Ultima modifica:

Zetrix

Advanced Premium Member
Joe mi stai dicendo che questo prospetto che ho scritto non va bene
lo so che ho un po di difficoltà con i for e i next infatti non sai quanti
errori ho fatto con i for e i next perche basta che gli cambi di ordine
nelle righe dello script e si fa un casino comunque questo prospetto
che ho scritto lo fatto con il copia e incolla basta che copio la prima riga
e poi le incollo tutte le altre righe ma devo risistemare le ruote r1 r2 ecc

:)

Scrivi SiglaRuota(r1) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r1,x)
Scrivi SiglaRuota(r2) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r2,x)
Scrivi SiglaRuota(r3) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r3,x)
Scrivi SiglaRuota(r4) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r4,x)
Scrivi SiglaRuota(r5) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r5,x)
Scrivi SiglaRuota(r6) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r6,x)
Scrivi SiglaRuota(r7) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r7,x)
Scrivi SiglaRuota(r8) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r8,x)
Scrivi SiglaRuota(r9) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r9,x)
Scrivi SiglaRuota(r10) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r10,x)
 

joe

Advanced Member >PLATINUM PLUS<
E' complicato ed ognuno può avere soluzioni diverse ... o le sue.

Io ho come mia regola: "3 casi".

Se devio scrivere tre nomi di ruota li scrivo ...

Se sono più di 3, li faccio scrivere al computer.

Se ho una posizione da leggere scrivo qual'è la posizione da leggere.

Se sono 5 (come le posizioni) o 10 (come le ruote) o 90 (come i numeri),

li faccio scorrere dal computer.

Tu hai 10 ruote hai usato 10 variabili.

Hai dovuto incollarle 10 volte

rinominarle una ad una (aggiungendo un numero progressivo ad ogni nuova R).

10 volte + 10 volte con il rischio di commettere molti errori.

Se avessi voluto creare una tabella 10 x 90 avresti 900 righe e variabili da incollare e rinominare.

Una per ogni cella e gli errori diventano inevitabili. La lettura/correzione impossibile.

Anche il tempo di preparazione della tabella e del suo script diventa enorme.

Mentre se afferri che hai bisogno di 2 variabili (Numero e Ruota)

puoi avere una tabella con tutti i ritardi di tutti i numeri di tutte le ruote ...

pulita,ordinata,giusta, semplice, senza errori, in meno di un minuto.

Codice:
Option Explicit
Sub Main
Dim N,R
  For N = 1 To 90
    Scrivi Format2(N) & Space(1),True,False
    For R = 1 To 10
      Scrivi FormatSpace(RitardoEstratto(N,EstrazioneFin,R),4,True),0,0
    Next
    Scrivi
  Next
End Sub
 

Zetrix

Advanced Premium Member
Joe non si mette in discussione la tua professionalità ma
con i rit dei numeri non si fa la guerra al banco
ci vogliono delle strategie di gioco sei bravo a fare le tabelle
con 90 numeri me ne servono tre pannelli con 90 numeri
uno che evidenzia i numeri con una uscita durante un ciclo di estrazioni
un altro pannello che evidenzia i numeri con due uscite e piu
e infine un altro pannello che evidenzia i numeri con 0 uscite
e forse in questo modo si potrebbe iniziare a fare la guerra al banco
e non ai mulini al vento
 

joe

Advanced Member >PLATINUM PLUS<
Se il periodo è fisso (18 estrazioni) in questo periodo

ogni numero può essere estratto tanto zero volte

come una, due,tre e raramente qualche volta in più.

Però i numeri sono 90 e le ruote 10/11.

La tabella rimane pressoché identica.

si cambia l'istruzione ritardo con frequenza.

Se ho usato ritardo è perché quello era il tuo esempio.

anche la scelta di avere tre tabelle una piena al 60%

una al 20% ed una quasi vuota. è scelta personale.

Se così deve essere basta aggiungere un terzo for-next da 1a 3

per avere 3 tabelle.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Joe non si mette in discussione la tua professionalità ma
con i rit dei numeri non si fa la guerra al banco
ci vogliono delle strategie di gioco sei bravo a fare le tabelle
con 90 numeri me ne servono tre pannelli con 90 numeri
uno che evidenzia i numeri con una uscita durante un ciclo di estrazioni
un altro pannello che evidenzia i numeri con due uscite e piu
e infine un altro pannello che evidenzia i numeri con 0 uscite
e forse in questo modo si potrebbe iniziare a fare la guerra al banco
e non ai mulini al vento

Codice:
Option Explicit
Sub Main
  ' Nero = ZERO presenze nelle ULTIME 18 Estrazioni
  ' Blu  = UNA  presenza nelle ULTIME 18 Estrazioni (Freq = 0.056)
  'Rosso = DUE o PIU' presenze nelle ULTIME 18 Estrazioni
  Dim N,R,F
  For N = 1 To 90
    ColoreTesto 0
    Scrivi Format2(N),True,False
    For R = 1 To 10
      F = EstrattoFrequenza(R,N,EstrazioneFin - 17,EstrazioneFin)
      ColoreTesto 0
      If F >= 2 Then ColoreTesto 2
      If F = 1 Then ColoreTesto 1
      Scrivi FormatSpace(SiglaRuota(R),3,True),0,0
    Next
    Scrivi
  Next
End Sub

:)
 

joe

Advanced Member >PLATINUM PLUS<
Facendo seguito a quanto ho scritto ...

Se si vogliono 3 tabelle separate ... basta separare le 3 parti di cui si compone quella unica,

Come detto lo si può fare, aggiungendo semplicemente un ciclo "For-Next" quale contatore di tabelle "T".

Sempre che debbano essere 3 e che ... questa nuova componente cabalistica ...

non sia oggetto di ulteriore voluttuosità:

Codice:
Option Explicit
Sub Main
  Dim N,R,F,T
  Scrivi String(35,"="),True
  For T = 2 To 0 Step - 1
    ColoreTesto T
    Scrivi "N°" & Space(4) & T & " Presenze / 18 Estrazioni",True
    For N = 1 To 90
      Scrivi Format2(N),True,False
      For R = 1 To 12 : If R = 11 Then R = 12
        F = EstrattoFrequenza(R,N,EstrazioneFin - 17,EstrazioneFin)
        If F = T Or F > 2 Then
          Scrivi FormatSpace(SiglaRuota(R),3,True),0,0
        Else
        Scrivi Space(3),0,0
        End If
      Next
      Scrivi
    Next
    ColoreTesto 0 : Scrivi String(35,"="),True
  Next
  Scrivi "Agg al " & DataEstrazione(EstrazioneFin),True
End Sub

:)
 

Red*one

Banned
Facendo seguito a quanto ho scritto ...

Se si vogliono 3 tabelle separate ... basta separare le 3 parti di cui si compone quella unica,

Come detto lo si può fare, aggiungendo semplicemente un ciclo "For-Next" quale contatore di tabelle "T".

Sempre che debbano essere 3 e che ... questa nuova componente cabalistica ...

non sia oggetto di ulteriore voluttuosità:

Codice:
Option Explicit
Sub Main
  Dim N,R,F,T
  Scrivi String(35,"="),True
  For T = 2 To 0 Step - 1
    ColoreTesto T
    Scrivi "N°" & Space(4) & T & " Presenze / 18 Estrazioni",True
    For N = 1 To 90
      Scrivi Format2(N),True,False
      For R = 1 To 12 : If R = 11 Then R = 12
        F = EstrattoFrequenza(R,N,EstrazioneFin - 17,EstrazioneFin)
        If F = T Or F > 2 Then
          Scrivi FormatSpace(SiglaRuota(R),3,True),0,0
        Else
        Scrivi Space(3),0,0
        End If
      Next
      Scrivi
    Next
    ColoreTesto 0 : Scrivi String(35,"="),True
  Next
  Scrivi "Agg al " & DataEstrazione(EstrazioneFin),True
End Sub

:)
Buon pomeriggio, Joe ,Zetrix chiedo a Voi:
è possibile inserire a quest'ultimo una rappresentanza grafica dove si possa selezionare ruota e numero ,che vada a verificare l'andamento del numero nelle ultime 100 estrazioni?
 

joe

Advanced Member >PLATINUM PLUS<
Buon pomeriggio, Joe ,Zetrix chiedo a Voi:
è possibile inserire a quest'ultimo una rappresentanza grafica dove si possa selezionare ruota e numero ,che vada a verificare l'andamento del numero nelle ultime 100 estrazioni?

Il grafico ... in genere si usa per evidenziare curve ed aspetti

difficilmente rappresentabili o difficilmente ricavabili visivamente in una tabella.

Per esempio per interpolare un numero tra due estremi

o estrapolare (trovare fuori da questi poli) per esempio il valore di un ritardo futuro.

Trovare il punto di incrocio di linee. La secante, evidenziare uno sfasamento,

Rappresentare una isteresi, una curva di rottura.

Punti di massima, di minima, di tangente, di flesso ...

O semplicemente per vedere se nei numeri è presente una parabola (Ascendente/Discendente),

una curva asintotica, una polinomiale, una esponenziale.

Se i numeri rappresentano, una retta, trovarne il modulo ecc. ecc.

Però mettere assieme molte linee in un grafico o averne una sola,

(che neppure esiste) crea più problemi che soluzioni.

Per esempio se anche tu cerchi i numeri galleggianti ... o qualcosa di simile,

che sono solo il prodotto scaturito dalla fantasia-commerciale del farsi pagare,

se è vero che un grafico li evidenzia

(se sono la rappresentazione di uno solo numero in una sola ruota)

trovarli in un ammasso di 90 linee intrecciate tra loro è impossibile all'occhio umano.

Dunque meglio non sovrapporre i loro dati graficamente.

Molto meglio usare gli script.

Cioè creare un robot-esploratore, capace di cercare e trovare cosa si vorrebbe trovare.

In sintesi se sai già quale è il numero e quale è la ruota è relativamente inutile creare un grafico.

Se non lo sai e lo cerchi tra tutti i numeri, poi non riuscirai a discriminare e scegliere la linea di tuo interesse.

:)
 

Red*one

Banned
Il grafico ... in genere si usa per evidenziare curve ed aspetti

difficilmente rappresentabili o difficilmente ricavabili visivamente in una tabella.

Per esempio per interpolare un numero tra due estremi

o estrapolare (trovare fuori da questi poli) per esempio il valore di un ritardo futuro.

Trovare il punto di incrocio di linee. La secante, evidenziare uno sfasamento,

Rappresentare una isteresi, una curva di rottura.

Punti di massima, di minima, di tangente, di flesso ...

O semplicemente per vedere se nei numeri è presente una parabola (Ascendente/Discendente),

una curva asintotica, una polinomiale, una esponenziale.

Se i numeri rappresentano, una retta, trovarne il modulo ecc. ecc.

Però mettere assieme molte linee in un grafico o averne una sola,

(che neppure esiste) crea più problemi che soluzioni.

Per esempio se anche tu cerchi i numeri galleggianti ... o qualcosa di simile,

che sono solo il prodotto scaturito dalla fantasia-commerciale del farsi pagare,

se è vero che un grafico li evidenzia

(se sono la rappresentazione di uno solo numero in una sola ruota)

trovarli in un ammasso di 90 linee intrecciate tra loro è impossibile all'occhio umano.

Dunque meglio non sovrapporre i loro dati graficamente.

Molto meglio usare gli script.

Cioè creare un robot-esploratore, capace di cercare e trovare cosa si vorrebbe trovare.

In sintesi se sai già quale è il numero e quale è la ruota è relativamente inutile creare un grafico.

Se non lo sai e lo cerchi tra tutti i numeri, poi non riuscirai a discriminare e scegliere la linea di tuo interesse.

:)
grazie infinite Joe per la tua splendida ed esauriente risposta .
 

joe

Advanced Member >PLATINUM PLUS<
E' tutto da controllare

BA 51 Ultimi Ritardi 7 4 9 15 5 4 6 3 15 15
FI 63 Ultimi Ritardi 10 2 6 9 13 15 1 4 3 3
GE 52 Ultimi Ritardi 4 7 12 8 7 17 4 7 12 8
MI 50 Ultimi Ritardi 5 6 3 7 15 16 11 2 11 16
NA 29 Ultimi Ritardi 7 1 12 9 2 3 1 7 2 16
NA 77 Ultimi Ritardi 7 1 10 3 11 3 1 5 10 4
TO 51 Ultimi Ritardi 13 5 16 8 13 7 4 15 15 11
TO 74 Ultimi Ritardi 6 1 5 14 8 8 7 15 2 4

:)
 

Zetrix

Advanced Premium Member
buona sera Joe.. Red one

Joe oggi è stata una giornata schiattosa dal caldo e non ho visto ancora il tuo script con spaziometria lo farò domani
Le estrazioni in tutto devono essere 90 estr.
18 X 5
quindi 5 cicli di 18 estr.
la naz. mettila da parte perché è una ruota a se è non deve far parte del gioco a tutte
 

Zetrix

Advanced Premium Member
Joe non si combina niente con lo script che ai fatto

mi sa che ci vuole il software lotto studio personal
che studia le masse numeriche e la statistica dei numeri
ma costa un po non e un software gratis..


lotto studio personal
 

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