Discussion :

[looping]

bonjour,

je voudrais faire la chose suivante:

activer une tache 1 seconde toute les 15 secondes ?

est ce que c'est possible avec le composant timer standart ?
sinon il y a le composant <timerlist> de la jvcl mais je n'arrive pas à l'utiliser !!
merci

[Cl@udius]

Salut

Je ne suis pas sûr d'avoir compris.
Tu veux toutes les 15 secondes exécuter une tâche qui devra durer 1 seconde. C'est ça ?

Si c'est la cas, un unique Timer suffit:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Start: Cardinal;
begin
  Start := GetTickCount;
  repeat
    // Ta tâche...
  until GetTickCount - Start > 1000;
end;

Maintenant ne connaissant pas la tâche en question... ! A voir.

@+ Claudius

[edam]

ou

Salut

Je ne suis pas sûr d'avoir compris.
Tu veux toutes les 15 secondes exécuter une tâche qui devra durer 1 seconde. C'est ça ?

Si c'est la cas, un unique Timer suffit:

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
 
 
 
  private
    { Déclarations privées }
    Delai:Integer;
    LAction:Boolean;
    procedure Timer1STAR(Sender: TObject);
    procedure Timer1END(Sender: TObject);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1STAR(Sender: TObject);
begin
     Dec(Delai);
     if Delai>0 then exit;
     Timer1.Enabled:=False;
     Timer1.OnTimer:=Timer1END;
     Timer1.Enabled:=true;
     LAction:=true;
     // pour utilisé une boucle d'attent dans une proc
     //while LAction do
     //ou simplement par exp: met un CTS de port série à 1
end;
procedure TForm1.Timer1END;
begin
     LAction:=false;
     //met un CTS de port série à 0
     Timer1.Enabled:=False;
     Timer1.OnTimer:=Timer1STAR;
     Delai:=15;// pour ne pas modifier Timer1.Interval:=1000;
     Timer1.Enabled:=true;
 
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
     Timer1.Enabled:=False;
     Timer1.Interval:=1000;
     Delai:=15;
     Timer1.OnTimer:=Timer1STAR;
     Timer1.Enabled:=true;
end;

Maintenant ne connaissant pas la tâche en question... ! A voir.

@+ Claudius

bien sûr c'est des idée, car on sait pas ce que tu veux exactement

[looping]

bonjour,

merci pour les réponses

ce que je veux faire exactement:

changer la couleur d'un label a rouge pendant 1 seconde et ceci toute les 15 secondes


a+

[edam]

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
  private
    { Déclarations privées }
    Delai:Integer;
    procedure Timer1STAR(Sender: TObject);
    procedure Timer1END(Sender: TObject);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1STAR(Sender: TObject);
begin
     Dec(Delai);
     if Delai>0 then exit;
     Timer1.Enabled:=False;
     Timer1.OnTimer:=Timer1END;
     Timer1.Enabled:=true;
     label1.font.color:=$FF;
end;
procedure TForm1.Timer1END;
begin
     label1.font.color:=0;
     Timer1.Enabled:=False;
     Timer1.OnTimer:=Timer1STAR;
     Delai:=15;// pour ne pas modifier Timer1.Interval:=1000;
     Timer1.Enabled:=true;
 
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
     Timer1.Enabled:=False;
     Timer1.Interval:=1000;
     Delai:=15;
     Timer1.OnTimer:=Timer1STAR;
     Timer1.Enabled:=true;
end;