Discussion :

[kikica]

Bonjour,
Je vous remercie si qq1 peut m'expliquer ceci :
J'ai un Form1 et dessus Shape1. Ma question est : comment afficher Shape1 4 fois, interval de 1 sec, + 1 fois 2 sec + 5 sec de pause, puis ça recommence.
Donc, comme un clignotant, mais avec des différents longueurs de intervals.
Merci beaucoup pour toute suggestion ;-)

[Invité]

Simplement avec la procédure OnTimer et la propriété Interval (en milliseconde).

Dans l’événement OnTimer tu le désactive avec Enabled := False, tu fais ton traitement, tu changes l'interval et tu l'actives avec Enabled := True

[Cirec]

Bonjour,

quelque chose comme:

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
var
  aCount: Integer = 0;
  Paused: Boolean = False;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Paused then
    Shape1.Visible := not Shape1.Visible
  else
    Shape1.Visible := False;
  Inc(aCount);
  if aCount = 8 then
  begin
    Timer1.Interval := 2000;
    Shape1.Visible := True;
  end;
  if aCount = 9 then
  begin
    Timer1.Interval := 5000;
    Paused := True;
  end;
  if aCount = 10 then
  begin
    Timer1.Interval := 1000;
    aCount := 0;
    Shape1.Visible := True;
    Paused := False;
  end;
end;

ps: le TShape est visible au début de l'action

avec le TShape non visible il faut modifier légèrement:

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
var
  aCount: Integer = 0;
  Paused: Boolean = False;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Paused then
    Shape1.Visible := not Shape1.Visible
  else
    Shape1.Visible := False;
  Inc(aCount);
  if aCount = 9 then
  begin
    Timer1.Interval := 2000;
    Shape1.Visible := True;
  end;
  if aCount = 10 then
  begin
    Timer1.Interval := 5000;
    Paused := True;
  end;
  if aCount = 11 then
  begin
    Timer1.Interval := 1000;
    aCount := 0;
    Paused := False;
  end;
end;

si ça peut aider
Cordialement,
@+

[Andnotor]

Ou en jouant avec un tableau et le Tag du timer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
uses Math;
 
procedure TForm1.Timer1Timer(Sender: TObject);
const
  Intervals : array[0..9] of integer = (1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 2000, 5000);
 
begin
  Shape1.Visible := not Shape1.Visible;
 
  Timer1.Interval := Intervals[Timer1.Tag];
  Timer1.Tag      := IfThen(Timer1.Tag < high(Intervals), Timer1.Tag +1);
end;

[kikica]

Merci beaucoup pour vos réponses, cette tactique avec "inc" est super ! Actuellement au travail, je testerai ce soir et je mettrai "résolu" si ça marche ;-)
Bonne journée !

[kikica]

La solution de Andnotor me semble encore plus simple... mais en réalité plus difficile à comprendre :-)
Impatient de éssayer...

[SergioMaster]

Bonjour,

Ou en jouant avec un tableau et le Tag du timer :

Très élégant mais il ne manquerait pas une réinitialisation de calcul du Tag afin de faire une boucle infinie ? (la partie IfThen)
(pas le courage de tester)

Code :

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

Timer1.Tag:=IfThen(Timer1.Tag < high(Intervals), Timer1.Tag +1,low(Intervals));

[Charly910]

Bonjour,

Par curiosité, j'ai testé la solution de AndnotOr, mais mon D7 ne trouve pas l'instruction IfThen. J'ai donc modifié et aussi remis tag à 0 pour boucler sur l'animation.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Timer1Timer(Sender: TObject);
Const
  Intervals : array[0..9] of integer = (1000, 500, 1000, 500, 1000, 600, 1000, 500, 800, 500);
Begin
  Panel1.Visible := not Panel1.Visible;
  Label1.Caption := 'Tag : '+ IntToStr( Timer1.Tag)+ ' - Interval : '+IntToStr(Intervals[Timer1.Tag]) ;
  Timer1.Interval := Intervals[Timer1.Tag];
  If (Timer1.Tag < high(Intervals)) Then Timer1.Tag := Timer1.Tag  +1
                                    Else Timer1.Tag := 0 ;
End ;

ça marche parfaitement et pour voir j'ai affiché l'intervalle dans Label1

A+
Charly

[Andnotor]

IfThen est dans l'unité Math. Je ne sais pas si elle existait déjà sous D7. Sinon, if..then..else va très bien.
Le deuxième paramètre (si FALSE) a 0 comme valeur par défaut, inutile de le renseigner (à moins bien sûr que le tableau ne soit pas à base 0)

[Cirec]

Alors oui,
plus court, plus élégant et peut être plus compliqué à comprendre au premier abord

Bravo bel exemple d'optimisation esthétique

sinon IfThen est bel et bien présent dans l'unité Math sous D7 !

Cordialement,
@+

[Charly910]

Effectivement, IfThen est dans l'unité MathStrUtils. Mon Help ne me le trouvait pas ! et je ne connaissais pas ...
A+
Charly

[kikica]

Effectivement, LA solution qui marche parfaitement est celle-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses Math;
 
procedure TForm1.Timer1Timer(Sender: TObject);
const
  Intervals : array[0..9] of integer = (1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 2000, 5000);
 
begin
  Shape1.Visible := not Shape1.Visible;
 
  Timer1.Interval := Intervals[Timer1.Tag];
 // Timer1.Tag      := IfThen(Timer1.Tag < high(Intervals), Timer1.Tag +1);
Timer1.Tag:=IfThen(Timer1.Tag < high(Intervals), Timer1.Tag +1,low(Intervals));

Merci beaucoup à tous !