Discussion :

[FOCUS77]

Bonsoir à tous,

Je veux concevoir un jeu de lumière avec une vingtaine de BGRALED déposées sur une forme dont
voici les codes:

Code :

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

1
2
3
var
  Form1: TForm1;
   i,ecart:integer;

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
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i< componentcount+ecart-1 then
 begin
      if i<ecart then
      TBGRALED(Components[i]).On:=True
      else if (i>=ecart) and (i<componentcount) then
      begin
      TBGRALED(Components[i-ecart]).On:=False;
      TBGRALED(Components[i]).On:=True;
      end
      else if i>=componentcount then
      TBGRALED(Components[i-ecart]).On:=False;
      i:=i+1;
  end
 else
 begin i:=0;ecart:=ecart+1 end;
 if ecart>componentcount-2 then
 ecart:=1;
end;

Code :

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

1
2
3
4
procedure TForm1.Timer1StartTimer(Sender: TObject);
begin
  i:=0;ecart:=1
end;

Les 19 premières BGRALED fonctionnent normalement, mais la dernière déclenche une erreur

des idées?

[Jipété]

une erreur

des idées?

[anapurna]

Salut

Es-tu sûr que tous les components sont des TBGRALED ?

Pour ma part, j'aurais créé un tableau de LED :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TabLed : Array of TBGRALED;
...
SetLengh(TabLed,0);
 
Procedure ...NouvelleLed;
begin
  setlength(TabLed,length(TabLed)+1);
  TabLed[High(TabLed)] := TBGRALED.create...;
  ...
  NbCountLed :=length(TabLed); 
end;

Je pense que tu plantes à ce niveau-là :

Code :

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

if i< componentcount+ecart-1 then

Ta position de led ne doit jamais dépasser le nombre de leds. Ajouter l’écart à ton nombre de leds est une erreur.
J'aurais vu un truc plus dans ce genre :

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
 
 if iLedCourante < Pred(NbCountLed) then // 
 begin
   iLedCourante :=iLedCourante +1;
   if  (iLedCourante >=ecart) Then 
   begin
     TBGRALED(TabLed[iLedCourante-ecart]).On := False;
     ecart := ecart+1; 
   end;
 end
 else
 begin
   iLedCourante := 0;  
   ecart := 0;
 end;
  TBGRALED(TabLed[iLedCourante]).On := True;

[FOCUS77]

Bonjour à tous

@anapurna
-oui tous les composants sont de type TBGRALED.
- Je n'ai pas encore étudié tes codes, en fait ce qui m'étonne est que ce même code fonctionne ainsi sans aucun problème:

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
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i< componentcount+ecart-1 then
 begin
      if i<ecart then
      TBGRALED(Components[i]).color:=clblue
      else if (i>=ecart) and (i<componentcount) then
      begin
      TBGRALED(Components[i-ecart]).color:=clyellow;
      TBGRALED(Components[i]).color:=clblue;
      end
      else if i>=componentcount then
      TBGRALED(Components[i-ecart]).color:=clyellow;
      i:=i+1;
  end
 else
 begin i:=0;ecart:=ecart+1 end;
 if ecart>componentcount-2 then
 ecart:=1;
end;

Code :

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

1
2
3
4
procedure TForm1.Timer1StartTimer(Sender: TObject);
begin
  i:=0;ecart:=1
end;

[FOCUS77]

Bonsoir à tous,

@anapurna

Ta position de led ne doit jamais dépasser le nombre de led

C'est exactement ça !!

donc voilà le nouveau code:

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
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i< componentcount+ecart-1 then
 begin
      if i<ecart then
      begin  TBGRALED(Components[i]).On:=True end
      else if (i>=ecart) and (i<componentcount-1) then  // erreur1:(i<componentcount) 
      begin
      TBGRALED(Components[i-ecart]).On:=False;
      TBGRALED(Components[i]).On:=True;
      end
      else if i>=componentcount-1 then         // erreur2:(i>=componentcount) 
      TBGRALED(Components[i-ecart]).On:=False;
      i:=i+1;
  end
 else
 begin i:=0;ecart:=ecart+1;  end;
 if ecart>componentcount-2 then
ecart:=1;
end;

merci à vous tous.