non riesco questo passaggio.....

roy · 26 Gennaio 2019

Ciao a tutti,se qualcuno mi potrebbe aiutare,lo ringrazio in anticipo,elementi A,B,C ISOTOPI numero uguale..A,B stessa ruota in 2 estrazioni consecutive,C stessa posizione su un'altra ruota in una delle 2 estrazioni,indifferente.
ps: personalmente dopo aver imposto A e B ISOTOPI in 2 estrazioni stessa ruota non riesco ad inserire l'elemento C.

joe · 26 Gennaio 2019

Ciao Roy

Non si capisce se A/B/C sono 1/2/3 numeri uguali e/o diversi.

salvo50 · 26 Gennaio 2019

Ciao a Tutti.

Leggendo il post di Roy, in un primo momento avevo capito che il terzo estratto C doveva essere diverso, ma dopo l'osservazione fatta da Joe, ho cambiato il mio parere, devono essere tutti e tre uguali, altrimenti non ha senso il fatto che il terzo estratto C, si può trovare o nella stessa estrazione o nell'estrazione dopo, cioè non c'è la condizione, quindi la condizione è che devono essere uguali, comunque l'osservazione di Joe è giusta, per arrivare all'interpretazione che gli ho datto io, bisogna leggere tra le righe e non è detto che il ragionamento fatto da me sia giusto.

Ho fatto questo abbozzo di script con tutti e tre gli estratti uguali, dove ne mette 4 penso che sia perchè nella seconda ruota R2 il numero uguale si trova sia nella stessa estrazione sia nell'altra estrazione, comunque è da provare

Codice:

Option Explicit
Dim FIn,Ini,Es,Caso,Casi
Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
Sub Main
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,7550)
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = B Then
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es + 1,R2,P1)
                  If C = A Or D = A Then
                     Caso = Caso + 1
                     Casi = Casi + 1
                     ColoreTesto 1
                     Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                     ColoreTesto 2
                     Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                     ColoreTesto 0
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P5 = 1 To 5
                        E1 = Estratto(Es,R1,P5)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P6 = 1 To 5
                        E2 = Estratto(Es + 1,R1,P6)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     '
                     If C = A Then
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                        For P7 = 1 To 5
                           E3 = Estratto(Es,R2,P7)
                           If E3 = C Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E3) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                     End If
                     If D = A Then
                        Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                        Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                        For P8 = 1 To 5
                           E4 = Estratto(Es + 1,R2,P8)
                           If E4 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E4) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

salvo50 · 26 Gennaio 2019

E' da riprendere c'era un errore

roy · 26 Gennaio 2019

Ciao a joe,Salvo e tutti,a volte quello che si scrive si pensa che possa essere facile d'interpretazione (per la nostra testa ) ma per altri effettivamente non lo è.
Grazie per essere intervenuti,sì il numero isotopo è uguale x tutti gli elementi di ricerca,Salvo ho fatto girare lo script ,ma non dà tutti gli eventi
es: ad occhio ho notato gli ultimi in data 19-22 gennaio ,il numero 46 ,cag. gen.e il numero 63,gen.tor.

roy · 26 Gennaio 2019

Guardando lo script Salvo,io non ci sarei mai arrivato,grazie

salvo50 · 26 Gennaio 2019

roy;n2151502 ha scritto:
Guardando lo script Salvo,io non ci sarei mai arrivato,grazie

Naturalmente lo script era proprio per darti l'idea di come fare, a riguardo del fatto che non da tutte le combinazioni, succede quando la seconda ruota viene prima della prima ruota, questo inconveniente si potrebbe risolvere a mio parere così, però e da controllare che non ci siano doppioni

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,7550)
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = B Then
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     C = Estratto(Es,R2,P1)
                     D = Estratto(Es + 1,R2,P1)
                     If C = A Or D = A Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P6 = 1 To 5
                           E2 = Estratto(Es + 1,R1,P6)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        '
                        If C = A Then
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P7 = 1 To 5
                              E3 = Estratto(Es,R2,P7)
                              If E3 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E3) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                        If D = A Then
                           Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P8 = 1 To 5
                              E4 = Estratto(Es + 1,R2,P8)
                              If E4 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E4) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

roy · 27 Gennaio 2019

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
   Dim n(8),ruote(2),poste(3),k
   poste(2) = 1
   poste(3) = 1
   k = CInt(InputBox("Colpi di gioco ",,10))
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,7550)
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = B Then
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     C = Estratto(Es,R2,P1)
                     D = Estratto(Es + 1,R2,P1)
                     If C = A Or D = A Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P6 = 1 To 5
                           E2 = Estratto(Es + 1,R1,P6)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        '
                        If C = A Then
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P7 = 1 To 5
                              E3 = Estratto(Es,R2,P7)
                              If E3 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E3) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                        If D = A Then
                           Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P8 = 1 To 5
                              E4 = Estratto(Es + 1,R2,P8)
                              If E4 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E4) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           End If
                           ruote(1) = R1
                           ruote(2) = R2
                            n(1) = A
                            n(2) = Vert(A)
                            ImpostaGiocata,1,n,ruote,poste,k
                            Gioca Es + 1,True,1
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next

Scrivi + vbCrLf + vbCrLf
ScriviResoconto
End Sub

Ciao Salvo ,volevo capire (se ci riesco

) ti vorrei porre alcune domande,come mai "else" lo hai usato su tutti gli elementi?lo script non da risultati,dove ho sbagliato?Cosi com'è x me è impossibile aggiungere delle funzioni, vorrei fare la quadratura del quarto elemento,stessa posizione della seconda ruota,grazie

salvo50 · 27 Gennaio 2019

roy;n2151675 ha scritto:
Ciao Salvo ,volevo capire (se ci riesco) ti vorrei porre alcune domande,come mai "else" lo hai usato su tutti gli elementi?lo script non da risultati,dove ho sbagliato?Cosi com'è x me è impossibile aggiungere delle funzioni, vorrei fare la quadratura del quarto elemento,stessa posizione della seconda ruota,grazie

Ciao Roy

L' Else è usato per separare gli estratti che voglio esaltare all'occhio colorandoli, quindi dato che visualizzo 3 oppure 4 estrazioni devo mettere un IF-THEN con relativo ELSE per ogni estrazione, per funzionare lo script non ha bisogno di colorare l'estratto, invece di tutto l'apparato che ho fatto io nella visualizzazione degli estratti, puoi mettere

StringaEstratti (idestrazione,ruota)

con il sistema che uso io colorando gli estratti che interessano, mi accorgo subito se ho fatto qualche errore, e poi non ho bisogno di visualizzare le posizioni dove sono usciti gli estratti interessati, si vede a occhio dove sono

A riguardo del perchè non funziona lo script postato da te, è perche hai messo una virgola di troppo

ImpostaGiocata 1,n,ruote,poste,k

dopo ImpostaGiocata non ci va la virgola

Lo script postato da te l'ho modificato togliendo la colorazione degli estratti interessati, solo per farti capire quello che intendo

Script senza i colori negli estratti

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
   Dim n(8),ruote(2),poste(3),k
   poste(2) = 1
   poste(3) = 1
   k = CInt(InputBox("Colpi di gioco ",,10))
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,7550)
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = B Then
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     C = Estratto(Es,R2,P1)
                     D = Estratto(Es + 1,R2,P1)
                     If C = A Or D = A Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1),1
                        Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1
                        '
                        If C = A Then
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  " & StringaEstratti(Es,R2),1
                        End If
                        If D = A Then
                           Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  " & StringaEstratti(Es + 1,R2),1
                        End If
                        Scrivi
                        ruote(1) = R1
                        ruote(2) = R2
                        n(1) = A
                        n(2) = Vert(A)
                        ImpostaGiocata 1,n,ruote,poste,k
                        Gioca Es + 1,True,1
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'Scrivi + vbCrLf + vbCrLf
   ScriviResoconto
End Sub

roy · 28 Gennaio 2019

Ciao Salvo e tutti,lo script continua a non dare risultati,nonostante abbia messo la ricerca dell'estratto,mi da solo il primo risultato e niente più,complimenti x il tuo modo di sviluppare lo script(come avrai capito e visto io sistemo script già fatti da altri modificandoli a mio piacimento,magari con il copia incolla

) in effetti visivamente è di facile interpretazione.,

io ero fermo a questo tipo di ELSE

If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
End If

grazie

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
   Dim n(8),ruote(2),poste(3),k
   poste(1) = 1
   poste(2) = 1
   poste(3) = 1
   k = CInt(InputBox("Colpi di gioco ",,10))
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,7550)
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = B Then
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     C = Estratto(Es,R2,P1)
                     D = Estratto(Es + 1,R2,P1)
                     If C = A Or D = A Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P6 = 1 To 5
                           E2 = Estratto(Es + 1,R1,P6)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        '
                        If C = A Then
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P7 = 1 To 5
                              E3 = Estratto(Es,R2,P7)
                              If E3 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E3) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                        If D = A Then
                           Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P8 = 1 To 5
                              E4 = Estratto(Es + 1,R2,P8)
                              If E4 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E4) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           End If
                           ruote(1) = R1
                           ruote(2) = R2
                            n(1) = A
                            n(2) = Vert(A)
                            ImpostaGiocata 1,n,ruote,poste,k
                            Gioca Es + 1,True,1
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
ScriviResoconto
End Sub

Master · 28 Gennaio 2019

Ciao prova
sostituisci Gioca Es + 1,True,1
con
GiocaEs+ 1

oppure
GiocaEs+ 1,1,,1

oppure
GiocaEs+ 1,,,1

roy · 28 Gennaio 2019

Grazie Master,2° e 3° funziona

salvo50 · 28 Gennaio 2019

roy;n2151802 ha scritto:
Ciao Salvo e tutti,lo script continua a non dare risultati,nonostante abbia messo la ricerca dell'estratto,mi da solo il primo risultato e niente più,

In questi casi devi mettere quali sono i risultati che ti aspetti e non ci sono.

Oppure hai già risolto con il suggerimento di Master?

complimenti x il tuo modo di sviluppare lo script,in effetti visivamente è di facile interpretazione.,

Grazie

(come avrai capito e visto io sistemo script già fatti da altri modificandoli a mio piacimento,magari con il copia incolla )

Agli inizi lo facevo anch'io

questo è il post dove ho iniziato a chiedere aiuto,

http://forum.lottoced.com/forum/lott...gli-scriptisti

i legend · 28 Gennaio 2019

Ciao a tutti

tempus fugit .
tutti o quasi abbiamo cominciato così

roy · 29 Gennaio 2019

Ciao Master e tutti,mi potreste spiegare come mai non funzionava,considerato che con altro script sì?qual'è la differenza?Grazie

Con oltre trenta anni di passione Lotto,fatta con carta e penna e non avendo mai avuto necessità lavorativa con un computer,personalmente è già tanto quello che faccio...poco per voi...e per fortuna ci siete,così abbiamo modo di farci aiutare......grazie per la vostra disponibilità

Cerca

Cerca

non riesco questo passaggio.....

roy

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

roy

Super Member >PLATINUM<

roy

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

roy

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

roy

Super Member >PLATINUM<

Master

Advanced Member >PLATINUM<

roy

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

i legend

Premium Member

roy

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi