Discussion :

[[ZiP]]

Bonjour,

Quelle est la méthode la plus fiable pour exécuter une tâche à heure fixe dans un programme qui tourne en permanence en tâche de fond : le timer à 1 seconde avec des tests de condition ?

Merci,
Mathieu

[andreditdd]

C'est comme cela que je ferais.
Mais est-il nécéssaire de tester toutes les secondes ?

André

[[ZiP]]

Bonsoir,

Je suis en train de tester ce 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
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
     MonHeure : TDateTime;
     Heure, Minute, Seconde, milliSec : Word;
begin
     MonHeure := Now;
     DecodeTime(MonHeure,Heure, Minute, Seconde,milliSec);
     if (Heure = 19) and (Minute = 5) then Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss',MonHeure));
     if (Heure = 19) and (Minute = 10) then Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss',MonHeure));
     if (Heure = 19) and (Minute = 15) then Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss',MonHeure));
     if (Heure = 19) and (Minute = 20) then Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss',MonHeure));
     if (Heure = 19) and (Minute = 25) then Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss',MonHeure));
end;

Il a l'air de bien fonctionner.

Mathieu

[guillemouze]

tu peux aussi setter l'interval de ton timer pour qu'il soit declenché à ladite heure, en faisant la difference entre l'heure voulue et le moment ou tu affecte l'interval.

[SergioMaster]

un peu de 'toilettage' ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
     Heure, Minute, Seconde, milliSec : Word;
begin
     DecodeTime(now,Heure, Minute, Seconde,milliSec);
     if (Heure = 19) then
        case minute of 
          5,10,15,20,25 :Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy  hh:nn:ss',MonHeure));
         end;
end;

[[ZiP]]

Bonjour,

C'est en effet un peu plus optimisé comme cela, je vais effectuer les corrections dans mon code.

Merci,
Mathieu

[Arsenic68]

tu peux aussi setter l'interval de ton timer pour qu'il soit declenché à ladite heure, en faisant la difference entre l'heure voulue et le moment ou tu affecte l'interval.

Ca ne marchera qu'une fois, vu que l'intervalle entre now et l'heure ne sera pas le même qu'entre l'heure et demain à la même heure

[guillemouze]

Ca ne marchera qu'une fois, vu que l'intervalle entre now et l'heure ne sera pas le même qu'entre l'heure et demain à la même heure

sauf si tu reaffecte l'interval au OnTimer