HORLOGE BINAIRE

Signaler
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
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

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

tu n'as pas lourd de garantie qu'un tick s'effectue.
Messages postés
44
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
25 avril 2019

Merci de tes remarques. J'ai mis à jour en conséquence.
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
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
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
J'aime la simplicité de ton code