Horloge

[phlaurent55]

Bonjour à toutes et tous,

Suite à un petit défi avec un ami qui me demandait de créer une animation de shapes en utilisant une barre de défilement, je me suis amusé à faire une Rotation de shapes en fonction du temps qui passe.

voici le résultat en pièce jointe (version 2007)

Je ne pose pas de question concernant ce fichier
............ si quelqu'un veut l'améliorer, il le peut

à+
Philippe

 

[eriiic]

@Grisan,
avec un tel cadran, il fallait également mettre les valeurs des secondes en chiffres Romains
c'est fait, voir fichier joint

Amusant
Mais cela pose une question essentielle...
Comment faut-il écrire 4 s en romain ?
IV, ou bien IIII comme le font les vrais horlogers pour 4h et comme le montre (sans jeu de mot) ton fond.
Il va falloir trouver une clepsydre d'époque donnant la seconde et graduée en chiffres romains, pas simple ;-)

 

[phlaurent55]

Re,

Bonsoir
super ce fichier
Comme j'ai une montre qui tourne à l'envers.
nota je ne sais pas si la formule de l'aiguille des heure est ok ?

Et voici comment, un forum dédié aux utilisateurs d'Excel, se transforme en atelier d'horlogerie

à+
Philippe

 

[grisan29]

bonsoir a vous
mon horloge qui fait quand même 3 fois mon age n'as que des tirets pour les minutes et bruit du tictac pour les secondes dont voici son vrai cadran

 

[JM27]

bonsoir
avec le son à améliorer (récupéré dans windows , pas trop de choix)

 

[grisan29]

bonsoir JM27
un bruit ding dong avec le son pc

 

[JM27]

Bonjour
une nouvelle version toujours sur la base de Philippe.
avec son amélioré

 

[Si...]

Bonjour

Etant actuellement dans les "Shapes", je continue en mélangeant les genres, avec une seule macro (IN/OUT)et le Beep pour signal.

Je n'arrive pas à supprimer le curseur. Si quelqu'un(e*) a une idée … (à part le déplacer au centre pour un autre effet)

*sais-tu ÔÒ si ton spécialiste HP (Heure Pétante) a une idée ?

 

[DoubleZero]

Bonjour, le Fil , le Forum,

@ Si,

Sans vouloir être désagréable : HP ne signifie pas "Heure Pétante" mais "Hrrible Prestataire" !

Bravo pour tous vos superbes travaux.

P. S. : je ne déposerai aucun fichier qui laisse apparaître un coucou chantant les heures !..

A bientôt

 

[phlaurent55]

Re, à tous

Bravo pour tous vos superbes travaux.

P. S. : je ne déposerai aucun fichier qui laisse apparaître un coucou chantant les heures !..

Pour notre ânesse, voici un drôle de coucou

à+
Philippe

 

[DoubleZero]

Re-bonjour,

@ Philippe ,

Saperlippette ! Difficile d'attendre quelque quarante minutes avant de savoir ce qui se passera à 18h00 !

A bientôt

 

[phlaurent55]

Re,

Re-bonjour,

@ Philippe ,

Saperlippette ! Difficile d'attendre quelque quarante minutes avant de savoir ce qui se passera à 18h00 !

A bientôt

J'ai paramétré l'ouverture de la porte de l’écurie toutes les 15 secondes

à+
Philippe

 

[job75]

Bonjour à tous,

Belle réalisation Philippe.

Ci-joint ton fichier du post #12 avec le tic-tac créé par l'API Windows beep_api :

Declare Function beep_api Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

A+

 

[grisan29]

bonsoir Job75
les clic ne sont pas réguliers 2 ou 3 puis stop et en gros tous les 1/4 de minutes pareils

 

[job75]

Re,

les clic ne sont pas réguliers

Tu as raison grisan29, la synchronisation avec l'horloge de l'ordi n'était pas bonne.

Ceci à l'air de convenir chez moi sur ce fichier (2) :

t = Format(t + 1 / 86400, "d/m/yy h:m:s")
Application.OnTime t, "my_Procedure"

Qu'est-ce que ça donne chez vous les amis ?

A+

 

[Jacky67]

Re,

Qu'est-ce que ça donne chez vous les amis ?

A+

Bonsoir,
Xl 2007 Win 10 64b
Un petit "Tac" très très aléatoirement. S'il devait y avoir un "Tic" ...rien
Bravo au concepteur