Voici un code pour afficher des nombres sur un compteur mécanique à tambours rotatifs
animés comme un compteur d'eau.
C'est juste pour le fun ... l'effet n'est bien entendu intéressant que si le nombre
affiché change à une cadence ni trop faible ni trop élevée.
Il permet d'afficher tous types de nombres : entiers ou réels convertis en string.
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;
C'est bizarre : Pour déposer ce code il a fallu que je m'inscrive en tant que nouveau membre ce qui m'a obligé de prendre un nouveau pseudo alors que j'aurais bien aimé conserver mon ancien pseudo qui était pseudo3.
Oui, c'est un peu le bazar depuis... un certain temps.
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.
merci pour ce code, je cherche comment faire pour l'afficher comme l'indicateur de temps (le montre ).
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 à +
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.
Merci pour cette explication,
Et comment puis-je faire pour supprimer le nouveau pseudo (pseudo8) pour ré-utiliser pseudo3 devenu cs_pseudo3 ???
A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.