Discussion :

[OutOfRange]

Bonjour à tou(te)s

Le code suivant

Code :

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

1
2
3
4
5
procedure Tpal.chronoTimer(Sender: TObject);
begin
   temps:=temps+0.001;
   depuisquand.Caption:=formatdatetime('hh:nn',temps);
end;

m'affiche un chrono déréglé...
qui "saute" une seconde sur 3 :
00:01
00:02
00:04
00:05
00:07
etc...

Pourtant, la propriété interval est bien à 1000

J'ai beau tourner le pb dans tous les sens, je ne vois pas

Merci pour votre aide

[sjrd]

Il ne faut surtout pas utiliser les timers dans cette optique. Il te faut enregistrer le temps au début du traitement, récupérer le temps au tic du timer, et faire la différence.
Windows n'étant pas un OS temps réel, tu ne peux compter sur ses événements pour être exacts ne fusse qu'à la seconde près

[OutOfRange]

OUPS!!!

Je suis fatigué ce soir...
temps:=temps+0.001;
ajoute 1/1000 ème de 24H

Or, je veux ajouter 1/60 d'1/60 d'1/24 de 24H
Mais pour simuler un affichage minutes/secondes, la bonne méthode est

temps:=temps+1/(24*60);

Je crois que je vais aller me coucher

Merci quand même à ceux qui m'ont lu... sans comprendre

[OutOfRange]

Merci sjrd...

Mais mon souci au cas présent n'est pas la précision

Je garde tout de même ton conseil avisé dans 1 coin

Bonne prog

[sjrd]

Cela n'enlève rien à ce que j'ai écrit

[OutOfRange]

Euh ?

Où coche t-on [RESOLU] dans ce superbe new forum

[sjrd]

En haut à droite, tu as un menu Outils de la discussion : tu le déroules et tu cliques sur Mettre résolu

[Graffito]

Bonjour,

Pour éviter que les évents timer s'empilent, utiliser la propriété "enabled" :

Code :

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

1
2
3
4
5
6
7
procedure Tpal.chronoTimer(Sender: TObject);
begin
chronoTimer.enabled:=false ; // stoppe timer
   temps:=temps+0.001;
   depuisquand.Caption:=formatdatetime('hh:nn',temps);
chronoTimer.enabled:=true ;// réactive timer
end;