Discussion :

[Anais.serguier]

Bonjour,

Je dois modifier les valeurs d'une variable à un instant t. Le problème est que le temps entre deux changements varie, et c'est là que je ne sais pas comment gérer les différents délais.
Voici le code que j'avais utilisé qui ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.btEcriture2Click(Sender: TObject);
      var j: integer;
begin
      n := 0;
      for j:=0 to n_max do
      begin
        n := j;
        Attente.Interval := tb_time[n];
        Attente.Enabled := true;
      end;
end;

Code :

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

1
2
3
4
5
6
procedure TForm1.AttenteTimer(Sender: TObject);
begin
        csg_temp := FormatFloat('0000.0',tb_temp[n]);
        inc(n);
        Attente.Enabled := false;
end;

Merci

[guillemouze]

Le problème, c'est que le timer est asynchrone, donc ta boucle se termine avant que ton timer ne soit déclenché.
Il faut donc que tu aie un champ dans ta classe par exemple (ou le tag du timer), pour determiner ton "n"

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
procedure TForm1.btEcriture2Click(Sender: TObject);
      var j: integer;
begin
  //on suppose que le n_max est toujours >= 0
  Attente.Interval := tb_time[0];
  Attente.Tag := 0; //ici on memorise le n
  Attente.Enabled := true;
end;
 
procedure TForm1.AttenteTimer(Sender: TObject);
begin
  csg_temp := FormatFloat('0000.0',tb_temp[Attente.Tag]);
  //on passe au suivant
  Attente.Tag := Attente.Tag + 1;
  if Attente.Tag <= n_max then
    Attente.Interval := tb_time[Attente.Tag]
  else
    Attente.Enabled := false; //on a terminé, on arrete
end;

[Anais.serguier]

Merci bien !
J'ai une autre petite question, si mes temps sont de l'ordre de plusieurs minutes, ce n'est donc pas d'utiliser le timer à cause du type cardinal, non ?

[guillemouze]

cardinal : entier non signé sur 4 octets, soit un peu plus de 4 milliards
Le timer doit être en millisecondes, donc ca fait 4 millions de secondes, soit 1111 heures, donc tu as de quoi faire

[Anais.serguier]

Niquel, encore merci alors !