Imposta Giocata e resoconto

Cinzia27 · 26 Febbraio 2018

Va bene, ti seguo. Però, se possibile, trattiamo script di lotto.
Ciao
Cinzia

antonio65 · 26 Febbraio 2018

Buonasera Claudio, buonasera Cinzia....grazie per l'intervento di Claudio...ma non va bene...o meglio l'idea è buona anzi ottima di aver aggiunto pos 5 .....però il sommativo somma circa e quasi solo x 1

claudio8 · 26 Febbraio 2018

Antonio, senza voler essere rompi, cerchiamo di ricapitloare. tu cosa chiedi in definitiva allo script?
Spiegati possibilmente con qualche esempio e dimmi da quale script vuoi partire (metti il n° del post dove stà).

antonio65 · 26 Febbraio 2018

Tranquillo Claudio...in definitiva chiedevo 2 cose: dal momento che io otterrei il miglior sommativo sarebbe palese accoppiarlo ...non giocherei solo un numero ma almeno 3...quindi nella stessa tabella anzichè un sommativo di più....in pratica lo stesso calcolo contemporaneamente come base i primi 5...poi meli gestisco io....inoltre chiedevo di poter colorare la tabella in caso di sortita...quindi uno script già c'è l'hai ....ti allego semplicemente quello da colorare grazie Antonio....[Sub Main
Scrivi "Listato Sommativo post di antonio65 http://www.lottopassion.it/forum/viewtopic.php?f=10&t=3350":Scrivi
Dim Nu(1),NuFr(90,5),Num(5),DNA(10),SFF(3),Nn(5)
Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
Dim Ru(12),T,x1,x2,x3,x4,x5
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = 9412
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
'pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
'smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Data Estraz.","N. Estratti","SommaEstratti","Num1/5","Compl a 100","Diff se-c","C90 * 5","Num2 / 5","kk","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Clp","Ritardo","Inco","n1-n2","n1-n3","n1-n4","n1-n5","n2-n3","n2-n4","n2-n5","n3-n4","n3-n5","n4-n5","SFF1","SFF2","SFF3")
Call InitTabella(T,6)
Call AvanzamentoElab(Ini,fin,es)
'If IndiceMensile(es) = Ind Then
For es = Ini To fin
For p = 1 To 5
Num(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
S_e = SommaEstratti(es,r) ' somma estratti
S_e5 = Int(S_e/5) ' int restituisce il numero intero e arrotanda
c90 = ComplAdX(S_e5,100) ' complementa al numero scelto
c = c90*5
d = Differenza(S_e,c)
e = Int(d/5)
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
'est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
'Scrivi "Ruota di rilevamento : " & NomeRuota(r)
'Scrivi "Stringa estratti : " & stE
'Scrivi "Indice mensile : " & Ind
'Scrivi "Colpi di Gioco : " & clp
'Scrivi "Righe visualizzate : " & smm
'------------------------------------------
'Call OrdinaMatrice(NuFr,- 1,2)
'For i = 1 To smm
'NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
If S_e > c Then
'If se > 250 Then
Nn(1) = Fuori90(Abs(Num(1) - e))
Nn(2) = Fuori90(Abs(Num(2) - e))
Nn(3) = Fuori90(Abs(Num(3) - e))
Nn(4) = Fuori90(Abs(Num(4) - e))
Nn(5) = Fuori90(Abs(Num(5) - e))
kk = "sottraz"
Else
Nn(1) = Fuori90(Abs(Num(1) + e))
Nn(2) = Fuori90(Abs(Num(2) + e))
Nn(3) = Fuori90(Abs(Num(3) + e))
Nn(4) = Fuori90(Abs(Num(4) + e))
Nn(5) = Fuori90(Abs(Num(5) + e))
kk = "Addiz."
'End If
End If
'************************************************************************************
Next
'---------------------------------------------------
m1(1) = Nn(1) : m1(2) = Nn(2)
m2(1) = Nn(1) : m2(2) = Nn(3)
m3(1) = Nn(1) : m3(2) = Nn(4)
m4(1) = Nn(1) : m4(2) = Nn(5)
m5(1) = Nn(2) : m5(2) = Nn(3)
m6(1) = Nn(2) : m6(2) = Nn(4)
m7(1) = Nn(2) : m7(2) = Nn(5)
m8(1) = Nn(3) : m8(2) = Nn(4)
m9(1) = Nn(3) : m9(2) = Nn(5)
m10(1) = Nn(4) : m10(2) = Nn(5)
'-------------------------------------------------
ReDim V(35)
V(1) = GetInfoEstrazione(es) & "=" & SiglaRuota(r) & ""
V(2) = StringaEstratti(es,r)
V(3) = S_e
V(4) = S_e5
V(5) = c90
V(6) = c
V(7) = d
V(8) = e
V(9) = kk
For x = 1 To 3
SFF(x) = SerieFreq(Ini,fin,Nn,Ru,x)
Next
'Next
V(10) = Nn(1)
V(11) = Nn(2)
V(12) = Nn(3)
V(13) = Nn(4)
V(14) = Nn(5)
sr = SerieRitardo(Ini,fin,Nn,Ru,1)
Call VerificaEsito(Nn,Ru,es1,1,10,,Esito,colpi,estratti,id)
V(15) = Esito
V(16) = estratti
V(17) = colpi & "°"
V(18) = sr
If Esito = "Estratto" Or Esito = "Terno" Then
V(19) = DataEstrazione(id)
Else
V(19) = " In corso"
End If
V(20) = m1(1) & "." & m1(2)
V(21) = m2(1) & "." & m2(2)
V(22) = m3(1) & "." & m3(2)
V(23) = m4(1) & "." & m4(2)
V(24) = m5(1) & "." & m5(2)
V(25) = m6(1) & "." & m6(2)
V(26) = m7(1) & "." & m7(2)
V(27) = m8(1) & "." & m8(2)
V(28) = m9(1) & "." & m9(2)
V(29) = m10(1) & "." & m10(2)
V(30) = SFF(1)
V(31) = SFF(2)
V(32) = SFF(3)
rr = 11
If EstrattoFrequenza(rr,Nn(1),es1,es2) > 0 Then Call SetColoreCella(10,1,4)
If EstrattoFrequenza(rr,Nn(2),es1,es2) > 0 Then Call SetColoreCella(11,1,4)
If EstrattoFrequenza(rr,Nn(3),es1,es2) > 0 Then Call SetColoreCella(12,1,4)
If EstrattoFrequenza(rr,Nn(4),es1,es2) > 0 Then Call SetColoreCella(13,1,4)
If EstrattoFrequenza(rr,Nn(5),es1,es2) > 0 Then Call SetColoreCella(14,1,4)
'-------------------------------------------------------------
Call VerificaEsito(m1,Ru,es1,1,10,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es1,1,10,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es1,1,10,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es1,1,10,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es1,1,10,,esito5,colpi5,estratti5,id5)
Call VerificaEsito(m6,Ru,es1,1,10,,esito6,colpi6,estratti6,id6)
Call VerificaEsito(m7,Ru,es1,1,10,,esito7,colpi7,estratti7,id7)
Call VerificaEsito(m8,Ru,es1,1,10,,esito8,colpi8,estratti8,id8)
Call VerificaEsito(m9,Ru,es1,1,10,,esito9,colpi9,estratti9,id9)
Call VerificaEsito(m10,Ru,es1,1,10,,esito10,colpi10,estratti10,id10)
'-------------------------------------------------------------
Call AddRigaTabella(V)
'-------------------------------------------------------------
If esito1 = "Ambo" Then Call SetColoreCella(20,2,4)
If esito2 = "Ambo" Then Call SetColoreCella(21,2,4)
If esito3 = "Ambo" Then Call SetColoreCella(22,2,4)
If esito4 = "Ambo" Then Call SetColoreCella(23,2,4)
If esito5 = "Ambo" Then Call SetColoreCella(24,2,4)
If esito6 = "Ambo" Then Call SetColoreCella(25,2,4)
If esito7 = "Ambo" Then Call SetColoreCella(26,2,4)
If esito8 = "Ambo" Then Call SetColoreCella(27,2,4)
If esito9 = "Ambo" Then Call SetColoreCella(28,2,4)
If esito10 = "Ambo" Then Call SetColoreCella(29,2,4)
'------------------------------------------------------------
If V(15) = "Estratto" Then Call SetColoreCella(15,3,1)
If V(15) = "Ambo" Then Call SetColoreCella(15,2,4)
If V(15) = "Terno" Then Call SetColoreCella(15,7,4)
If V(19) = DataEstrazione(id) Then Call SetColoreCella(19,,1)
'----------------------------------------------------------
ImpostaGiocata 1,Nn,Ru,posta,clp
Gioca es
'End If
Next
casi = 0
Call CreaTabella()
ScriviResoconto
End Sub
][/CODE]

claudio8 · 26 Febbraio 2018

antonio65;n2103378 ha scritto:
Tranquillo Claudio...in definitiva chiedevo 2 cose: dal momento che io otterrei il miglior sommativo sarebbe palese accoppiarlo ...non giocherei solo un numero ma almeno 3...quindi nella stessa tabella anzichè un sommativo di più....in pratica lo stesso calcolo contemporaneamente come base i primi 5...poi meli gestisco io... (su questa cosa spero voglia lavorarci Cinzia e lo lascio fare a lei)

.inoltre chiedevo di poter colorare la tabella ( specifica bene che cosa devi colorare, quale colonna.o meglio la casella riferita a quale colonna?... la riga intera..... o cosa altro ) in caso di sortita...quindi uno script già c'è l'hai ....ti allego semplicemente quello da colorare grazie Antonio...
][/CODE]

antonio65 · 26 Febbraio 2018

Le caselle dove c'è scritto nu1 nu2 nu3 nu4 nu5(incaso di sortita)
e le 10 caselle n1-n2 etc etc
Sotto ti ho elencato....io ci provato ma non sono corrette perchè non so impostare bene il verifica esito
quello originale è così : Call VerificaEsito(Nn,Ru,es + 1,2,10,,,clp,es1)
solo che con 3 virgole so come fare...grazie.

If EstrattoFrequenza(rr,Nn(1),es1,es2) > 0 Then Call SetColoreCella(10,1,4)
If EstrattoFrequenza(rr,Nn(2),es1,es2) > 0 Then Call SetColoreCella(11,1,4)
If EstrattoFrequenza(rr,Nn(3),es1,es2) > 0 Then Call SetColoreCella(12,1,4)
If EstrattoFrequenza(rr,Nn(4),es1,es2) > 0 Then Call SetColoreCella(13,1,4)
If EstrattoFrequenza(rr,Nn(5),es1,es2) > 0 Then Call SetColoreCella(14,1,4)

'-------------------------------------------------------------
Call VerificaEsito(m1,Ru,es1,1,10,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es1,1,10,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es1,1,10,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es1,1,10,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es1,1,10,,esito5,colpi5,estratti5,id5)
Call VerificaEsito(m6,Ru,es1,1,10,,esito6,colpi6,estratti6,id6)
Call VerificaEsito(m7,Ru,es1,1,10,,esito7,colpi7,estratti7,id7)
Call VerificaEsito(m8,Ru,es1,1,10,,esito8,colpi8,estratti8,id8)
Call VerificaEsito(m9,Ru,es1,1,10,,esito9,colpi9,estratti9,id9)
Call VerificaEsito(m10,Ru,es1,1,10,,esito10,colpi10,estratti10,id10)

claudio8 · 27 Febbraio 2018

Adesso i colori sono stati corretti, controlla.
ti consiglio di non lasciare righe di costrutto remmate negli script

Codice:

Sub Main
    Scrivi "Listato Sommativo post di antonio65 http://www.lottopassion.it/forum/viewtopic.php?f=10&t=3350":Scrivi
    Dim Nu(1),NuFr(90,5),Num(5),DNA(10),SFF(3),Nn(5)
    Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
    Dim Ru(1),T,x1,x2,x3,x4,x5
    Dim poste(3),postee(3)
    Dim posta(2)
    posta(1) = 1 ' < - - - posta per estratto
    Ini = 9412
    fin = EstrazioneFin
    r = InputBox("Quale Ruota",,1)
    'pos = CInt(InputBox("Quale posizione",,1))
    'Ind = CInt(InputBox("Quale indiceMensile",,1))
    clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
    'smm = CInt(InputBox("Quante righe ",,5))
    T = Array(T,"Data Estraz.","Estratti","SomEst","Num1/5","Comp-100","Diff se-c","C90*5","Num2/5","kk","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","ClpE.to","Clp.Abo","Ritardo","Inco","n1-n2","n1-n3","n1-n4","n1-n5","n2-n3","n2-n4","n2-n5","n3-n4","n3-n5","n4-n5","SFF1","SFF2","SFF3")
    Call InitTabella(T,6)
    'If IndiceMensile(es) = Ind Then
    For es = Ini To fin
        Call AvanzamentoElab(Ini,fin,es)
        For p = 1 To 5
            If ScriptInterrotto Then Exit For
            Num(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
            S_e = SommaEstratti(es,r) ' somma estratti
            S_e5 = Int(S_e/5) ' int restituisce il numero intero e arrotanda
            c90 = ComplAdX(S_e5,100) ' complementa al numero scelto
            c = c90*5
            d = Differenza(S_e,c)
            e = Int(d/5)
            stE = StringaEstratti(es,r)
            casi = casi + 1
            co = 0
            Ru(1) = r
            es1 = es + 1
            es2 = es1 + clp
            'est = Estratto(es,r,pos)
            '------- calcolo sommativo ---------------
            For sm = 1 To 90
                co = co + 1
                Nu(1) = Fuori90(est + sm)
                NuFr(co,1) = sm
                sf = SerieFreq(es1,es2,Nu,Ru,1)
                If sf > 0 Then
                    NuFr(co,2) = NuFr(co,2) + 1
                End If
            Next
            'End If
            'Next
            ' scrivi testo ............................
            'Scrivi "Ruota di rilevamento : " & NomeRuota(r)
            'Scrivi "Stringa estratti : " & stE
            'Scrivi "Indice mensile : " & Ind
            'Scrivi "Colpi di Gioco : " & clp
            'Scrivi "Righe visualizzate : " & smm
            '------------------------------------------
            'Call OrdinaMatrice(NuFr,- 1,2)
            'For i = 1 To smm
            'NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
            If S_e > c Then
                'If se > 250 Then
                Nn(1) = Fuori90(Abs(Num(1) - e))
                Nn(2) = Fuori90(Abs(Num(2) - e))
                Nn(3) = Fuori90(Abs(Num(3) - e))
                Nn(4) = Fuori90(Abs(Num(4) - e))
                Nn(5) = Fuori90(Abs(Num(5) - e))
                kk = "Sottr."
            Else
                Nn(1) = Fuori90(Abs(Num(1) + e))
                Nn(2) = Fuori90(Abs(Num(2) + e))
                Nn(3) = Fuori90(Abs(Num(3) + e))
                Nn(4) = Fuori90(Abs(Num(4) + e))
                Nn(5) = Fuori90(Abs(Num(5) + e))
                kk = "Addiz."
                'End If
            End If
            '************************************************* ***********************************
        Next
        '-----------------costruzione ambi ----------------------------------
        m1(1) = Nn(1): m1(2) = Nn(2)
        m2(1) = Nn(1): m2(2) = Nn(3)
        m3(1) = Nn(1): m3(2) = Nn(4)
        m4(1) = Nn(1): m4(2) = Nn(5)
        m5(1) = Nn(2): m5(2) = Nn(3)
        m6(1) = Nn(2): m6(2) = Nn(4)
        m7(1) = Nn(2): m7(2) = Nn(5)
        m8(1) = Nn(3): m8(2) = Nn(4)
        m9(1) = Nn(3): m9(2) = Nn(5)
        m10(1) = Nn(4): m10(2) = Nn(5)
        '---------------- valori per tabella ---------------------------------
        ReDim V(35)
        V(1) = DataEstrazione(es) & "-" & SiglaRuota(r)
        V(2) = StringaEstratti(es,r)
        V(3) = S_e
        V(4) = S_e5
        V(5) = c90
        V(6) = c
        V(7) = d
        V(8) = e
        V(9) = kk
        For x = 1 To 3
            SFF(x) = SerieFreq(Ini,fin,Nn,Ru,x)
        Next
        V(10) = Nn(1)
        V(11) = Nn(2)
        V(12) = Nn(3)
        V(13) = Nn(4)
        V(14) = Nn(5)
        sr = SerieRitardo(Ini,fin,Nn,Ru,1)
        Call VerificaEsito(Nn,Ru,es1,1,10,,Esito,colpi,estratti,id)
        Call VerificaEsito(Nn,Ru,es1,2,10,,,colpA)
        V(15) = Esito
        V(16) = estratti
        V(17) = colpi & "°"
        V(18) = colpA & "°"
        V(19) = sr
        If Esito = "Estratto" Or Esito = "Terno" Then
            V(20) = DataEstrazione(id)
        Else
            V(20) = " In corso"
        End If
        V(21) = m1(1) & "." & m1(2)
        V(22) = m2(1) & "." & m2(2)
        V(23) = m3(1) & "." & m3(2)
        V(24) = m4(1) & "." & m4(2)
        V(25) = m5(1) & "." & m5(2)
        V(26) = m6(1) & "." & m6(2)
        V(27) = m7(1) & "." & m7(2)
        V(28) = m8(1) & "." & m8(2)
        V(29) = m9(1) & "." & m9(2)
        V(30) = m10(1) & "." & m10(2)
        V(31) = SFF(1)
        V(32) = SFF(2)
        V(33) = SFF(3)
        Call AddRigaTabella(V) 'questa funzione si mette prima delle colorazioni
        'rr = 11
        '-------------------- colorazione estratti -------
        If Posizione(es + colpi,r,Nn(1)) > 0 Then Call SetColoreCella(10,3,1)
        If Posizione(es + colpi,r,Nn(2)) > 0 Then Call SetColoreCella(11,3,1)
        If Posizione(es + colpi,r,Nn(3)) > 0 Then Call SetColoreCella(12,3,1)
        If Posizione(es + colpi,r,Nn(4)) > 0 Then Call SetColoreCella(13,3,1)
        If Posizione(es + colpi,r,Nn(5)) > 0 Then Call SetColoreCella(14,3,1)
        '---------- colorazione cella esito -------------------------------
        If V(15) = "Estratto" Then Call SetColoreCella(15,3,1)
        If V(15) = "Ambo" Then Call SetColoreCella(15,2,4)
        If V(15) = "Terno" Then Call SetColoreCella(15,7,4)
        If V(19) = DataEstrazione(id) Then Call SetColoreCella(19,,1)
        '------------------freq estratti su TUTTE nei colpi ------------------
        '        If EstrattoFrequenza(rr,Nn(1),es1,es2) > 0 Then Call SetColoreCella(10,1,4)
        '        If EstrattoFrequenza(rr,Nn(2),es1,es2) > 0 Then Call SetColoreCella(11,1,4)
        '        If EstrattoFrequenza(rr,Nn(3),es1,es2) > 0 Then Call SetColoreCella(12,1,4)
        '        If EstrattoFrequenza(rr,Nn(4),es1,es2) > 0 Then Call SetColoreCella(13,1,4)
        '        If EstrattoFrequenza(rr,Nn(5),es1,es2) > 0 Then Call SetColoreCella(14,1,4)
        '-------------------verifica esito x ambo e colorazione ----------------------------------
        If VerificaEsito(m1,Ru,es1,2,10) Then Call SetColoreCella(20,2,4)
        If VerificaEsito(m2,Ru,es1,2,10) Then Call SetColoreCella(21,2,4)
        If VerificaEsito(m3,Ru,es1,2,10) Then Call SetColoreCella(22,2,4)
        If VerificaEsito(m4,Ru,es1,2,10) Then Call SetColoreCella(23,2,4)
        If VerificaEsito(m5,Ru,es1,2,10) Then Call SetColoreCella(24,2,4)
        If VerificaEsito(m6,Ru,es1,2,10) Then Call SetColoreCella(25,2,4)
        If VerificaEsito(m7,Ru,es1,2,10) Then Call SetColoreCella(26,2,4)
        If VerificaEsito(m8,Ru,es1,2,10) Then Call SetColoreCella(27,2,4)
        If VerificaEsito(m9,Ru,es1,2,10) Then Call SetColoreCella(28,2,4)
        If VerificaEsito(m10,Ru,es1,2,10)Then Call SetColoreCella(20,2,4)
        ImpostaGiocata 1,Nn,Ru,posta,clp
        Gioca es
    Next
    SetTableTitle "         Listato Sommativo di antonio65 ","Arial",12
    SetTableWidth("100%")
    SetTableHeight("100%")
    Call CreaTabellaOrdinabile(,,,0,,False,False)
    ScriviResoconto
End Sub

ciao

antonio65 · 27 Febbraio 2018

Ciao Claudio...adesso funziona alla grande....sei stato bravissimo complimenti!!! Grazie di cuore!!!

claudio8 · 27 Febbraio 2018

non so come, ma fanne buon uso. Ciao

antonio65 · 27 Febbraio 2018

Ovvio, ne farò buon uso...con santa pace inizio le mi ricerche...grazie...

antonio65 · 27 Febbraio 2018

Ciao Claudio,scusa una domanda: nel caso io vorrei sapere ad esempio: sommativo sul 3 estratto di Bari e il 5 di roma come faccio?
Io l'ho pensata cosi:
Estratto (es,1,3)+nufr(1,1)
Estratto(es,8,5)+nufr(1,1)
Va bene?grazie

claudio8 · 27 Febbraio 2018

antonio65;n2103508 ha scritto:
Ciao Claudio,scusa una domanda: nel caso io vorrei sapere ad esempio: sommativo sul 3 estratto di Bari e il 5 di roma come faccio?
Io l'ho pensata cosi:
Estratto (es,1,3) si questo è il 3°estratto di bari +nufr(1,1)
Estratto(es,8,5) e questo è il 5° estratto di roma+nufr(1,1)
Va bene?grazie

Trovi la specfica nell'Help così descritta

Estratto

Function Estratto(idEstr, Ruota, Pos, Optional idArchivio = 0) As Integer

Descrizione
Ottiene il numero estratto in una ruota specifica all'estrazione indicata e nella posizione voluta

Note
Valore di ritorno
il numero letto dall'estrazione in quella determinata posizione estrazionale

Parametri

idEstr	Numero identificativo estrazione . è un valore che varia da 1 al numero di estrazioni presenti nell'archivio
Ruota	Identificativo della ruota
Pos	Identificativo della posizione
Optional idArchivio = 0	Indentificativo dell'archivio da usare

un leggero sforzo ed impari autonomamente.

Cerca

Cerca

Imposta Giocata e resoconto

Cinzia27

Premium Member

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

Ultima estrazione Lotto

Ultimi Messaggi