Chronomètre avec fonction Pause/Reprise

**Andry** · 13/04/2023, 10h12

Bonjour à tous,
Je dois créer un chronomètre avec Delphi. Là, il n'y a pas de souci, j'ai utiliser un avec un Timer réglé à 1000 comme intervalle.
Maintenant, je dois implémenter la fonction Pause et Reprise, la je bloque un peu.
Si quelqu'un peut m'orienter vers une piste.
Merci
Andry

**ShaiLeTroll** · 13/04/2023, 11h53

un Timer c'est bien pour montrer l'affichage du chronomètre mais rien de plus, selon la vitesse d'affichage, on baisse l'interval mais en aucun cas on se sert de cela comme mesure, cela sera totalement faux

c'est un TStopwatch qu'il faut utiliser pour mesurer le temps, cela gère Stop, Pause et Reprise

Sinon plus simple, tout simple Now() et une soustraction, suffit de comparer deux dates, plus si l'on veut gérer des intervalles.
Si l'on ne stocke pas les intervalles, suffit de faire la soustraction Tend - Tbegin lors de la pause, et à la reprise Tbegin prend un nouveau temps, à chaque fois pause\reprise, il faut juste accumuler le delta

Ton Chronomètre et son affichage via message\timer\paintbox ... doivent être disjoint !
Ne mélange pas la fréquence d'affichage et le temps réel mesuré.

**Andry** · 13/04/2023, 13h30

Bonjour.

Envoyé par ShaiLeTroll

un Timer c'est bien pour montrer l'affichage du chronomètre mais rien de plus, selon la vitesse d'affichage, on baisse l'interval mais en aucun cas on se sert de cela comme mesure, cela sera totalement faux
c'est un TStopwatch qu'il faut utiliser pour mesurer le temps, cela gère Stop, Pause et Reprise

Bien sur que j'utilise TStopWatch pour calculer comme suit dans un OnTimer event.

Code :

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

1
2
3
 
FEllapsedTime := FStopWatch.ElapsedMilliseconds/MSecsPerDay;
LabelChrono.caption := FormatDateTime('nn:ss', FEllapsedTime );

C'est plus le pause/resume qui me fait défaut. Je vais approfondir de ce coté

Merci

**ALWEBER** · 13/04/2023, 18h28

Envoyé par Andry

Bonjour à tous,
Je dois créer un chronomètre avec Delphi. Là, il n'y a pas de souci, j'ai utiliser un avec un Timer réglé à 1000 comme intervalle.
Maintenant, je dois implémenter la fonction Pause et Reprise, la je bloque un peu.
Si quelqu'un peut m'orienter vers une piste.
Merci
Andry

Timer.disable=PAUSE
Timer.enable=Restart
Pour le code j'utilisais ce genre de chose pour un compteur de temps en seconde

Code :

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

1
2
3
 
    DT_HeureDebut, DT_HeureFin : TDateTime ;
	L_DureeSec := Round((DT_HeureFin-DT_HeureDebut)*86400-0.49) ;

Si besoin je peux te donner le code
86400 * 24*60*60

**Andry** · 18/04/2023, 13h51

Bonjour à tous,
Merci pour vos conseils, avec le TStopWatch, tout etait déjà la en faite.

Code :

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

1
2
3
4
5
6
 
  FEllapsed := FDuration.Subtract(FStopWatch.Elapsed);
  LabelChrono.Text := Format('%2.2d:%2.2d', [FEllapsed.Minutes,
                                             FEllapsed.Seconds]);
  if FEllapsed.TotalSeconds < 0 then
    TimerSW.Enabled := False;

Avec
FDuration la durée du Chrono de type TTimeSpan
FEllapsed le temps restant type TTimeSpan

Il ne reste plus qu'à savoir comment assigner les heurs, minutes et secondes dans FDuration
Merci

**ALWEBER** · 19/04/2023, 09h18

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
unit Chrono1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Diagnostics, Vcl.ExtCtrls,
  Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    BtStart: TButton;
    BtPause: TButton;
    BtStop: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    BtRestart: TButton;
    procedure BtStartClick(Sender: TObject);
    procedure BtStopClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BtRestartClick(Sender: TObject);
    procedure BtPauseClick(Sender: TObject);
  private
    FStartTime: TDateTime;
    FStopTime: TDateTime;
    FRunning: Boolean;
    FPause: Boolean;
  end;
 
var
  Form1: TForm1;
 
var
  DDebut, DCumul: TDateTime;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtPauseClick(Sender: TObject);
begin
  if FRunning then
    FPause := true;
end;
 
procedure TForm1.BtRestartClick(Sender: TObject);
begin
  if FRunning then
  begin
    FPause := false;
    FStartTime := now - (FStopTime - FStartTime)  ;
  end;
end;
 
procedure TForm1.BtStartClick(Sender: TObject);
begin
  if not FRunning then
  begin
    FStartTime := Now;
    FRunning := true;
    FPause := false;
  end;
end;
 
procedure TForm1.BtStopClick(Sender: TObject);
begin
  if FRunning then
  begin
    FStopTime := Now;
    FRunning := false;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FRunning := false;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if FPause then
    exit ;
  if FRunning then
    FStopTime := Now;
  Label1.Caption := Format('%s', [FormatDateTime('hh:nn:ss.zzz',
    FStopTime - FStartTime)])
end;
 
end.

Bonne journée
Note : pour afficher le résultat en secondes

Code :

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

1
2
 
Label2.Caption := round((FStopTime - FStartTime) * 86400).ToString

**ShaiLeTroll** · 19/04/2023, 10h25

Regarde FormatElapsedTime pour convertir des micro-secondes en un affichage humain
je te laisse modifier pour gérer des millisecondes

le code ALWEBER doit gérer une seule pause, donc faut stocker le delta à chaque pause.