HORLOGE BINAIRE

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 avril 2009 à 02:37
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 avril 2009 à 13:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49704-horloge-binaire

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
2 avril 2009 à 13:28
Timer1.Interval = 1
Timer1.Interval = 1000

tu n'as pas lourd de garantie qu'un tick s'effectue.
cs_Apolinaire Messages postés 44 Date d'inscription mardi 6 décembre 2005 Statut Membre Dernière intervention 25 avril 2019
2 avril 2009 à 13:20
Merci de tes remarques. J'ai mis à jour en conséquence.
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
2 avril 2009 à 10:25
1 - Gaffe au startupPosition: ma barre de taches est a gauche, en vertical et ta form passe partiellement dessous

2 - au chargement, pas de Tick du Timer la première seconde ; l'heure s'affiche pas de suite. Mets 1 dans l'interval de ton timer et remet le à 1000 dans le Timer1_Timer

3 - le test > 0 est inutile. btH(i).Visible = (Hour(Now) And 2 ^ i)
suffit
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
2 avril 2009 à 10:14
J'aime la simplicité de ton code
Rejoignez-nous