JEU MASTERMIND

Commentaire de Kenavo le 26/01/2005 11:36:31

"Le code est un peu lourd."

Non, sans blagues !

18 fois la procédure  TForm1.Couleur_MouseDown !!!
Il eut été plus élégant de n'en écrire qu'une qui s'occupât des 18 Tshapes concernés :

Procedure TForm1.CouleursMouseDown( Sender : TObject; Button : TMouseButton;
  Shift : TShiftState; X, Y : Integer );
Begin
  CouleurChoisi := (Sender as TShape).Brush.Color;
  cour.Brush.Color := CouleurChoisi ;
End;

...et pareil pour Choix_MouseDown

Procedure TForm1.ChoixMouseDown( Sender : TObject; Button : TMouseButton;
  Shift : TShiftState; X, Y : Integer );
Begin
  (Sender as TShape).Brush.Color := CouleurChoisi;
End;

Et vu le paquet de TShape, un creation dynamique de deux tableaux de Tshape à deux dimensions (un pour la zone l'affichage [27x5] et un pous la zone de résultat [27x3]) aurait encore allégé le code. Juste un compteur de coups réalisés pour pointer la bonne ligne, une fonction pour afficher le coup, une fonction pour afficher le résultat.

Allez, au boulot !

Ken@vo

Commentaire de lapucedu88 le 26/01/2005 14:36:43

Ok, je savais qu'il était lourd, néanmoins je suis la pour apprendre et je demande que ça.
Dis moi Kenavo, je vois pas trop comment faire pour réaliser des tableaux de TShape.
Et si je veux utiliser (Senter as TShape).Brush.color:=clwhite dans l'événement OnClick de nouvelle partie sa met une erreur pourquoi

Commentaire de Kenavo le 26/01/2005 15:21:30

Salut la puce,

Déclarer un tableau de TShape n'est pas un gros problème, quoiqu'il y ait quelques règles à respecter.
Dans ton cas ça peut s'écrire comme suit :

dans les propriétés de la form (privées ou publiques selon l'usage extérieur qui peut en être fait) tu déclares :

  TabCoups : Array[0..26,0..4] of TShape;

... et dans FormCreate :

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j : Integer;
begin
for i:= 0 to 26 do
  for j:= 0 to 4 do
  begin
    TabCoups[i,j]:=TShape.Create(self);
    With TabCoups[i,j] do
    begin
      Parent := Self; //faut pas oublier
      Width := 25;
      Height := 25;
      Left := 8 + j*24;
      Top :=  640 - i*24;
      Shape := stCircle;
      Brush.Color := clWhite;
    end;
  end;
end;

... et après, pour changer la couleur : TabCoups[i,j].Brush.Color := NewColor;

----------------------------
Attention à Sender!

Sender qui est passé par paramètre à l'évènement identifie l'émetteur de l'évènement.
Par exemple, quand on clique sur un bouton, dans la procédure déclenchée par l'évènement, sender (TObjet) est le bouton (TButton).
Pour accéder aux propriétés propres au bouton (comme Caption) on dit que l'objet sur lequel on a cliqué est un bouton (Sender as TButton) et on regarde ou modifie une propriété.
Mais, si c'est pas un bouton, il y a problème ! Et dans ton cas, le "sender" n'est pas un TShape mais un TButton ("nouvelle partie"): il y a erreur ! On peut vérifier le type en faisant : If Sender is TShape (ou TButton).

Commentaire de lapucedu88 le 27/01/2005 09:09:34

Sa y est j'ai essayer de vraiment optimiser mon code (peut être encore deux ou trois retouches),
J'ai créé des procedure dans certains cas et, kenavo, tes tableaux marche super bien, en plus il me simplifie mon code.
Merci à vous tous et si vous avez d'autre remarques à faire, je les attends avec impatiences
Bisous à vous tous.

Commentaire de lapucedu88 le 27/01/2005 12:06:00

Merci JulioDelphi. Il est vrai que je pense toujours à utiliser des procédures. De plus les tableaux que Kenavo m'a fait utiliser permette d'allèger le code.
Je vous remercie, car depuis que j'utilise ce site j'apprend beaucoup plus vite et cet apprentissage je le dois à vous tous.
Bisous

Commentaire de lapucedu88 le 27/01/2005 15:45:13

Merci kenavo, mais je suis la pour ça, écouter les remarques que l'on me fait afin d'amèliorer ma façon de programmer.
D'ailleur je viens de laisser un message sur le forum afin de l'amèliorer encore un peu.