TABLEAU DE VOYANTS CLIGNOTANTS

Commentaire de f0xi le 19/12/2006 09:39:21 administrateur CS

pfiuuu que de code pour ça ...

tu pourrais optimiser tout cela avec des tableaux, des inverseurs booléens ect... ect...

exemple avec des paintbox :

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    PaintBox1: TPaintBox;
    PaintBox2: TPaintBox;
    PaintBox3: TPaintBox;
    PaintBox4: TPaintBox;
    PaintBox5: TPaintBox;
    PaintBox6: TPaintBox;
    PaintBox7: TPaintBox;
    PaintBox8: TPaintBox;
    PaintBox9: TPaintBox;
    PaintBox10: TPaintBox;
    PaintBox11: TPaintBox;
    PaintBox12: TPaintBox;
    PaintBox13: TPaintBox;
    PaintBox14: TPaintBox;
    PaintBox15: TPaintBox;
    PaintBox16: TPaintBox;
    PaintBox17: TPaintBox;
    PaintBox18: TPaintBox;
    PaintBox19: TPaintBox;
    PaintBox20: TPaintBox;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    procedure DoImageClick(Sender : TObject);
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  TBlinker = record
    Image     : TPaintBox;
    State     : boolean;
    Enabled   : boolean;
    Frequency : integer;
    Tick      : integer;
  end;

var
  BlinkColors : array[boolean] of Integer = (clGreen, clLime);
  Blinkers    : array of TBlinker;

procedure TForm1.FormCreate(Sender: TObject);
var N : integer;
begin
  Randomize;
  SetLength(Blinkers, 20);
  For N := 0 to high(Blinkers) do
      with Blinkers[N] do begin
           state     := false;
           enabled   := true;
           Frequency := (N+1) shl 1;
           Tick      := 0;
           Image     := TPaintBox(FindComponent('PaintBox'+IntToStr(N+1)));
           Image.Tag := N;
           Image.OnClick := DoImageClick;
           Image.Hint    := 'F = '+inttostr(Frequency*Timer1.Interval)+' ms';
      end;
   Timer1.Interval := 10;
end;

procedure TForm1.DoImageClick(Sender : TObject);
begin
  with Blinkers[(sender as TPaintBox).Tag] do begin
       Enabled := not Enabled;
       State   := false;
       Tick    := 0;
       Image.Canvas.Brush.Color := BlinkColors[state];
       Image.Canvas.FillRect(Image.ClientRect);
  end;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var N : integer;
begin
   for N := 0 to High(Blinkers) do
      with Blinkers[N] do
        if Enabled then begin
           inc(Tick);
           if Tick >= Frequency then begin
              State := not State;
              Image.Canvas.Brush.Color := BlinkColors[state];
              Image.Canvas.FillRect(Image.ClientRect);
              Tick  := 0;
           end;
        end;
end;


end.

Commentaire de Jean_Jean le 19/12/2006 13:14:12

Vive la jeunesse!
J’aimerai avoir 20 ans de moins et avoir plus de temps. Changer d’activité et reprendre une spécialisation de 3ème cycle à 50 balais!…Pas évident, mais j’ai l’enthousiasme d’un jeune de 20 ans dans tout ce que je fais. Alors merci à tous!

Je me doutai bien que mon code ferait bondir les pros ! J’ai un tas de code en attente, mais si je ne publie pas, je ne vais pas progresser. Par exemple, j’étais gêné d’utiliser 2 timers pour 1 clignotant, mais mon souci 1er était ailleurs!

Délibérément, je n’ai pas voulu me lancer dans la conception d’un composant car je n’arrive pas à les installer. De plus, avec la migration de D5 à D7, j’ai perdu tout le travail que j’avais fait en composants !…. Borland ne m’a pas renvoyé mon code d’utilisateur de delphi 7 (je leur ai envoyé pourtant le n° de série). Donc, j’attends de normaliser et clarifier mon installation de Delphi, avant de gérer à nouveau : Composants et Bases de données.

Florenth, OK. Je vais peut-être créé un Objet Clignotant plutot qu’un composant ? ça reviendra au même, non ?
Foxi, OK. Je vais tester ta solution. Y a t-il une raison pour que tu choisisses PaintBox au lieu de Image ?
Francky, OK!

Bien à vous !

Commentaire de japee le 19/12/2006 22:41:10 administrateur CS

Salut Jean_Jean,

Ben c'est plutôt sympa, pour un premier envoi.
Il est certain qu'il y a moyen d'optimiser, et je vais y aller moi aussi de ma petite suggestion.
Tiens, comme ça, par exemple, pourquoi ne pas l'écrire ainsi :

procedure TForm1.Eteint_Voyants(aNumThrd : Byte);
  Var i : Byte;
begin
  FicVoy := Rep+'LEDoff.bmp';
  for i := ((aNumThrd - 1) * 7) + 1 to aNumThrd * 7 do
    if Assigned(FindComponent('Image' + IntToStr(i))) then
      TImage(FindComponent('Image' + IntToStr(i))).Picture.LoadFromFile(FicVoy);
end;

On gagne quelques lignes de code, et c'est plus rigolo.
Car la programmation, faut que ça reste rigolo, telle est ma devise.

Florenth a dit :
"Qu'est ce qu'on s'embetterait si tous les codes du site étaient de la pure merveille, prêt-à-l-emploi ou encore z-avez-qu-a-le-déposer-sur-la-fiche ..."

Je suis entièrement d'accord avec lui.
Et, oserai-je ajouter, on s'emmerderait grave...

Bonne continuation à tous.

japee

Commentaire de f0xi le 20/12/2006 00:27:59 administrateur CS

salut les zoulous!

@francky :

mon but premier n'etait pas de dynamisé les compos de la fiche mais de montrer ce qu'on pouvait faire avec 3 procedure et un seul timer (toute les paintbox clignote a leurs propre frequence).

@jeanjean :

pour les compos, y'a que l'embaras du choix, soit on part d'une classe TGraphicControl, soit d'un RadioButton ou encore un TRadioGroup etc....
comme je disais a je sais plus qui y'a pas longtemps, quand on commence a avoir des tonnes de lignes de codes redondante ... il faut se demander si il n'y a pas un chemin plus cours.

Pour ce qui est des pertes de compos, y'a une astuce simple, tu crée un dossier "delphi" sur une partition ou disque different du C:.
avec comme sous repertoire : Delphi\Lib et Delphi\Projects
ce qui permet, en cas de reinstallation de Delphi ou du systeme ou de formatage du disque C: de ne rien perdre.
on peu d'ailleur faire pareil avec le dossier "mes documents", on peu le placer ailleur que sur  C: (click droit sur "Mes documents" > propriétés > onglet cible > deplacer)