utilisation de la fonction setTimeout

Version imprimable

bonjour,
je souhaite faire une animation qui fait que lorsqu'on clique sur un bouton, un cube saute puis retombe. J'ai donc fait mon code (qui marche), mais l'animation est beaucoup trop rapide. J'ai donc cherché sur les forums et la fonction à utiliser serait 'setTimeout', mais je n'arrive pas à l'intégrer. Voici mon code:

Code:

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
unit fiche;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
  {...}  
  Edit128: TEdit;
    Button1: TButton;
    procedure bt1c(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.bt1c(Sender: TObject);
begin
 
if edit88.Color=clred then edit72.Color:=clred;
 edit88.Color:=clblue;
setTimeout(function(){
 if edit72.Color=clred then edit56.Color:=clred;
 edit72.Color:=clblue;
 }, 1000);
  settimeout(function(){
if edit56.Color=clred then edit72.Color:=clred;
 edit56.Color:=clblue;
  }, 1000);
  settimeout(function(){
if edit72.Color=clred then edit88.Color:=clred;
 edit72.Color:=clblue;
  }, 1000);
 
 
end;
 
end.

Merci d'avance!

19/11/2014, 13h55
popo

la manière dont tu utilises setTimeOut, me fait penser à du javascript.
D'ailleurs mon Delphi ne semble pas le connaître.

As-tu essayé de placer un Sleep à la place ?
19/11/2014, 13h56
Gilbert Geyer

Bonjour,

Citation:

mais l'animation est beaucoup trop rapide. J'ai donc cherché sur les forums et la fonction à utiliser serait 'setTimeout' ...

Pour ralentir : utiliser Sleep(TantDeMillisecondes)

A+. :D

EDIT : Grillé de vitesse par Popo

la fonction marche, mais je ne voit pas les étapes intermédiaires (l'animation). J'ai églament simplifié comme ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TForm1.bt1c(Sender: TObject); begin edit72.Color:=clred; edit88.Color:=clblue; sleep(200); edit56.Color:=clred; edit72.Color:=clblue; sleep(200); edit72.Color:=clred; edit56.Color:=clblue; sleep(200); edit88.Color:=clred; edit72.Color:=clblue; end;

19/11/2014, 18h37
ShaiLeTroll

Le Sleep bloque l'application
Du coup, Windows ne gère pas le changement de couleur
Un Application.ProcessMessages avant le Sleep ou des editxx.Refresh() montrerait les étapes intermédiaires

Il faudrait plutôt utiliser un TTimer qui utiliserait un tableau pour gérer les transitions

je me suis renseigné sur le ttimer et j'ai donc fait un essai:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 procedure TForm1.tt1(Sender: TObject); begin edit72.Color:=clred; edit88.Color:=clblue; end; procedure TForm1.tt2(Sender: TObject); begin edit56.Color:=clred; edit72.Color:=clblue; end; procedure TForm1.tt3(Sender: TObject); begin edit72.Color:=clred; edit56.Color:=clblue; end; procedure TForm1.tt4(Sender: TObject); begin edit88.Color:=clred; edit72.Color:=clblue; end;
En voulant l'exécuter, j'ai reçu une alerte AVG me signalant que c'était un cheval de troie!?! Et impossible de l'exécuter car il ne trouve pas le programme!?! C'est normal?8O

4 Timer n'était pas utile !

Avec un seul Timer régler à 200 ms dans Interval

Ce n'est pas tout à fait le même effet que le tient que j'ai codé, il est en boucle et allume en rouge 56 puis 72 puis 88 puis 72 puis 56 ... ambiance K2000 :ptdr:

C'est plus long mais tu pourrais imaginer de stocker l'animation d'un un fichier ini par exemple et ainsi changer le scénario sans changer le code !

Code:

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
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  TimerUnique.Enabled := False;
  TimerUnique.Interval := 200;
 
  SetLength(FActions, 9);
  FActions[0].Edit := edit56;
  FActions[0].Color := clred;
  FActions[0].Iteration := 0;
  FActions[1].Edit := edit72;
  FActions[1].Color := clblue;
  FActions[1].Iteration := 0;
  FActions[2].Edit := edit88;
  FActions[2].Color := clblue;
  FActions[2].Iteration := 0;
 
  FActions[3].Edit := edit56;
  FActions[3].Color := clblue;
  FActions[3].Iteration := 1;
  FActions[4].Edit := edit72;
  FActions[4].Color := clred;
  FActions[4].Iteration := 1;
 
  FActions[5].Edit := edit72;
  FActions[5].Color := clblue;
  FActions[5].Iteration := 2;
  FActions[6].Edit := edit88;
  FActions[6].Color := clred;
  FActions[6].Iteration := 2;
 
  FActions[7].Edit := edit88;
  FActions[7].Color := clblue;
  FActions[7].Iteration := 3;
  FActions[8].Edit := edit72;
  FActions[8].Color := clred;
  FActions[8].Iteration := 3;
 
  TimerUnique.Enabled := True;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.TimerUniqueTimer(Sender: TObject);
var
  I: Integer;
begin
  TimerUnique.Enabled := False;
 
  for I := Low(FActions) to High(FActions) do
    if FActions[I].Iteration = FActionIteration then
      FActions[I].Edit.Color := FActions[I].Color;
 
  if FActionIteration < 3 then
    Inc(FActionIteration)
  else
    FActionIteration := 0;
 
  TimerUnique.Enabled := True;
end;

PS :

:tagcode: et pas [I ]Italique[/I ]

21/11/2014, 16h38
mistercactus

Merci beaucoup!!! j'ai conscience que je suis très nul :mouarf: mais 'FActions' n'es pas déclaré, que dois-je faire? Et je pense que 'FActionIteration' ne le sera pas non plus!
Sinon je commence à comprendre :D !

Effectivement, j'ai oublié de le copier, surtout que la déclaration n'est pas si évidente :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
 
  private
    { Déclarations privées }
    FActions: array of record
      Edit: TEdit;
      Color: TColor;
      Iteration: Integer;
    end;
    FActionIteration: Integer;

Code:

1
2
3
4
5
6
7
 
type 
  TActionItem = record
      Edit: TEdit;
      Color: TColor;
      Iteration: Integer;
    end;

dans la TForm

Code:

1
2
3
4
5
 
  private
    { Déclarations privées }
    FActions: array of TActionItem;
    FActionIteration: Integer;

21/01/2015, 21h26
mistercactus

Merci beaucoup ! Mais mon but était de faire un jeu et j'ai trouvé des moyens beaucoup plus simple pour arriver à mes fins !