Dysfonctionnement de BGRALEDs

Version imprimable

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:

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

Code:

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:

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?

18/04/2017, 22h21
Jipété

Citation:

Envoyé par FOCUS77

une erreur :(

des idées?

:cristal:

Salut

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

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

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:

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:

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;

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: :calim2:

Code:

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:

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

Bonsoir à tous,

@anapurna

Citation:

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

C'est exactement ça !!

donc voilà le nouveau code:

Code:

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.