Comment créer un compteur numérique

Bonjour à tous,

Je souhaiterai créer une compteur numérique, c'est à dire en temps réel afficher dans 3 Tedit les secondes, les minutes et les heures.

Je ne vois vraiment pas comment commencer, pouvez vous me donner quelques conseils.

Faut il créer un évènement en utilisant un timer??

je vous remercie d'avance...

Nico

Salut fmr130
Peut etre comme ceci, adapte de l'aide en ligne, 1 Timer, 1 TEdit
Dans l'evenement du Timer

Code:

---

1 2 3 4 5

void __fastcall TForm1::Timer1Timer(TObject *Sender) { Edit1->Text = FormatDateTime("dddd, mmmm d, yyyy ' à ' hh:mm:ss AM/PM", Now()); }

---

A toi de l'adapter suivant tes besoins

C'est pas une mauvais idée sauf qu'en utilisant cette façon l'heure ne pourra pas dépasser 23.

J'ai utilisé un Timer dans lequel j'incrémente des variables :heure, minute, secondes. Puis j'affiche ces valeurs dans les Tedit.

Voila à quoi ressemble le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

int seconde = 0, minute = 0, heure = 0; void __fastcall TMainForm::Timer1Timer(TObject *Sender) { seconde++; if (seconde == 60) { seconde = 0; Edt_Secondes_->Text = 0;   minute ++; if (minute == 60) { Edt_Minutes_->Text = 0; minute = 0; heure ++; Edt_Heures_->Text = heure; } else Edt_Minutes_->Text = minute; } else Edt_Secondes_->Text = seconde; }

---

Par contre je sais pas si le compteur est très précis... qu'en pensez vous??
Et une autre question, j'ai vu sur un forum que le Timer se bloque à une certaine valeur (65536) est ce vrai??

Bon la je viens de vérifier le compteur ne se bloque pas.... donc pas de limite du au timer... pour le tester g simplement mis un intervalle de 1ms !!! ;)

Par contre je sais pas comment faire pour tester la précision de mon compteur avez vous une idée??? :cry:

Salut !

On peut le faire aussi de cette façon là :

Code:

---

1 2	UINT Compteur;

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

AnsiString Div60(int *G) { int c = *G % 60; *G = *G / 60; return IntToStr(c / 10) + IntToStr(c % 10); }   void __fastcall TForm1::Timer1Timer(TObject *Sender) { AnsiString N; Compteur++; int c = Compteur; N = " : " + Div60(&c); N = " : " + Div60(&c) + N; Panel1->Caption = IntToStr(c) + N; }

---

Comme le compteur est défini sur un unsigned int, ça te laisse 1193046 heures avant le bug du siècle (grosso modo... dans 136 années) !

A plus !

Bonjour fmr130,

Un timer n'est pas précis, je te déconseille de procéder comme tu le fais.

Ce que je te propose, c'est bien d'utiliser un timer mais seulement pour le rafraichissement des edits.

En ce qui concerne le calcul du temps écoulé, tu peux procéder de la manière suivante par exemple:

* Tu définies une variable StartTime, de type TDateTime, membre de ta form principale (ou en tant que variable globale, mais bon c'est moins propre):

Code:

---

TDateTime StartTime;

---

* Au moment où ton compteur doit démarer, tu conserves le temps de départ:

Code:

---

StartTime = Now();

---

* Dans l'événement du timer, tu peux faire quelque chose comme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

void __fastcall TForm1::Timer1Event(TObject *Sender) { //récupère le temps écoulé depuis StartTime TTime CrtTime = Now()-StartTime;   //converti CrtTime en secondes int SecondTime = int(CrtTime.operator double()*3600*24);   //détermine le nombre d'heures écoulées int HourTime = (SecondTime/3600); //mise à jour de SecondTime SecondTime -= (HourTime*3600);   //détermine le nombre de minutes écoulées int MinuteTime = (SecondTime/60); //mise à jour de SecondTime SecondTime -= (MinuteTime*60);   //rafraichissement des edits Edit1->Text = HourTime; Edit2->Text = MinuteTime; Edit3->Text = SecondTime; }

---

Concernant l'interval du timer, 100 ms me semble largement suffisant.

Cordialement,

Benjamin