Novità

Mente da programmatore

le tabelle si possono ordinare se nella pagina html c'è lo script che lo fa nella pagina stessa ma non è la stessa cosa della griglia ordinabile
stavamo parlando di quella percio non ti capivo.
La soluzione migliore per poter pasticciare sui dati delle tabelle è fare uscire un foglio excel , uno clicca sulla link e si are i lfoglio della tabella.
 
Intanto che aspetto la pagina degli script do la buona notte a tutti :)
Cmq con ordinamatrice poi possiamo fare tutto ugualmente.
Grazie come sempre:)
 
queste le funzioni script presenti fatte fno ad ora , a beneficio degli scripter per prendere confidenza


Codice:
Scrivi(Optional ByVal sNewText = "" as string , Optional grassetto as boolean = False, Optional ACapo as boolean = True, Optional HighlightColor as boolean  = -1, Optional TextColor as boolean  = -1, Optional Dimensione as boolean  = 2, Optional sFontName  as string = "Courier New", Optional bSottolineato as boolean = False, Optional bBarrato as boolean = False, Optional bItalic as boolean = False)
Estratto(idEstr as integer , Ruota as integer , Pos as integer ) As Integer
ImpostaGiocata(NumGiocata As Int16, aNumeri() As Byte, aRuote() As Byte, aPoste() As Single, Optional Durata As Byte = 1, Optional SorteInterr As Byte = 0, Optional Attesa As Byte = 0, Optional aGiocateDaInterrompere() As Int16 = Nothing, Optional bInterrompiTutteSeVincente As Boolean = False) As Boolean
Gioca(Inizio As Integer, Optional SoloPositivi As Boolean = False, Optional MantieniGiocate As Boolean = False, Optional ModalitaMostraEstrazione As eTipoMostraEstrzioneInGioca = eTipoMostraEstrzioneInGioca.MostraSeVincente, Optional bScriviInOutput As Boolean = True)
SetPremio(QuantitaNumeri As Integer, Sorte As Integer, Premio As Decimal) As Boolean
SetPremioEstrattoDet(Premio As Decimal) As Boolean
SetPremioAmbetto(QuantitaNumeri As Integer, Premio As Decimal) As Boolean
SetTassaScaglione(aScaglioniVincita() As Decimal, aTassa() As Decimal) As Boolean
ScriptInterrotto () as Boolean 
Messaggio(sTesto As String)
AvanzamentoElab(vMin As Integer, vMax As Integer, Valore As Integer)
InitTabella(aTitoli() As String, Optional Colore As Object = Nothing, Optional Align As Object = Nothing, Optional FontSz As Object = Nothing, Optional ColoreFont As Object = Nothing, Optional Bold As Object = Nothing, Optional FontName As Object = Nothing) As Boolean
AddRigaTabella(aValori() As String, Optional Colore As Object = Nothing, Optional Align As Object = Nothing, Optional FontSz As Object = Nothing, Optional ColoreFont As Object = Nothing, Optional Bold As Object = Nothing, Optional FontName As Object = Nothing) As Boolean
CreaTabella(Optional SortColumns As Object = Nothing, Optional SortDirection As Object = Nothing,Optional bCreaXls As Boolean = False) As Boolean
EstrattoRitardo(N As Integer, Ruote As Object, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer
EstrazioniArchivio() As Integer
NomeRuota(Ruota As Integer, Optional bBreve As Boolean = True) As String
AmboRitardo(N1 As Integer,N2 as Integer, Ruote As Object, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer
StatAmbo(N1 As Integer, N2 As Integer, Ruote As Object, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0)
StatEstratto(N1 As Integer, Ruote As Object, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0)
SerieRitardo(aNumeri() As Integer, Ruote As Object, Sorte As Integer, Inizio As Integer, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer
SerieStat(aNumeri() As Integer, Ruote As Object, Sorte As Integer, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0)as Boolean
GetLastError() As String
ScriviResoconto
DisegnaGraficoAndamento(Optional Base As Integer = 800, Optional Altezza As Integer = 600) As Boolean
ColorsToWin32(c As Color) As Integer
ColoreNero() As Integer
ColoreRosso() As Integer
ColoreBlu() As Integer
ColoreVerde() As Integer
ColoreMagenta() As Integer
ColoreGiallo() As Integer
ColoreRosa() As Integer
ColoreBianco() As Integer
Format2(n As Integer) As String
FormatSpace(s As String, Lunghezza As Integer, Optional bADestra As Boolean = False, Optional sChr As Char = " ") As String
FormatSpace(s As String, Lunghezza As Integer, Optional bADestra As Boolean = False, Optional sChr As Char = " ") As String
RimuoviLastChr(s As String, sChr As String) As String
StringaNumeri(aNumeri() As Integer|Boolean, Optional Separatore As String = ".", Optional bFormatta As Boolean = False) As String
StringaNumeriToArray(sStringaNum As String) As Integer()
StringaNumeriToArrayB(sStringaNum As String) As Boolean()
FuoriX(n As Integer , Optional Limite as Integer = 90 ) As Integer
Cadenza(n As Integer) As Integer
Unita(n As Integer) As Integer
ControFigura(n As Integer) As Integer
DecinaMatematica(n As Integer) As Integer
DecinaNaturale(n As Integer) As Integer
DecinaCabalistica(n As Integer) As Integer
Diametrale(n As Integer) As Integer
DiametraleInDecina(n As Integer) As Integer
Radicale(n As Integer) As Integer
Vertible(n As Integer) As Integer
Figura(n As Integer) As Integer
Gemello(n As Integer) As Boolean
NomeSorte(Sorte As Integer, Optional bBreve As Boolean = True) As String
MeseNome(idMese As Integer) As String
GiornoNome(NumeroGiornoSettimana As Integer) As String
GiornoId(Nome As String) As Integer
MeseId(Nome As String) As Integer
SommaVettore(aN() As Integer, Optional bFuori90 As Boolean ) As Integer
Differenza_ab(a As Integer, b As Integer, Optional ValoreSostitutivoPerABZero As Integer = 0, Optional ValoreSostitutivoPerZero As Integer = 90) As Integer
DiffCiclometrica(a As Integer, b As Integer, Optional Novanta As Integer = 90) As Integer
Differenza(a As Integer, b As Integer, Optional Novanta As Integer = 90) As Integer
Somma(a As Integer, b As Integer, Optional Novanta As Integer = 90) As Integer
Divisione(a As Object, b As Object, Optional nDecimali As Integer = 2) As Decimal
CombinazioniIntegrali (NumeroNumeri As Integer, nClasse As Integer) As Decimal
Piramide(N As Integer, Optional nCicli As Integer = 0, Optional LunghezzaRichiesta As Integer = 0) As String
IndiceAnnuale(IdEstr As Integer) As Integer
IndiceMensile(IdEstr As Integer) As Integer
IsUltimaDelMese(IdEstr As Integer) As Boolean
IsPrimaDelMese(IdEstr As Integer) As Boolean
DataEstrazione(idEstr As Integer) As String
Massimo(a As Object, b As Object) As Object
MassimoV(aN() As Decimal) As Decimal
MinimoV(aN() As Decimal, Optional nMaxValue As Decimal = 1000) As Decimal
QuantitaDispari(aN() As Integer) As Integer
QuantitaPari(aN() As Integer) As Integer
QuantitaZero(aN() As Integer) As Integer
QuantitaRipetutiQuantitaRipetuti(aN() As Integer, Optional ByRef aRetNumRipetuti() As Integer = Nothing, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0) As Integer
EliminaRipetuti(ByRef aN() As Integer, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0) As Integer
NumeroCasuale(nMin As Integer, nMax As Integer) As Integer
OrdinaVettore(ByRef aN() As Integer|Decimal|String, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0, Optional verso As Integer = 1) As Boolean
OrdinaMatrice(ByRef aV As Object, aColOrd() As Integer, aVersoOrd() As Integer, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0) As Boolean
ScegliNumeri(ByRef aN() As Integer) As Integer
ScegliSorte() As Integer
ScegliRuote(ByRef aRuote() As Integer) As Integer
ScegliRuota() As Integer
ScegliOpzione(aOpzioni() As String, Optional sTesto As String = "") As Integer
GetNumeriRuota(idEstr As Integer, Ruota As Integer, ByRef aRetN() As Integer, Optional aPos() As Boolean = Nothing) As Boolean
GetNumeriRuote(idEstr As Integer, Ruota As Integer, ByRef aRetN(,) As Integer, Optional aPos() As Boolean = Nothing) As Boolean
CalcolaIC(Presenze As Integer, Ritardo As Integer, EstrEsam As Integer) As Decimal
DisegnaCerchioCiclometrico(aN() As Integer, Optional bDiametrali As Boolean = False, Optional bDiagonali As Boolean = False, Optional bDistanze As Boolean = False, Optional bRiempiFigPrinc As Boolean = False, Optional bRiempiFigDiam As Boolean = False, Optional sTitolo As String = "", Optional nWidth As Integer = 800, Optional nHeight As Integer = 800) As Boolean
DisegnaEstrazione(IdEstr As Integer, Optional aNumDaEvid() As Integer = Nothing, Optional FontName As String = "Consolas", Optional FontSize As Integer = 10, Optional nWidth As Integer = 400, Optional nHeight As Integer = 370) As Boolean
SerieElencoUscite(aNumeri() As Integer, Ruote As Object, Sorte As Integer, ByRef aUscite() As STRUCT_ELENCO_USCITE, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Boolean
Function VerificaEsito(aNumeri() As Integer, Ruote As Object, Sorte As Integer, Inizio As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef nRetColpi As Integer = 0, Optional ByRef aRetUScite() As String = Nothing) As Boolean
 
Ciao Luigi, intanto grazie per portare avanti questa ennesima chicca di programma.
A me piacevano molto e vedo che mancano
getSpesa (true o False)
GetVincita(true e False)
GetGuadagno (True o false)
StatEstratti ( )
Sicuramente ce ne saranno altri ma intanto sono abbastanza per cominciare a familiarizzare con il nuovo ambiente.
 
Ciao luigi,letto le varie funzioni👍
Serie prima ,serieultima ,punti su array ,sceglinumeri ,e scegliRuote, ,deviazioneStandard, più utile di indice di convenienza.
Anche il ritardosincrono di livello sarebbe utile.
Luigi avevo scritto una routine che era più veloce di quella di spaziometria, avevo inserito anche le ruote come array. Se la trovo la posto così gli dai un occhiata, ma sembrava essere esatta.
Non vedo l ora di fare qualche prova. Semplice semplice😄
Grazie di tutto:)
 
queste le funzioni script presenti fatte fno ad ora , a beneficio degli scripter per prendere confidenza


Codice:
Scrivi(Optional ByVal sNewText = "" as string , Optional grassetto as boolean = False, Optional ACapo as boolean = True, Optional HighlightColor as boolean  = -1, Optional TextColor as boolean  = -1, Optional Dimensione as boolean  = 2, Optional sFontName  as string = "Courier New", Optional bSottolineato as boolean = False, Optional bBarrato as boolean = False, Optional bItalic as boolean = False)
Estratto(idEstr as integer , Ruota as integer , Pos as integer ) As Integer
ImpostaGiocata(NumGiocata As Int16, aNumeri() As Byte, aRuote() As Byte, aPoste() As Single, Optional Durata As Byte = 1, Optional SorteInterr As Byte = 0, Optional Attesa As Byte = 0, Optional aGiocateDaInterrompere() As Int16 = Nothing, Optional bInterrompiTutteSeVincente As Boolean = False) As Boolean
Gioca(Inizio As Integer, Optional SoloPositivi As Boolean = False, Optional MantieniGiocate As Boolean = False, Optional ModalitaMostraEstrazione As eTipoMostraEstrzioneInGioca = eTipoMostraEstrzioneInGioca.MostraSeVincente, Optional bScriviInOutput As Boolean = True)
SetPremio(QuantitaNumeri As Integer, Sorte As Integer, Premio As Decimal) As Boolean
SetPremioEstrattoDet(Premio As Decimal) As Boolean
SetPremioAmbetto(QuantitaNumeri As Integer, Premio As Decimal) As Boolean
SetTassaScaglione(aScaglioniVincita() As Decimal, aTassa() As Decimal) As Boolean
ScriptInterrotto () as Boolean
Messaggio(sTesto As String)
AvanzamentoElab(vMin As Integer, vMax As Integer, Valore As Integer)
InitTabella(aTitoli() As String, Optional Colore As Object = Nothing, Optional Align As Object = Nothing, Optional FontSz As Object = Nothing, Optional ColoreFont As Object = Nothing, Optional Bold As Object = Nothing, Optional FontName As Object = Nothing) As Boolean
AddRigaTabella(aValori() As String, Optional Colore As Object = Nothing, Optional Align As Object = Nothing, Optional FontSz As Object = Nothing, Optional ColoreFont As Object = Nothing, Optional Bold As Object = Nothing, Optional FontName As Object = Nothing) As Boolean
CreaTabella(Optional SortColumns As Object = Nothing, Optional SortDirection As Object = Nothing,Optional bCreaXls As Boolean = False) As Boolean
EstrattoRitardo(N As Integer, Ruote As Object, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer
EstrazioniArchivio() As Integer
NomeRuota(Ruota As Integer, Optional bBreve As Boolean = True) As String
AmboRitardo(N1 As Integer,N2 as Integer, Ruote As Object, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer
StatAmbo(N1 As Integer, N2 As Integer, Ruote As Object, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0)
StatEstratto(N1 As Integer, Ruote As Object, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0)
SerieRitardo(aNumeri() As Integer, Ruote As Object, Sorte As Integer, Inizio As Integer, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer
SerieStat(aNumeri() As Integer, Ruote As Object, Sorte As Integer, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0)as Boolean
GetLastError() As String
ScriviResoconto
DisegnaGraficoAndamento(Optional Base As Integer = 800, Optional Altezza As Integer = 600) As Boolean
ColorsToWin32(c As Color) As Integer
ColoreNero() As Integer
ColoreRosso() As Integer
ColoreBlu() As Integer
ColoreVerde() As Integer
ColoreMagenta() As Integer
ColoreGiallo() As Integer
ColoreRosa() As Integer
ColoreBianco() As Integer
Format2(n As Integer) As String
FormatSpace(s As String, Lunghezza As Integer, Optional bADestra As Boolean = False, Optional sChr As Char = " ") As String
FormatSpace(s As String, Lunghezza As Integer, Optional bADestra As Boolean = False, Optional sChr As Char = " ") As String
RimuoviLastChr(s As String, sChr As String) As String
StringaNumeri(aNumeri() As Integer|Boolean, Optional Separatore As String = ".", Optional bFormatta As Boolean = False) As String
StringaNumeriToArray(sStringaNum As String) As Integer()
StringaNumeriToArrayB(sStringaNum As String) As Boolean()
FuoriX(n As Integer , Optional Limite as Integer = 90 ) As Integer
Cadenza(n As Integer) As Integer
Unita(n As Integer) As Integer
ControFigura(n As Integer) As Integer
DecinaMatematica(n As Integer) As Integer
DecinaNaturale(n As Integer) As Integer
DecinaCabalistica(n As Integer) As Integer
Diametrale(n As Integer) As Integer
DiametraleInDecina(n As Integer) As Integer
Radicale(n As Integer) As Integer
Vertible(n As Integer) As Integer
Figura(n As Integer) As Integer
Gemello(n As Integer) As Boolean
NomeSorte(Sorte As Integer, Optional bBreve As Boolean = True) As String
MeseNome(idMese As Integer) As String
GiornoNome(NumeroGiornoSettimana As Integer) As String
GiornoId(Nome As String) As Integer
MeseId(Nome As String) As Integer
SommaVettore(aN() As Integer, Optional bFuori90 As Boolean ) As Integer
Differenza_ab(a As Integer, b As Integer, Optional ValoreSostitutivoPerABZero As Integer = 0, Optional ValoreSostitutivoPerZero As Integer = 90) As Integer
DiffCiclometrica(a As Integer, b As Integer, Optional Novanta As Integer = 90) As Integer
Differenza(a As Integer, b As Integer, Optional Novanta As Integer = 90) As Integer
Somma(a As Integer, b As Integer, Optional Novanta As Integer = 90) As Integer
Divisione(a As Object, b As Object, Optional nDecimali As Integer = 2) As Decimal
CombinazioniIntegrali (NumeroNumeri As Integer, nClasse As Integer) As Decimal
Piramide(N As Integer, Optional nCicli As Integer = 0, Optional LunghezzaRichiesta As Integer = 0) As String
IndiceAnnuale(IdEstr As Integer) As Integer
IndiceMensile(IdEstr As Integer) As Integer
IsUltimaDelMese(IdEstr As Integer) As Boolean
IsPrimaDelMese(IdEstr As Integer) As Boolean
DataEstrazione(idEstr As Integer) As String
Massimo(a As Object, b As Object) As Object
MassimoV(aN() As Decimal) As Decimal
MinimoV(aN() As Decimal, Optional nMaxValue As Decimal = 1000) As Decimal
QuantitaDispari(aN() As Integer) As Integer
QuantitaPari(aN() As Integer) As Integer
QuantitaZero(aN() As Integer) As Integer
QuantitaRipetutiQuantitaRipetuti(aN() As Integer, Optional ByRef aRetNumRipetuti() As Integer = Nothing, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0) As Integer
EliminaRipetuti(ByRef aN() As Integer, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0) As Integer
NumeroCasuale(nMin As Integer, nMax As Integer) As Integer
OrdinaVettore(ByRef aN() As Integer|Decimal|String, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0, Optional verso As Integer = 1) As Boolean
OrdinaMatrice(ByRef aV As Object, aColOrd() As Integer, aVersoOrd() As Integer, Optional nLimiteInf As Integer = 0, Optional nLimiteSup As Integer = 0) As Boolean
ScegliNumeri(ByRef aN() As Integer) As Integer
ScegliSorte() As Integer
ScegliRuote(ByRef aRuote() As Integer) As Integer
ScegliRuota() As Integer
ScegliOpzione(aOpzioni() As String, Optional sTesto As String = "") As Integer
GetNumeriRuota(idEstr As Integer, Ruota As Integer, ByRef aRetN() As Integer, Optional aPos() As Boolean = Nothing) As Boolean
GetNumeriRuote(idEstr As Integer, Ruota As Integer, ByRef aRetN(,) As Integer, Optional aPos() As Boolean = Nothing) As Boolean
CalcolaIC(Presenze As Integer, Ritardo As Integer, EstrEsam As Integer) As Decimal
DisegnaCerchioCiclometrico(aN() As Integer, Optional bDiametrali As Boolean = False, Optional bDiagonali As Boolean = False, Optional bDistanze As Boolean = False, Optional bRiempiFigPrinc As Boolean = False, Optional bRiempiFigDiam As Boolean = False, Optional sTitolo As String = "", Optional nWidth As Integer = 800, Optional nHeight As Integer = 800) As Boolean
DisegnaEstrazione(IdEstr As Integer, Optional aNumDaEvid() As Integer = Nothing, Optional FontName As String = "Consolas", Optional FontSize As Integer = 10, Optional nWidth As Integer = 400, Optional nHeight As Integer = 370) As Boolean
SerieElencoUscite(aNumeri() As Integer, Ruote As Object, Sorte As Integer, ByRef aUscite() As STRUCT_ELENCO_USCITE, Optional ByRef Ritardo As Integer = Nothing, Optional ByRef RitardoMax As Integer = Nothing, Optional ByRef Frequenza As Integer = Nothing, Optional ByRef Presenze As Integer = Nothing, Optional ByRef IncrRitMax As Integer = Nothing, Optional Inizio As Integer = 1, Optional Fine As Integer = 0, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Boolean
Function VerificaEsito(aNumeri() As Integer, Ruote As Object, Sorte As Integer, Inizio As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef nRetColpi As Integer = 0, Optional ByRef aRetUScite() As String = Nothing) As Boolean
Ti ho scritto in privato vai a dare un'occhiata quando puoi
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20

Ultimi Messaggi

Indietro
Alto