Agli amici di spaziometria, piccolo aiuto.

rosce14 · 10 Aprile 2012

cortesemente mi dite come si trovano gli ambi diametrali in spaziometria, usciti nell'estrazione?

Come posso fare per avere tutti i primi estratti delle ruote, sto facendo una ricerca per le prime pos. (ultime 1.000 estrazioni), ci vuole uno script o altro?

Grazie a chi mi risponde.

Baffoblu · 10 Aprile 2012

rosce14 ha scritto:
cortesemente mi dite come si trovano gli ambi diametrali in spaziometria, usciti nell'estrazione?

Come posso fare per avere tutti i primi estratti delle ruote, sto facendo una ricerca per le prime pos. (ultime 1.000 estrazioni), ci vuole uno script o altro?

Grazie a chi mi risponde.

il percorso è questo :

vai su Statistiche

poi vai su ambi

dopo scegli Famiglie di ambi

da li scegli i tipi di ambi
che desideri.

In questo caso metti la spunta nella casella
a fianco ad "Ambi Diametrali".

Puoi scegliere se cercarli in posizioni unite
o in qualsiasi posizione.

dopo clicca sui esegui.

Ti verranno tutti gli ambi diametrali
possibili usciti.

------------------------------------------
Non uso queste statistiche, quindi non so
se è quello che cerchi....

Per i primi estratti, dammi tempo che son pieno
di cose.....

Baffoblu · 10 Aprile 2012

Intanto guarda questo script
fatto velocemente....

Tutti i primi estratti di tutte e 11 le ruote.

Se trovo tempo te lo trasformo in tabella.....

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim nAnalisi
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r = 1 To 11
            If r = 11 Then r = 12
            ruote(1) = r
            a = Estratto(idEstr,r,1)
            ruote(1) = r
            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & a,1
            Scrivi String(40,"°"),1
            If ScriptInterrotto Then Exit For
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
End Sub

Roby · 10 Aprile 2012

Se ti piace così......

Codice:

Sub Main
	Dim idestr
	Ini = EstrazioneFin - 1000
	For idestr = Ini To EstrazioneFin
		ReDim MatriceCaselleDaEvid(11,1)
		MatriceCaselleDaEvid(1,0) = 1
		MatriceCaselleDaEvid(1,1) = 1
		MatriceCaselleDaEvid(2,0) = 2
		MatriceCaselleDaEvid(2,1) = 1
		MatriceCaselleDaEvid(3,0) = 3
		MatriceCaselleDaEvid(3,1) = 1
		MatriceCaselleDaEvid(4,0) = 4
		MatriceCaselleDaEvid(4,1) = 1
		MatriceCaselleDaEvid(5,0) = 5
		MatriceCaselleDaEvid(5,1) = 1
		MatriceCaselleDaEvid(6,0) = 6
		MatriceCaselleDaEvid(6,1) = 1
		MatriceCaselleDaEvid(7,0) = 7
		MatriceCaselleDaEvid(7,1) = 1
		MatriceCaselleDaEvid(8,0) = 8
		MatriceCaselleDaEvid(8,1) = 1
		MatriceCaselleDaEvid(9,0) = 9
		MatriceCaselleDaEvid(9,1) = 1
		MatriceCaselleDaEvid(10,0) = 10
		MatriceCaselleDaEvid(10,1) = 1
		MatriceCaselleDaEvid(11,0) = 11
		MatriceCaselleDaEvid(11,1) = 1
		Call DisegnaEstrazione(idestr,MatriceCaselleDaEvid)
		If ScriptInterrotto Then Exit For
	Next
End Sub

Joe91 · 10 Aprile 2012

Ciao ...

non ho capito bene, ma potresti provare questo :

Codice:

' I° & II° Estratto in Ambo Diametrale  by Joe
Sub Main
Fin = EstrazioneFin : Ini = Fin - 999
For Es = Ini To Fin 
For R = 1 To 11 : If R=11 Then R=12 
E1 = Estratto (Es,R,1) : E2= Estratto (Es,R,2)
If E1 = Diametrale (E2) Then 
Scrivi DataEstrazione (Es) & " ",0,0
Scrivi SiglaRuota (R) & " " ,0,0
Scrivi StringaEstratti (Es,R) & " " ,0,0
Scrivi Format2 (E1) & "." & Format2 (E2) 
End If 
Next
Next
End Sub

rosce14 · 10 Aprile 2012

grazie baffoblu e blackmore siete piu' unici che rari,semplicemente mitici. Velocissimi nel rispondere e nel capire i miei problemi.

Un piccolo accorgimento per quanto riguarda lo script, potresti raggruppare i primi estratti della stessa ruota?
Es. Ba tutti i primi estratti, ca....ecc.ecc.,fi ecc. Ecc...

In attesa di una vostra risposta, vi saluto.

rosce14 · 10 Aprile 2012

joe91 ha scritto:

ciao ...

Non ho capito bene, ma potresti provare questo :

Codice:

' i° & ii° estratto in ambo diametrale  by joe
sub main
fin = estrazionefin : Ini = fin - 999
for es = ini to fin 
for r = 1 to 11 : If r=11 then r=12 
e1 = estratto (es,r,1) : E2= estratto (es,r,2)
if e1 = diametrale (e2) then 
scrivi dataestrazione (es) & " ",0,0
scrivi siglaruota (r) & " " ,0,0
scrivi stringaestratti (es,r) & " " ,0,0
scrivi format2 (e1) & "." & format2 (e2) 
end if 
next
next
end sub

grazie joe91, per le tua gentilezza, non ho capito cosa hai messo nello script.
Sono 7 numeri per ruota e a saltare negli anni. Perche?, e non e' aggiornato all'ultima estrazione.
Mi spieghi?
Grazie ancora e a risentirci presto.

Baffoblu · 10 Aprile 2012

rosce14 ha scritto:
grazie baffoblu e blackmore siete piu' unici che rari,semplicemente mitici. Velocissimi nel rispondere e nel capire i miei problemi.

Un piccolo accorgimento per quanto riguarda lo script, potresti raggruppare i primi estratti della stessa ruota?
Es. Ba tutti i primi estratti, ca....ecc.ecc.,fi ecc. Ecc...

In attesa di una vostra risposta, vi saluto.

spero che vada bene così

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(12)
    Dim nAnalisi
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        a1 = Estratto(idEstr,1,1)
        a2 = Estratto(idEstr,2,1)
        a3 = Estratto(idEstr,3,1)
        a4 = Estratto(idEstr,4,1)
        a5 = Estratto(idEstr,5,1)
        a6 = Estratto(idEstr,6,1)
        a7 = Estratto(idEstr,7,1)
        a8 = Estratto(idEstr,8,1)
        a9 = Estratto(idEstr,9,1)
        a10 = Estratto(idEstr,10,1)
        a11 = Estratto(idEstr,12,1)
        ColoreTesto 1
        Scrivi DataEstrazione(idEstr) & "  " & SiglaRuota(1) & " " & Format2(a1) & "   " & SiglaRuota(2) & " " & Format2(a2) & "   " & SiglaRuota(3) & " " & Format2(a3) & "   " & SiglaRuota(4) & " " & Format2(a4) & "   " & SiglaRuota(5) & " " & Format2(a5) & "   " & SiglaRuota(6) & " " & Format2(a6) & "   " & SiglaRuota(7) & " " & Format2(a7) & "   " & SiglaRuota(8) & " " & Format2(a8) & "   " & SiglaRuota(9) & " " & Format2(a9) & "   " & SiglaRuota(10) & " " & Format2(a10) & "   " & SiglaRuota(12) & " " & Format2(a11),1
        ColoreTesto 0
        Scrivi String(100,"°"),1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
End Sub

Baffoblu · 10 Aprile 2012

Questo per gli ambi diametrali

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim poste(10)
    Dim r
    Dim nAnalisi
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r = 1 To 11
            If r = 11 Then
                r = 12
            End If
            For p1 = 1 To 5
                For p2 = p1 + 1 To 5
                    a = Estratto(idEstr,r,p1)
                    b = Estratto(idEstr,r,p2)
                    If a = Diametrale(b) Then
                        ruote(1) = r
                        Scrivi String(65,"°")
                        Scrivi DataEstrazione(idEstr) & " * " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r) & " ** " & " Ambo Diametrale :   " & Format2(a) & " - " & Format2(b),1
                    End If
                    If ScriptInterrotto Then Exit For
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

rosce14 · 11 Aprile 2012

baffoblu ha scritto:

spero che vada bene così

Codice:

sub main()
    dim idestr
    dim inizio
    dim fine
    dim ruote(12)
    dim nanalisi
    nanalisi = cint(inputbox(" quante estrazioni vuoi controllare ? ",,"1000"))
    inizio = estrazionefin - nanalisi
    fine = estrazionefin
    for idestr = inizio to fine
        messaggio "elab. Estr. [" &(idestr) & "] di " & dataestrazione(idestr,1)
        call avanzamentoelab(inizio,fine,idestr)
        a1 = estratto(idestr,1,1)
        a2 = estratto(idestr,2,1)
        a3 = estratto(idestr,3,1)
        a4 = estratto(idestr,4,1)
        a5 = estratto(idestr,5,1)
        a6 = estratto(idestr,6,1)
        a7 = estratto(idestr,7,1)
        a8 = estratto(idestr,8,1)
        a9 = estratto(idestr,9,1)
        a10 = estratto(idestr,10,1)
        a11 = estratto(idestr,12,1)
        coloretesto 1
        scrivi dataestrazione(idestr) & "  " & siglaruota(1) & " " & format2(a1) & "   " & siglaruota(2) & " " & format2(a2) & "   " & siglaruota(3) & " " & format2(a3) & "   " & siglaruota(4) & " " & format2(a4) & "   " & siglaruota(5) & " " & format2(a5) & "   " & siglaruota(6) & " " & format2(a6) & "   " & siglaruota(7) & " " & format2(a7) & "   " & siglaruota(8) & " " & format2(a8) & "   " & siglaruota(9) & " " & format2(a9) & "   " & siglaruota(10) & " " & format2(a10) & "   " & siglaruota(12) & " " & format2(a11),1
        coloretesto 0
        scrivi string(100,"°"),1
        if scriptinterrotto then exit for
    next
    scrivi
    scrivi string(100,"*")
end sub

grazie! E' perfetto.

Non ho parole per ringraziarti questo l'ho testato e' perfetto, quelllo degli ambi diametrali lo faro' domani, adesso vado "a nanna"
buona notte.

PS. HO PROVATO ANCHE QUELLO DEI DIAMETRALI, NON HO RESISTITO.
PERFETTO.
GRAZIE.

Baffoblu · 11 Aprile 2012

Prego !

Joe91 · 11 Aprile 2012

rosce14 ha scritto:
cortesemente mi dite come si trovano gli ambi diametrali in spaziometria, usciti nell'estrazione?Come posso fare per avere tutti i primi estratti delle ruote, sto facendo una ricerca per le prime pos. (ultime 1.000 estrazioni), ci vuole uno script o altro?

Grazie a chi mi risponde.

rosce14 ha scritto:
grazie joe91, per la tua gentilezza, non ho capito cosa hai messo nello script.
Sono 7 numeri per ruota e a saltare negli anni. Perche?, e non e' aggiornato all'ultima estrazione.
Mi spieghi?
Grazie ancora e a risentirci presto.

Ciao ...

come vedi ci sono molte risposte differenti

perchè la tua richiesta poteva essere interpretata in tanti modi.

Il mio script ricerca un Ambo Diametrale formato dal primo e dal secondo estratto

("i primi (2) estratti " ... ) di ogni ruota nelle 1000 ultime estrazioni.

Naturalmente ci saranno "buche" di estrazioni "a vuoto" tra una caduta e l'altra e,

non sempre, nell'ultima estrazione potrà essere presente ... un Ambo Diametrale.

Così lo script elenca elenca, quelli trovati, fino all'ultimo (che può non coincidere con l'ultima data)

Perciò in ogni linea di output ti fornisce

"la Data" in cui è stato trovato l'ambo diametrale,

"la Sigla della Ruota" in cui è caduto,

"gli Estratti" (i primi cinque numeri)

"l'Ambo Diametrale" trovato ("nei primi" 2 numeri) ... Ad esempio:

03.03.2012 Ve 10.55.35.45.56 10.55

Buona giornata a tutti.

rosce14 · 11 Aprile 2012

CIAO JOE, SONO PROPRIO UNA STUPIDA, NON AVEVO CAPITO CHE SI TRATTASSE DI AMBI DIAMETRALI, CREDEVO CHE FOSSERO I PRIMI ESTRATTI.

GRAZIE JOE,CI STUDIERO', SEI STATO GENTILISSIMO A SPEGARMI IL TUTTO.

BUONA SERATA.

Joe91 · 12 Aprile 2012

Blackmore ha scritto:

Se ti piace così......

Codice:

Sub Main
    Dim idestr
    Ini = EstrazioneFin - 1000
    For idestr = Ini To EstrazioneFin
        ReDim MatriceCaselleDaEvid(11,1)
        MatriceCaselleDaEvid(1,0) = 1
        MatriceCaselleDaEvid(1,1) = 1
        MatriceCaselleDaEvid(2,0) = 2
        MatriceCaselleDaEvid(2,1) = 1
        MatriceCaselleDaEvid(3,0) = 3
        MatriceCaselleDaEvid(3,1) = 1
        MatriceCaselleDaEvid(4,0) = 4
        MatriceCaselleDaEvid(4,1) = 1
        MatriceCaselleDaEvid(5,0) = 5
        MatriceCaselleDaEvid(5,1) = 1
        MatriceCaselleDaEvid(6,0) = 6
        MatriceCaselleDaEvid(6,1) = 1
        MatriceCaselleDaEvid(7,0) = 7
        MatriceCaselleDaEvid(7,1) = 1
        MatriceCaselleDaEvid(8,0) = 8
        MatriceCaselleDaEvid(8,1) = 1
        MatriceCaselleDaEvid(9,0) = 9
        MatriceCaselleDaEvid(9,1) = 1
        MatriceCaselleDaEvid(10,0) = 10
        MatriceCaselleDaEvid(10,1) = 1
        MatriceCaselleDaEvid(11,0) = 11
        MatriceCaselleDaEvid(11,1) = 1
        Call DisegnaEstrazione(idestr,MatriceCaselleDaEvid)
        If ScriptInterrotto Then Exit For
    Next
End Sub

Baffoblu ha scritto:

Questo per gli ambi diametrali

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim poste(10)
    Dim r
    Dim nAnalisi
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r = 1 To 11
            If r = 11 Then
                r = 12
            End If
            For p1 = 1 To 5
                For p2 = p1 + 1 To 5
                    a = Estratto(idEstr,r,p1)
                    b = Estratto(idEstr,r,p2)
                    If a = Diametrale(b) Then
                        ruote(1) = r
                        Scrivi String(65,"°")
                        Scrivi DataEstrazione(idEstr) & " * " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r) & " ** " & " Ambo Diametrale :   " & Format2(a) & " - " & Format2(b),1
                    End If
                    If ScriptInterrotto Then Exit For
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

rosce14 ha scritto:
CIAO JOE, ... NON AVEVO CAPITO CHE SI TRATTASSE DI AMBI DIAMETRALI ....

... BUONA SERATA.

Ciao Rosce,

No. Non ti scusare.

La colpa è anche mia che non ho messo nè titoli nè spiegazioni.

Ho imbastito in pochi minuti quella soluzione e l'ho buttata li ... difficile da capire.

Avrai notato che negli stessi pochi minuti, erano giunte, sovrapposte, le diverse interpretazioni.

Mi ha incuriosito quella di Blackmore (a me sconosciuta) e di difficile applicazione.

Penso che Luigi, con il REDIM, nell'esempio a corredo di questa istruzione

abbia voluto evidenziare che si DEVE RIDIMENSIONARE ogni volta al numero di celle da evidenziare.

Quindi dopo aver dimensionato a 11 non si potranno SPEGNERE alcune caselle

MA EVIDENZIARLE TUTTE 11

Quindi a parer mio è ... No, così non si può.

Ho fuso tuttavia lo script di Baffoblu con quelle che sono le indicazioni di Blackmore ...

e nonostante il buon funzionamento è presente un Bug (out of range)

presumibilmente dovuto alla Nazionale (che dovrebbe essere "scalata" di un gradino)

Ma qui, è necessario sapere da Luigi se sono corrette le mie deduzioni e quanto ho scritto.

Ovvero, se saranno apportate modifiche alle istruzioni principali.

(Per evitare l'errore, per ora, si dovrebbe aggiungere: If R=12 then R=11 come remmato in loco)

Vi lascio il riassunto di quanto ho espresso con gli auguri di una buona giornata.

Codice:

  Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim poste(10)
    Dim r
    Dim nAnalisi
    Dim C (2,1) ' COLORA add by Joe
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r = 1 To 11
            If r = 11 Then
                r = 12
            End If
            For p1 = 1 To 5
                For p2 = p1 + 1 To 5
                    a = Estratto(idEstr,r,p1)
                    b = Estratto(idEstr,r,p2)
                    If a = Diametrale(b) Then
                        ruote(1) = r 
                        Scrivi String(65,"°")
                        Scrivi DataEstrazione(idEstr) & " * " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r) & " ** " & " Ambo Diametrale :   " & Format2(a) & " - " & Format2(b),1
     ' --------------------------------------------- add by Joe

    'If R=12 then R=11
    C(1,0)= r : C(1,1)= p1  : C(2,0)= r : C(2,1)= p2
    Call DisegnaEstrazione (idEstr,C)
    ' ---------------------------------------------
    End If
                    If ScriptInterrotto Then Exit For
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

LuigiB · 12 Aprile 2012

ciao , ho capito che vi interessa chiedermi qualcosa pero non è che posso vedermi tutto il vostro codice e seguire cose che tutto sommato non mi interessano.
Fate una domanda breve e specifica cosi a domanda precisa precisa risposta.

Joe91 · 12 Aprile 2012

Cioa Luigi,

grazie per la risposta.

Il codice (l'ultimo) è solo da eseguire ... ad esempio.

In esso si generano "out of range" quando si tratta di evidenziare celle nella dodicesima ruota.

Tutto qui.

Concordo, e preferisco anch'io, avere tabelle riassuntive.

LuigiB · 12 Aprile 2012

guarda da qui non posso provare ma mi sa che il problema sta nel dimensionamento di C o forse che in Disegna estrazione la ruota nazionale è la 11 come dovrebbe essere e non la 12 come dice lottodesk (li mortacci sua)

Baffoblu · 12 Aprile 2012

Grazie Joe91 per aver sollevato la questione....

non si finisce mai di imparare....

Grazie a Luigi, che se non ci fosse lui saremmo Fott......

Adesso vorrei sapere una volta per tutte le ruote
in spaziometria come sono ordinate ?

da 1 a 10 = da Bari a Venezia. OK

La 11 qual'è ?

la 12 qual'è ?

Perchè spunta sempre sto lottodesk ?

sto fatto di if r=11 then r=12

o if r=12 then r=11

mi manda matto........

LuigiB · 12 Aprile 2012

purtroppo sto lottodesk spunta perche a suoi tempo ho avuto la malaaugurata idea di allinearmi con quello ..non è escluso che in futuro io possa levare questo allineamento e chi si è visto si è visto qualcuno potra dire e si ma gli script vecchi come si fa ? ed io rispondo spaziometria è gratis , ha un linguaggio piu potente e chi non lo vuole usare si compri lottodesk o rimanga ad usarlo se gia ce l'ha senza rompere. .. non posso portarmi appresso incoerenze dovute ad altri programmi.
Comunque attualmente la decisione non l'ho ancora presa e attualmente nelle statistiche la ruota 11 è Tutte e l 12 la nazionale , forse e dico forse in questa funzione disegna estrazione dato che le rute da disegnare sono effettivamente 11 la nazionale potrebbe in effetti essere l'undicesima ..

Joe91 · 12 Aprile 2012

Ciao Baffo ...

"Li mortacci" evocati da Luigi sono di chi ha inventato la Nazionale ...

Nel senso che non è serio, chi cambia, le carte in tavola

ovvero non si cambiano le regole di un gioco ... in corso di svolgimento.

Sicchè la scelta iniziale era: 11 = Tutte

Quindi tutti gli ... script sino all'inizio della nazionale

hanno comportato e reso (convenzionalmente) necessario

per compatibilità ''aggiungere" all'esistente la Nazionale dopo le 10 + 1 = 11 Ruote

Quindi : 11 + 1 = 12 = Nazionale.

Ma è il peccato originale ... delli mortacci... loro.

PS: Luigi, se mi permetti ... No: La Nazionale non è una undicesima ruota (aggiunta)

Non la puoi giocare ... assieme alle altre 10 come se fossero 11.

Ci vuole una bolletta "a parte". Quindi è una ruota-non-ruota.

Inventata per aggiungere un costo ed un problema in più, per tutti noi ... il giocatore.

Poi che ... tu ed io, non giochiamo e non ce ne frega niente ... è vero.

Che a rigor di logica ... dovrebbe essere che una ruota aggiunta ... sia una ruota,

(come era stato per Bari prima, poi per Genova e Cagliari ) dovrebbe essere "voluto" e soprattutto dovuto !!!

Ma, purtroppo qui, si tratta e si accetta "in partenza" di giocare con le regole

di uno che le regole te le cambia, come carte in tavola ... e, la logica, va a farsi benedire.

Dunque, tra grandi fabbricanti i di pentole ... noi, miserrimi, si tratta di far coperchi.

Concordo con quanto scritto da Baffo ... hai fatto del tuo meglio e continui a farlo in un ambiente ostico.

Meriti il ringraziamento di tutti noi.

Agli amici di spaziometria, piccolo aiuto.

Premium Member

Baffoblu

Guest

Baffoblu

Guest

Roby

Guest

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Baffoblu

Guest

Baffoblu

Guest

Premium Member

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Baffoblu

Guest

LuigiB

Guest

Advanced Member >PLATINUM PLUS<