Discussion :

[theprimitive]

Bonjour

J'ai un petit problème, je n'arrive pas à résoudre cet exercice:

Développer un chronomètre qui peur être démarré, arrêté et mis à zéro. Le chronomètre mesure le temps en dixièmres de secondes. Utilisez une logique approprié pour l'activation et la désactivation des boutons que vous utilisez.

J'ai déjà préparé la fiche mais je ne sais pas comment m'y prendre...

Quelqu'un aurait la gentilesse de m'aider?

theprimitive

[petitcoucou31]

Salut
Essaye de regarder l'aide sur GetTickCount çà devrai te mettre sur la voie ...

bye !

[theprimitive]

Merci mais l'aide ne trouve rien

Pourtant j'ai bien écrit GetTickCount mais sans résultats...

[petitcoucou31]

re ..
voila un exemple qui te donne un top toute les 0,1 seconde

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
25
26
27
28
 
 
procedure TForm1.Button4Click(Sender: TObject);
Var
    FHighPerf : Boolean ;
    HighFreq : Int64 ;
    Stop,Start : Int64 ;
    Resolution:real;
    CompteurTop:integer;
begin
    fini:=false;
   compteurTop=0;
    Resolution:=0.1; // base seconde donc resolution du top aux diziemes
    FHighPerf:=QueryPerformanceFrequency(HighFreq);
    If Not FHighPerf Then HighFreq:=1000;
    repeat
       If FHighPerf Then QueryPerformanceCounter(Start) Else Start:=GetTickCount;
       repeat
          If FHighPerf Then QueryPerformanceCounter(Stop) Else Stop:=GetTickCount;
       until (Stop-Start)/HighFreq > Resolution;
       inc(compteurTop);
 
       //===========
       // ici tu as un top tout les dixieme
       //===========
 
    until fini;
end;

bye et bonne continuation .

[Tardiff Jean-François]

Bonjour,

Ne serait il pas plus simple d'utiliser un TTimer. Il encapsule les API windows.

Le TTimer est un composant déclenchant un evenement (OnTimer) à interval en principe régulier.

1° mettez un TTImer sur une fiche
2° mettez le enbled du timer à fause
3° MEttez l'intervale à 100 (100 milliseconde)
4° ajouter un boutton demarrage .
Ce bouton stock le moment du declenchement (now) et m'est le timer à enabled := true

5° ajouter un boutton d'arret . Ce bouton m' est le timer à enabled := false
6° Ajouter un evenement OnTimer dans le timer
6-1 Timer.enabled := False
6-2 Calcule du temps écoulé depuis le début (temp stoké au début du decompte - now) et affichage
6- 3Timer.Enabled := true

Quelque explications:

Pourquoi travailler avec l'heur stocker au lieu de compter les increment ?

Le timer comme les api windows n'arréte pas le processus pour lancer un événement. Des que windows le peux, il déclenche l'évenement il peut donc avoir de léger décallage qui peuvent compter à la longue (le decallage est minime, en générale bien inférieure au millièmes de seconde, mais sur X heures cela peut compter)


Pourquoi le enabled := false du timer ?


Un risque avec un timer est qu'il peut déclencher plusieur fois un événement simulatnément

exemple:
Declenchement 1 du timer
Le traitemen (1) est en cour d'execution
Declenchement 2 du timer
Le traitemen (2) est en cour d'execution
Declenchement 3 du timer
Le traitemen (3) est en cour d'execution
Fin ddu declenchement (1) du timer.
Declenchement 4du timer
Le traitemen (4) est en cour d'execution

Dans cette exemple l'évenement est plus long à traiter que le traitement de l'événément. Du coup l'application lance de plus en plus de traitements jusqu'au plantage final.

NOTA 1:
Pour éviter les risques avec les enabled protéger l'évenement avec un try finally

NOTA 2:
Le boutton d'arret est piégé.
Il existe un risque notable:
1° L'évenement OnTimer se declenche
Donc Timer.enabled := False et debut du traitement
2° Le traitement est long, par conséquence vous avez mis un processe message dans le traitement. Si vous appuyer sur arret vous mettez le timer à false (arret du timer)
3° Fin de l'évenement, du coup le timer est remis a true. L'arret à été contourner.



Il existe une autre solution.
Dans le TApplication il y a un événement qui se declenche quand l'événement est en attente (entre 2 touche quand vous rentrer un text par exemple). vous pouvez utiliser cette événement pour tester votre temps.
Atention danger, l'évenement vas être lancer trés souvent. Si votre traitement est longt vous ralentirez votre machine. De plus vous ne pouvez utiliser cette évenement qu'une seul fois dans l'application. si vous l'utiliser pour votre timer, il ne sera plus disponible pour autre chose.

[theprimitive]

merci bcp pour ta réponse

Mais j'ai encore une petite question...

Je ne comprends pas vraiment ce que je dois faire dans le point 6-2...

6-2 Calcule du temps écoulé depuis le début (temp stoké au début du decompte - now) et affichage

Regarde...

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
 
procedure TForm1.btnStartClick(Sender: TObject);
begin
Timer.enabled:=true;
end;
 
procedure TForm1.btnStopClick(Sender: TObject);
begin
Timer.enabled:=false;
end;
 
procedure TForm1.TimerTimer(Sender: TObject);
begin
Timer.enabled:=false;
Timer.enabled:=true;
end;

[djo.mos]

Une rq, l'aide sur getTickCount se trouve dans le Windows SDK, qui est distribué avec Delphi 7 Entreprise, je ne sais pas pour toi.

[theprimitive]

merci mais mon prof m'a dit de ne pas utiliser le GetTickCount...

En plus il se trouve que j'ai encor une ancienne version de delphi c'est pour ça que je ne le trouve pas...

[tourlourou]

J.F. Tardiff t'a parfaitement répondu :

pour son point 6.2, tu stockes au démarrage du chrono la valeur du temps système (obtenu grâce à la fonction Now) dans une variable tps_start de type TDateTime et à l'arrêt du chrono, dans la variable tps_stop

le temps écoulé est obtenu par différence (tps_stop - tps_start)

il te suffit de l'afficher grâce à la fonction TimeToStr, en ayant formaté la chaîne au moyen de la variable LongTimeFormat (tu supprimeras les 2 digits de millisecondes excédentaires grâce aux fonctions traitant les chaînes et un petit arrondi)

ton aide doit t'apporter suffisamment de renseignements sur toutes ces fonctions et types de variables !

bon code

[Archimède]

je me suis déjà essayé à la réalisation d'un chrono avec un timer.
mon chrono émettait un bip à intervalle régulier fixé par l'utilsateur.
mais après utilisation et comparaison avec un chrono à quartz j'ai laissé tomber...au bout d'une utilisation prolongée un décalage dans le temps apparaît...il faut envisager une autre direction à mon avis.
il faut pas se caler sur l'horloge windows.

[petitcoucou31]

j'avais donné la solution du GetTickCount et du QueryPerformanceFrequency pour avoir un maximum de precision .

Le GetTickCount doit marcher même sur des versions inferieures a delphi7. ( et pourquoi ton prof veux pas que tu utilises cela ? )

Le QueryPerformanceFrequency lui est fonction de l'OS ( de souvenir !! ).

Par contre a mon avis , la precision de 100ms etant pas enorme la methode donné avec le timer devrai etre suffisante .

L'aide delphi préconise aussi d'utiliser les fonctions TTimeStamp ...
pour avoir une grande precision dans les routines de gestion des heures .. peut etre que çà peut aider aussi !

bye !

[theprimitive]

merci

Ben je pense qu'il ne me manque plus beaucoup

mais qu'est-ce qui manque encore???

procedure TfrmMain.btnStartClick(Sender: TObject);
var tps_start:TDateTime;
begin
Timer.enabled:=true;
tps_start:=now;
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
var tps_stop:TDateTime;
begin
Timer.enabled:=false;
tps_stop:=now;
end;

procedure TfrmMain.TimerTimer(Sender: TObject);
var tps_start,tps_stop:TDateTime;
LongTimeFormat:string;
begin
Timer.enabled := False;
LongTimeFormat:= timetostr(tps_stop - tps_start);
lblTime.Caption:=LongTimeFormat;
Timer.Enabled := true;

[theprimitive]

merci

Ben je pense qu'il ne me manque plus beaucoup

mais qu'est-ce qui manque encore???

procedure TfrmMain.btnStartClick(Sender: TObject);
var tps_start:TDateTime;
begin
Timer.enabled:=true;
tps_start:=now;
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
var tps_stop:TDateTime;
begin
Timer.enabled:=false;
tps_stop:=now;
end;

procedure TfrmMain.TimerTimer(Sender: TObject);
var tps_start,tps_stop:TDateTime;
LongTimeFormat:string;
begin
Timer.enabled := False;
LongTimeFormat:= timetostr(tps_stop - tps_start);
lblTime.Caption:=LongTimeFormat;
Timer.Enabled := true;
end;

[Tardiff Jean-François]

Bonjour,

Personellement je mettrait un Try finally pour protéger le enabled := True à la fin de l'événement du timer.

Le risque de clique sur le bouton stop alors que l'événement du timer à lieu (la fin de l'évenement anulerait le stop) n'existe pas car la procédure est courte et ne contient pas d'application.Processmessage.

En ce qui concerne Archimède et son essai avec un timer, je pense que le problème venait que vous tentiez de conter les impulsions. Dans ce cas il y a une dérive car le timer est en principe régulier mais en pratique aucun système informatique ne l'est. Le timer ne ce déclenche que lorque les taches en cours ne luis permette. Autrement dit, le système finit les instructions en cours avant de traiter le timer (il ce m'est dans un état "propre" avec des points de reprise pour reprendre la tache a la fin du timer).
C'est pour cela qu'il faut stocker la date de départ et la comparer à la date en cour. Cela évite les décallages.

[theprimitive]

procedure TfrmMain.btnStartClick(Sender: TObject);
var tps_start:TDateTime;
begin
Timer.enabled:=true;
tps_start:=now;
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
var tps_stop:TDateTime;
begin
Timer.enabled:=false;
tps_stop:=now;
end;

procedure TfrmMain.TimerTimer(Sender: TObject);
var tps_start,tps_stop:TDateTime;
LongTimeFormat:string;
begin
Timer.enabled := False;
LongTimeFormat:= timetostr(tps_stop - tps_start);
lblTime.Caption:=LongTimeFormat;
Timer.Enabled := true;
Try finally

end;

Merci pour toutes les infos...

mais le compteur ne démarre tjs pas

mais ce que moi je ne comprend c'est comment le programme fait-il pour calculer le tps_stop - le tps_start (marqué en gras) puisque les deux variables ont été initialisé dans les deux procedures avant...

Comment est-ce que je peut reprendre la valeur deux ces deux variables et est-ce qu'il y a d'autres fautes dans mon programme?

[lil_jam63]

Tu t'y prend mal dans ton "analyse" du problème.

Développer un chronomètre qui peur être démarré, arrêté et mis à zéro. Le chronomètre mesure le temps en dixièmres de secondes. Utilisez une logique approprié pour l'activation et la désactivation des boutons que vous utilisez.

Il te faut pour commencer un timer qui remet à jour l'affichage tous les 10ème de secondes, pour celà le TTimer fera l'affaire.
Il te faut donc un affichage de ce genre H:M:S:Ms ou juste S:Ms c'est à toi de voir.
Ensuite, un bouton pour démarrer le comptage, un autre pour l'arreter, et enfin un 3ème pour remettre à 0 l'affichage.
Pendant le comptage, les boutons start et remise à 0 doivent être désactivés et pendant l'arret, le bouton stop doit être désactivé.
Je te donne pas de code mais juste des expliquations qui vont te permettre de comprendre ce que tu fais, c'est le but d'un cours.
Pour répondre à ta question

Comment est-ce que je peut reprendre la valeur deux ces deux variables et est-ce qu'il y a d'autres fautes dans mon programme?

Tu déclares tes variables tps_start, tps_stop en local donc forcement les autres procedures n'y ont pas accès, pour celà déclare les en globale

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
 
unit1
 
interface
 
uses
  ... ;
 
type
  ...
 
var
  tps_start,tps_now:TDateTime;
 
implementation
  ...

ensuite tu les utilisent comme tu fais actuellement.
Pour t'aider, je vais juste te donner le code de l'evenement onTimer de ton Timer, pour le reste je te laisse reflechir un peu.

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.TimerTimer(Sender: TObject);
var
  Hour, Min, Sec, MSec: Word;
begin
  tps_now := now; // on récupère la date et l'heure actuel
  DecodeTime((tps_now - tps_start), Hour, Min, Sec, MSec); // on calcule le temps écoulé depuis la référence (tps_Start - tps_now) et on extrait les infos (H, M, S, Ms ) F1 sur DecodeTime pour plus d'infos
  lblTime.Caption:=intToStr(Hour)+'Hr '+intToStr(Min)+'Min '+intToStr(Sec)+'Sec '+intToStr(MSec)+'Ms'; // on construit notre affichage et on l'affiche
end;

Pour le reste essaye de reflechir un p'tit peu, c'est très facile, agit sur les propriétés Enabled des boutons pour les activer ou désactiver.

[rotule]

lil_jam63 a très bien résumé ton problème.

Juste un petit supplément. Pour l'affichage tu peux aussi utiliser la fonction FormatDateTime, par exemple :

Code :

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

1
2
3
4
procedure TForm1.TimerTimer(Sender: TObject); 
begin 
  lblTime.Caption := FormatDateTime('hh:nn:ss:zzz', tps_now - tps_start);
end;

[edam]

Pour le reste essaye de reflechir un p'tit peu, c'est très facile, agit sur les propriétés Enabled des boutons pour les activer ou désactiver.

ou utilise le meme bouton en changant son caption et utlise la proprité tag ou un variable pour le changé selon l'état actuelle
lil_jem peut vs donnée plus d'info

[Tardiff Jean-François]

Bobour,

L'événement OnTimer est bien attribué à TimerTimer ?