Compteur mécanique à tambours rotatifs

Soyez le premier à donner votre avis sur cette source.

Vue 3 794 fois - Téléchargée 1 038 fois

Description

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
19
Date d'inscription
vendredi 21 août 2009
Statut
Membre
Dernière intervention
22 février 2018

Bonjour ,
merci pour ce code, je cherche comment faire pour l'afficher comme l'indicateur de temps (le montre ).
Messages postés
268
Date d'inscription
mardi 24 juillet 2007
Statut
Membre
Dernière intervention
2 février 2021
>
Messages postés
19
Date d'inscription
vendredi 21 août 2009
Statut
Membre
Dernière intervention
22 février 2018

Bonjour,

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 à +
Messages postés
2
Date d'inscription
vendredi 29 novembre 2013
Statut
Membre
Dernière intervention
29 novembre 2013

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.
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16 >
Messages postés
2
Date d'inscription
vendredi 29 novembre 2013
Statut
Membre
Dernière intervention
29 novembre 2013

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.
>
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019

Bonjour Korgis,

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.