Compteur mécanique à tambours rotatifs
pseudo8
Messages postés
2
Date d'inscription
vendredi 29 novembre 2013
Statut
Membre
Dernière intervention
29 novembre 2013
-
29 nov. 2013 à 11:53
cs_pseudo3 Messages postés 268 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 2 février 2021 - 22 janv. 2014 à 13:23
cs_pseudo3 Messages postés 268 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 2 février 2021 - 22 janv. 2014 à 13:23
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/100263-compteur-mecanique-a-tambours-rotatifs
https://codes-sources.commentcamarche.net/source/100263-compteur-mecanique-a-tambours-rotatifs
22 janv. 2014 à 13:23
Pour afficher l'heure il suffit :
1) Dans la procedure AfficherNombre(var Image: Timage; Nombre: string), d'y remplacer la const CF par const CF: set of Char = ['+', '-', '.', ',', 'E', 'i',':']; où j'ai ajouté le ':' ça permet d'afficher en plus l'heure.
2) Et de modifier la procedure TForm1.Timer1Timer(Sender: TObject); comme suit :
begin
if Animer then begin
Number := Number + DeltaNombre;
//edNombre.Text := FloatToStr(Number); edNombre.Update;
edNombre.Text:=TimeToStr(Time); edNombre.Update;
AfficherNombre(imgCompteur, edNombre.Text);
end;
end;
Bonne continuation, et à +
22 janv. 2014 à 10:24
merci pour ce code, je cherche comment faire pour l'afficher comme l'indicateur de temps (le montre ).
14 déc. 2013 à 10:05
Merci pour cette explication,
Et comment puis-je faire pour supprimer le nouveau pseudo (pseudo8) pour ré-utiliser pseudo3 devenu cs_pseudo3 ???
A+
13 déc. 2013 à 20:06
L'explication est que ton pseudo est devenu cs_pseudo3 suite à la fusion (l'absorption ?) de CodeS-SourceS par CCM.
Voici le lien pour accéder à ton profil :
http://codes-sources.commentcamarche.net/profile/user/cs_pseudo3
Amitiés à tous.
29 nov. 2013 à 11:58