Discussion :

[fmr130]

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

[blondelle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fmr130]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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??

[fmr130]

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???

[henderson]

Salut !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UINT Compteur;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Grosbenji]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

TDateTime StartTime;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StartTime = Now();

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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