Comment créer une boucle ?

Version imprimable

15/03/2006, 16h23
kikica

Comment créer une boucle ?

Explication: J'ai 10 petits "shape1" de couleur verte sur une form1, et qui sont bien alignés.
Je veux créer une petite boucle par laquelle chaque "shape" va changer sa couleur en bleu, mais un à la fois et à chaque fois qu'un shape deviens bleu, tous les autres redeviens verts.
Je suppose qu'il faut bien utiliser un timer, mais comment faire la boucle??

Merci d'avance pour toute bonne idée... :roll:

Salut,
Essaie ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
begin
  cpt := ((cpt) mod 10) + 1;
  for i := 1 to 10 do
  begin
    if i = cpt then
      TShape(FindComponent('Shape' + IntToStr(i))).Brush.Color := clBlue
    else
      TShape(FindComponent('Shape' + IntToStr(i))).Brush.Color := clGreen;
  end;
end;

cpt étant un integer déclaré en private

:wink:

15/03/2006, 17h51
kikica

Excellent!! Ca marche!
Je voudrais comprendre ce code:

Code:

cpt := ((cpt) mod 10) + 1;

ceci je ne comprends pas. Que veut dire ça?
Et pourquoi déclarer "cpt" en privé global?
Merci. :D
15/03/2006, 18h08
Guile
Code:

1 2 cpt := ((cpt) mod 10) + 1;
alors ceci est juste une petite formule pour créer un compteur qui va de 1 à 10 et qui revient à 1 ensuite et ainsi de suite.

a mod b renvoie le reste de la division de a par b donc
quand cpt = 1 :

cpt := (1 mod 10) + 1 = 1 + 1 = 2

pour cpt = 2 :

cpt := (2 mod 10) + 1 = 2 + 1 = 3

...

et pour cpt = 10 :

cpt := (10 mod 10) + 1 = 0 + 1 = 1

voilà quant à la déclaration de cpt, tu la mets où tu veux mais en tout cas pas dans le OnTimer car la valeur de cpt doit etre conservé après chaque événement OnTimer. C'est la variable qui sauvegarde le numéro de ton shape bleu :wink: j'espère que c'est clair :D
15/03/2006, 18h10
j.p.mignot

cpt est un INTEGER ( ou assimilé )
CPT = (CPT mod 10 ) +1 => cpt = reste de la division de cpt par 10 ( donc 0 à 9) auquel on ajoute 1 ( donc le résultat final dans CPT sera un entier entre 1 et 10 )

exemple
cpt=33
-> (cpt mod 10) + 1 = 3 + 1 = 4

dans ce petit code on auurait pu ajouter
var cpt : innteger; et initialiser cpt = random (1000);
15/03/2006, 21h02
kikica

OUUUF!! Merci, maintenant il me faut du calme pour bien digérér tout ça...
MERCIIIII..... :bravo: :chin: