DÉMINEUR UTILISANT UNE TDRAWGRID ET AVEC LEQUEL ON PEUT TRICHER

Commentaire de cirec le 08/12/2007 21:39:16 administrateur CS

Voir mines et indication sous mine n'a aucun effet chez moi ?

Commentaire de cirec le 08/12/2007 22:05:35 administrateur CS

J'ai tout essayé et rien à faire
je n'obtiens pas le résultat escompté

et la seule modification que j'ai apporté au code pour qu'il compile c'est :

Var
  IsTic: Boolean  = True;
{ Gestion du temps écoulé, affichage et son }
procedure TMainForm.TimerTimer(Sender: TObject);
{Const
  IsTic: Boolean  = True;}
Begin
  ...

Commentaire de cirec le 08/12/2007 22:18:06 administrateur CS

Bon en cherchant un peut ...
MatrixFlag est toujours à zéro chez moi et du coup ne peut donc pas afficher les images

Pourquoi .... mystère et boule de gomme ;-)

Commentaire de cirec le 08/12/2007 22:51:54 administrateur CS

Bon décidément je suis maudit ;)

j'ai compilé le code sous D7 et Turbo Delphi et rien à faire ...
les deux me donne le même résultat !!!

Si tu le veux bien envoie moi l'exe (sur ma boite Hotmail ... tu sais ou la trouver ;-)  ) afin de pouvoir comparer

Commentaire de japee le 08/12/2007 23:16:22 administrateur CS

Bah, c'est pas grave, le son du tic tac n'est pas terrible de toute manière, et le tic vaut le tac (et toc!) ^^
Je verrai ça en profondeur plus tard, là je gave grave sur ce code, le débogage m'a vraiment pris la tête.
C'est pas sympa pour toi, mais j'espère que tu es le seul à avoir la poisse avec mon code, car j'aurais aimé avoir ton avis, même s'il doit être sévère (mais juste, hein ?) ;-)

Commentaire de japee le 08/12/2007 23:38:48 administrateur CS

Merci John Dogget, j'étais prêt à sauter par la fenêtre...

Commentaire de cantador le 09/12/2007 00:17:58

çà compile sous D7.
j'aime bcp l'explosion de la mine..
@+

Commentaire de japee le 09/12/2007 00:38:47 administrateur CS

Le démineur, on s'y éclate, Cari ! ^^

Justement, en trichant, on voit mieux la logique, il me semble, et ça vaut toutes les explications et règles du jeu du monde, toujours un peu ch...es.

Je vais rajouter là-haut quelques explications concernant les options des checkboxes, car ce n'est forcément évident d'en intégrer la logique.

Bien content que ça compile chez toi aussi, Cantador.

Sinon, vous, ça boume ?

Commentaire de cirec le 09/12/2007 13:42:46 administrateur CS

'a y est ... j'ai enfin réussit à faire fonctionner le jeu :-p

C'est le menu "Tricher" qui m'a "enduit d'erreur" (© Japee)  ^^
Et tout comme Caribensila je n'ai jamais joué au démineur ...

enfin grâce à ton explication "PRÉCISIONS CONCERNANT LES CASES A COCHER : " tout fonctionne correctement.

Pour le code :
On pourrait certainement le accourcir mais il y perdrait en lisibilité

Par contre dans DGUtils (même si la fonction n'est plus utilisée c'est juste pour faire avancer le schmilblik)
à la place de créer un bitmap pour récupérer l'image et ensuite la dessiner
pourquoi ne pas avoir utiliser directement la méthode Draw de l'ImageList ?

à mon avis (je n'ai pas testé) ça sera aussi rapide que la méthode actuellement utilisée voir même moins lourd que l'utilisation de plusieurs TImage .... non ?

Dans tous les cas c'est du chouette boulot ... Bravo

et désolé de t'avoir fait tant de frayeurs ^^

Commentaire de khawarizm le 09/12/2007 17:50:44

Bonjour ; un des rares sources intéressant et surtout claire et bien commenté que j'ai pu lire et suivre  (à part, bien sur,  quelques commendes que je connaissais pas et que j'ai chercher dans l'aide de Delphi et aussi l'unite Matrix et j'essai de me concentrer pour l'assimiler ) tu a tout a fait raison de dire que c'est un didacticiel , je l'est bien vu de cette façon  et comme  je ne me permet pas de noter le source vu ton niveau de programmation (par rapport au mien)  , je me contente de te REMERCIER .

Question : l'utilisation d'un thread dans ce code serait elle une erreur ?

Commentaire de cirec le 10/12/2007 13:04:31 administrateur CS

Regarde ce bout de code :

C'est une alternative pour le son afin d'éviter de nombreux accès au disque inutiles ;-)

Var
  PTic, PTac : Pointer;
procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(PTic, 0, SND_SYNC Or SND_MEMORY);
  PlaySound(PTac, 0, SND_SYNC Or SND_MEMORY);
end;

procedure TForm1.FormCreate(Sender: TObject);
Var
  Data : PByte;
begin
  //ReportMemoryLeaksOnShutDown := True;
  With TMemoryStream.Create do Try
    LoadFromFile('Tic.Wav');
    GetMem(Data, Size);
    ReadBuffer(Data^, Size);
    PTic := Data;
    FreeMem(Data);
  Finally
    Free;
  End;

  With TMemoryStream.Create do Try
    LoadFromFile('Tac.Wav');
    GetMem(Data, Size);
    ReadBuffer(Data^, Size);
    PTac := Data;
    FreeMem(Data);
  Finally
    Free;
  End;
end;

et il n'y a pas de fuites de mémoire ^^

Commentaire de John Dogget le 10/12/2007 14:58:04

Moi quand je veux verifier une fuite de mémoire, je mets la procedure/fonction dans un timer très court, et je lance le timer.
Ensuite direction le gestionnaire de tâche, si il y a une fuite on voit très rapidement la charge dediée augmenter sans raison.

Bien sûre ça ne dit pas précisement où est le problème mais ça peut permettre de gagner du temps si on utilise beaucoup de procedures "douteuses".

Si ca peut aider ...

Commentaire de cirec le 10/12/2007 15:29:33 administrateur CS

@ Japee :

je confirme tes craintes ...

avec ton code tu as des fuites de mémoire ;-(

ce qui est normal en soit.

Je m'explique, tu alloues deux fois de la mémoire pour "Data" et tu la libères qu'une fois. Donc ton premier appel à GetMem est perdu. (#^.^#)

Commentaire de japee le 10/12/2007 16:51:10 administrateur CS

... et haut parleur branchés aussi, j'avais oublié de préciser dans les conditions du test...

Décidément, c'est pas que je sois têtu (enfin un peu quand même...), mais chez moi, il n'y a que ce code qui marche, et j'ai trouvé comment tout libérer/désallouer proprement :

uses MMSystem;

var
  MemoryStream: TMemoryStream;
  Data1, Data2: PByte;
  PTic, PTac : Pointer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(PTic, 0, SND_SYNC Or SND_MEMORY);
  PlaySound(PTac, 0, SND_SYNC Or SND_MEMORY);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MemoryStream := TMemoryStream.Create;
  with MemoryStream do
  begin
    LoadFromFile('Tic.Wav');
    GetMem(Data1, Size);
    ReadBuffer(Data1^, Size);
    PTic := Data1;
    LoadFromFile('Tac.Wav');
    GetMem(Data2, Size);
    Seek(0, soFromBeginning);
    ReadBuffer(Data2^, Size);
    PTac := Data2;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeMem(Data2);
  FreeMem(Data1);
  MemoryStream.Free;
end;

Si le code de Cirec fonctionne sur un autre PC que le sien (qui est certainement ensorcelé), pourrait-il nous le faire savoir ?
Ca fairai avancer le aaachimilimili...achimilimilimilblic.

Commentaire de cirec le 10/12/2007 17:18:38 administrateur CS

je vous écrit du PC de mon fils pour affirmer
que l'application fonctionne également très bien sur cette machine !!!

C'est bien le compilateur !!!

et j'ajoute aussi ... que si j'enlève les deux fichiers vaw
ben ça fonctionne pas ... ce n'est donc pas dans l'application sous quelques formes que ce soit.

voilà ... désolé lol

Commentaire de Kenavo le 10/12/2007 20:45:30

Mon bon Japee,
Pour les constantes typées (premiers posts) c'est une option du compilateur sous D7 ("constantes typées affectables" à cocher ou {$J+})
Pour la taille max en mode personnalisé, j'ai poussé à 70 x 56 (écran 1280 x 1024) ... et ça tourne !
Pour le nombre de mines, en mode personalisé tu peux limiter à col x row - 1. J'ai mis  -1 parcequ'il est quand même plus intéressanat de jouer à la roulette russe en ayant au moins un trou dans un barillet ayant 3920 balles (ça laisse une chance ! Sinon autant y aller au kinder-suicide)
Du coup l'affichage du nombre de mines est trop petit (que 3 caractères)....

Par contre là, sans le truc du click simultané droite-gauche, c'est galère !
(pour mémoire, ce click simultané sur une case découverte portant le nombre de mines adjacentes peut produire deux effets :
- si le nombre de "drapeaux" est inférieur au nombre de mines indiquées, les cases adjacentes non découvertes changent d'aspect (mise à plat sans effet 3D).
- si le le nombre de "drapeaux" est égal au nombre de mines indiquées, toutes les autres cases adjacentes sont cliquées.
(si le le nombre de "drapeaux" est supérieur au nombre de mines indiquées, rien ne se passe)
Et pour finir je te conseille d'apposer une mention du type :
"Attention, tout abus de ce jeu peut causer des névralgies cervicobrachiales !"

Commentaire de japee le 10/12/2007 21:46:51 administrateur CS

Salut, Kenavo*.

Bien compris pour le double clic, en théorie ça ne devrait pas être trop difficile à mettre en oeuvre (si j'ose dire).

Oui, si on tombe sur une mine, les cases contenant les autres mines doivent être dispersées façon puzzle, sinon c'est vrai que c'est frustrant. J'avais pas fait attention, mais il faut avouer que j'ai beaucoup triché pour le débogage, et du coup ça m'a échappé.

Je n'avais pas limité le nombre de mines pour que les curieux s'en donnent à coeur joie, dans la mesure où ça ne plante pas le jeu. Je voulais faire de même pour les dimensions de la grille, mais en-dessous d'une certaine taille c'est pas beau, et au-delà, ça risque de déborder de l'écran. C'est une sorte de démineur expérimental, quoi. Mais si je fait une version "normale", je tiendrai compte de tes remarques. Je note aussi que l'affichage des mines est un peu exigü.

"Attention, tout abus de ce jeu peut causer des névralgies cervicobrachiales !". Et pourquoi pas des hémorroïdes, tant qu'on y est ?

Ce démineur, il va finir par me causer quelques nuits blanches, et des "nervous breakdown" comme on dit de nos jours.

Merci pour tes remarques utiles et constructives, je les mettrai en pratique dans une future mise à jour, mais pas tout de suite. Je suis un peu fatigué et je me demande si je ne vais pas me retirer, je sais pas moi, à Montauban par exemple, pour y vendre... bof pourquoi pas des tracteurs ou des bâtonneuse moisseuses.

A +.

* je suis parfaitement bilingue.

Commentaire de japee le 10/12/2007 23:53:54 administrateur CS

C'est curieux chez les marins ce besoin de faire des phrases...
N'aurais-tu pas fait ton service national dans la marine éponyme ?  ;-)

Commentaire de cirec le 11/12/2007 14:04:46 administrateur CS

Pourquoi faire simple quand on peut faire compliqué ?

Voici une méthode très simple propre et rapide ;-)

Le fichier ressource ressemble à ça :
Tic                 WAV           "Tic.wav"
Tac                 WAV           "Tac.wav"


{$R Sound.res}
Uses MMSystem;
var
  PTic, PTac : Pointer;

procedure TForm2.FormCreate(Sender: TObject);
Var
  HRes       : THandle;
begin
  {Charge la ressource en mémoire}
  HRes := LoadResource(hInstance, FindResource(hInstance, 'Tic', 'WAV'));
  {Renvoie un pointeur sur la ressource
   Il n'est pas utile de faire appel UnLockResource
   Les libérations se font automatiquement par Windows à la fin de l'application
   http://msdn2.microsoft.com/en-us/library/ms648047.aspx}
  PTic := LockResource(HRes);

  HRes := LoadResource(hInstance, FindResource(hInstance, 'Tac', 'WAV'));
  PTac := LockResource(HRes);
end;

Penses tu que ce soit assez rapide ;-)
En l'appliquant sur tous les sons l'application peut ainsi devenir autonome,
pas de fichiers annexe.

@Caribensila :
"Mais pourquoi n'utilisez-vous pas "getHeapStatus.TotalAllocated"
pour détecter les fuites de mémoire?"

Turbo Delphi le fait très bien juste en mettant un boolean à vrai
et qu'il me dit dans la majorité des cas quel objet en est responsable ;)

J'avais déjà fait des testes avec "getHeapStatus.TotalAllocated" sous D4
mais il ne détectait pas toujours toutes les fuites, mais je m'y suis peut être mal pris ?

L'autre possibilité est d'utiliser MemCheck  " http://v.mahon.free.fr/pro/freeware/memcheck/ "