Condividi:        

Buone Feste (Continua)

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Buone Feste (Continua)

Postdi ricky53 » 01/02/17 17:02

Ciao,
no.

Salutiamoci questa sera prima delle 23:59
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Sponsor
 

Re: Buone Feste (Continua)

Postdi wallace&gromit » 01/02/17 20:59

Marius44 ha scritto:Le crisi adolescenziali le abbiamo superate tutti grazie al buon senso dei nostri genitori. Ora è il tuo turno.

allora i miei figli sono messi male :D

Comunque Marius non abbandonare proprio ora, che domani si festeggia...
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi ricky53 » 01/02/17 22:26

Mancano meno di due ora all'ora ... fondamentale.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi wallace&gromit » 02/02/17 08:32

Eccoci finalmente qua
BUONA CANDELORA A TUTTI
per celebrare la festa ecco un piccolo gadget:
http://www.filedropper.com/candelora2
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi ricky53 » 02/02/17 13:25

Ciao,
Buona CANDELORA a TUTTI !!!

Simpatico il gadget.

E' una tua produzione?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi wallace&gromit » 02/02/17 14:49

La produzione è mia, sì, ma scopiazzando pezzi di codice qua e là.
La trovata tutta mia è invece quella di inserire il random che permette di modulare il baluginìo delle candele.
Ad uso dei lettori futuri, quando il file non sarà più accessibile (se mai ce ne saranno) riprendo qui i codici della userform.
Codice: Seleziona tutto
Private Sub chiudi_Click()
UserForm1.Hide
End
End Sub

Private Sub riavvia_Click()
UserForm1.Hide
UserForm1.Show
End Sub

Private Sub UserForm_activate()
       
        With Me.Controls("auguri")
        .Visible = False
        End With

Candele = 5
Fiamme = 5

 OraAttuale = Timer
 Fine = 10
Do While Timer < OraAttuale + Fine
DoEvents
'If Round(Timer * 100) / 100 = Int(Timer * 10) / 10 Then
 Baluginio = Me.ScrollBar1.Value
    If Int(Rnd * Baluginio + 1) = 1 Then
    F = Int(Rnd * (Fiamme) + 1)
    C = Int(Rnd * (Candele) + 1)
    Jx = F & C

        With Me.Controls("candela" & Jx)
        .Visible = True
        .ZOrder msoBringToFront
        End With
    End If
'End If
Loop

For I = 1 To Candele
        With Me.Controls("candelasp" & I)
        .Visible = True
        .ZOrder msoBringToFront
        End With
        For J = 1 To Fiamme
        Jy = J & I
        With Me.Controls("candela" & Jy)
        .Visible = False
        End With
        Next J
Next I
 
 OraAttuale = Timer
 Fine = 1
Do While Timer < OraAttuale + Fine
DoEvents
Loop
        With Me.Controls("auguri")
        .Visible = True
        .ZOrder msoBringToFront
        End With

End Sub
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi ricky53 » 02/02/17 16:18

Ciao,
ottima cosa l'aver riportato il codice.


Se posso: a beneficio degli utenti meno ... forti con il VBA puoi commentare un po' il codice.


P.S.: prima che Anthony .... intervenga per bloccare la discussione !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi wallace&gromit » 02/02/17 17:07

ööh Anthony non sarà mica così cattivo da bloccarci sul più bello!

Nella userForm ho inserito 5 serie di immagini, sempre con una candela spenta e 5 differenti fiammelle che possano simulare il movimento di ogni singola fiamma. Il numero di questi oggetti viene gestito all'inizio della sub.
Nella userform ho anche inserito una barra di scorrimento con valori da 1 a 1000, che entra nella sub con la variabile Baluginio.
Settandola su 1 il movimento sarà rapidissimo perché a ogni ricalcolo del loop una fiammella si muoverà.

Ho definito inoltre il tempo massimo che deve durare la presentazione: 10 secondi.

Il cuore della macro è quindi il loop, che dura appunto per 10 secondi e ricalcola ogni tot frazione di secondo, non so bene quanto, in funzione del timer, ma penso anche del processore (con il mio vecchio PC di casa vedo un effetto più lento).

Comunque, come detto, se a ogni ricalcolo dovesse avvenire qualcosa il baluginio sarebbe troppo intenso, allora introduco un calcolo random: solo quando il numero random = 1, viene eseguita un'azione. Questo fa sì che vi sia una irregolarità e il baluginio delle candele è più realistico.
Inoltre ad ogni azione viene mossa una sola fiammella ancora una volta random tra le candele.

Alla fine dei 10 secondi nascondo tutte le fiammelle e mostro solo le candele spente, dopo un ulteriore secondo faccio apparire la scritta.

Tutti gli elementi di grafica li ho elaborati con CorelDraw e salvati in formato GIF, per poi importarli in excel.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi Marius44 » 02/02/17 17:18

@ W&G

Ottimo lavoro. Complimenti. ;)

Prima che finisca tutto ... sappiamo qualcosa della Signora?
Anthony, sii buono. Dacci qualche notizia, tu ... che puoi.

Ciao,
Mario
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Buone Feste (Continua)

Postdi ricky53 » 02/02/17 17:49

Ciao,
spiegazione chiarissima e comprensibile per tutti.

Bravo due volte.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi wallace&gromit » 02/02/17 18:11

Grazie per i feedback positivi, soprattutto da parte vostra, che non siete gli ultimi arrivati in materia!

in quanto alla signora... penso che nemmeno Anthony possa aiutare, inviteremo Enrico ad aprire un nuovo topic nel settore OT, in cui ci racconterà gli sviluppi.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi Anthony47 » 03/02/17 01:08

Ah aha, bello e originale il gadget della candelora...
Durante la prova sono stato un po' di tensione: ero in attesa che i cinque candelotti di dinamite esplodessero e comparisse Buon Candelotto; poi pero' tutto e' andato per il meglio.

Quanto alla vickinga, l'ultimo a vederla sara' stato il falegname o l'idraulico o l'elettricista o il muratore (spero che Enrico non sia saltato fuori da sotto il lavello e abbia fatto atti inconsulti).

Infine una diffida: toglietevi dalla testa che questa scena la tiriamo avanti fino alla Quaresima...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Buone Feste (Continua)

Postdi ricky53 » 03/02/17 01:26

Ciao,
no, no ... ma fino a CARNEVALE.
SI SI!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi wallace&gromit » 03/02/17 08:15

Anthony47 ha scritto:candelotti di dinamite

non ci avevo pensato che potessero sembrare a candelotti, la prossima volta ci metterò una piccola colata di cera sul lato, tanto per caratterizzarle meglio.
Comunque l'idea dei candelotti può tornare buona in previsione di Santa Barbara (4 dicembre), festa dei minatori.
Ma apriremo poi un nuovo topic e ora chiudiamo questo, non prima di avere ricordato che oggi è San Biagio ed è tradizione mangiare una fetta di panettone raffermo, conservata da Natale (vale per chi non se l'è già sbafato tutto come il sottoscritto).
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi ricky53 » 03/02/17 12:47

Ciao W&G,
questa tradizione mi mancava. Sai che origini ha ? In quale località viene citata?


P.S.: Chi vuole far parte del comitato per l'arrivo fino alle CENERI ???
Sottoscrivete questa discussione
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi wallace&gromit » 03/02/17 14:20

Ciao Ricky,
ho trovato questo che corrisponde a quanto mi racconta mia mamma, che a sua volta ha preso la tradizione dai suoi nonni, quindi già allora diffusa nell'area Lombarda e risaliamo agli anni '40 nel dopoguerra, ma probabilmente anche prima (durante, dubito).
http://www.tastingtheworld.it/san-biagio-tradizione-milanese-panettone-avanzato/5357/

P.S. in quanto alle ceneri, forse dobbiamo veramente trasferirci in OT, altrimenti ci bacchettano!
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Buone Feste (Continua)

Postdi ricky53 » 03/02/17 14:46

Ciao,
grazie per le notizie della tradizione Lombarda e Milanese.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Buone Feste (Continua)

Postdi Marius44 » 03/02/17 16:26

Ciao a tutti
mi associo alla combriccola per arrivare al Carnevale.

Per quanto riguarda la tradizione di S.Biagio val la pena di leggere anche qui: http://www.ansa.it/canale_terraegusto/n ... 04fbe.html

Ciao a tutti,
Mario
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Buone Feste (Continua)

Postdi Anthony47 » 04/02/17 19:47

Siete la mia disperazione...
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Buone Feste (Continua)

Postdi ricky53 » 04/02/17 19:59

Ciao,
e dai che disperazione e disperazione, siamo la "combriccola degli excelliani" che tenta di arrivare al carnevale ... MOD permettendo.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Buone Feste (Continua)":


Chi c’è in linea

Visitano il forum: Nessuno e 32 ospiti