JEU DE LEDS

Commentaire de f0xi le 13/12/2006 01:51:07 administrateur CS

mmm

pas trés soigné tout ça ... de plus la technique n'est pas au rendez-vous ... dommage car ce genre de petite enigme peuve trés vite nous prendre du temps a les resoudres...

alors premier point, INDENTE TON CODE!
aligner tout sur la meme ligne ça ne fait pas jolie et sa rend la lecture du code plus difficile peut importe le niveau du développeur qui lit la source.

deuxieme point, pense a créer des fonctions qui permettent d'accelerer les traitements c'est toujours utile. notement des inverseurs ect...


voici une correction, plus legere mais plus technique :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Button2: TButton;
    BitBtn8: TBitBtn;
    Edit1: TEdit;
    // DoEnigmaClick est créée manuellement !
    procedure DoEnigmaClick(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

type
  TEnigma = record
      V : Integer;
      G : TBitBtn;
  end;

var
  Tab    : array[1..7] of TEnigma;
  Cmp    : Integer                  = 0;

  ImgInv : array[0..1] of string    = ('Led1off.bmp','Led1on.bmp');
  FinInv : array[boolean] of string = ('Led2off.bmp','Led2on.bmp');
  ValInv : array[boolean] of byte   = (0,1);

// INVERSEUR
procedure Inverseur(const index : array of integer);
var N : integer;
begin
  for N := 0 to high(index) do
      with Tab[index[N]] do begin
        V := ValInv[V = 0];
        G.Glyph.LoadFromFile(ImgInv[V]);
      end;
end;

// VERIFICATION
function Verification : boolean;
var r,n : integer;
begin
   r := 0;
   for n := 1 to 7 do
       inc(r,Tab[n].V);
   result := r = 7;
end;

// INIT
procedure TForm1.FormCreate(Sender: TObject);
var N : integer;
begin
  Tab[1].G := BitBtn1;
  Tab[2].G := BitBtn2;
  Tab[3].G := BitBtn3;
  Tab[4].G := BitBtn4;
  Tab[5].G := BitBtn5;
  Tab[6].G := BitBtn6;
  Tab[7].G := BitBtn7;

  for N := 1 to 7 do
      with Tab[N] do begin
         V         := 0;
         G.OnClick := DoEnigmaClick;
         G.Tag     := N;
      end;

  Edit1.Text := '0';
end;

// RESET
procedure TForm1.Button2Click(Sender: TObject);
Var i: integer;
begin
  for i := 1 to 7 do begin
      Tab[i].V := 0;
      Tab[i].G.Glyph.LoadFromFile(ImgInv[0]);
  end;
  cmp        := 0;
  Edit1.Text := '0';
  BitBtn8.Glyph.LoadFromFile(FinInv[false]);
end;

// ENIGME RESOLUE
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
  if Verification then begin
     ShowMessage('Enigme resolue !!!');
  end;
end;

// CONBINAISON
procedure TForm1.DoEnigmaClick(Sender: TObject);
begin
  inc(cmp);
  Edit1.Text := inttostr(cmp);
  case (Sender as TBitBtn).Tag of
    1 : Inverseur([1,4,5]);
    2 : Inverseur([2,5,6]);
    3 : Inverseur([3,6,7]);
    4 : Inverseur([4,7,1]);
    5 : Inverseur([5,1,2]);
    6 : Inverseur([6,2,3]);
    7 : Inverseur([7,3,4]);
  end;
  BitBtn8.Glyph.LoadFromFile(FinInv[Verification]);
end;

end.


voila... bon code.

Commentaire de hello007 le 14/12/2006 23:57:54

merci pour la remarque. je vais essayer de ne pas mettre ce genre d'erreurs dans mes nouvelles sources.

Commentaire de JulioDelphi le 15/12/2006 21:51:02 administrateur CS

j'aimerais un titre un peu plus précis que "jeu" ;)
merci