Discussion :

[Chrispi]

Bonjour,

Je vous propose un nouvel élément à utiliser : Jeu de dés 421

Petite application de jeu de 421 pour Windows développée avec Lazarus.



Le tirage des dés se fait de façon pseudo-aléatoire en utilisant la fonction Random.
L'image de la face des dés est montrée selon le tirage.
Le joueur bénéficie de 3 lancers maximum pour réaliser 421. Après chaque lancer, il peut sélectionner les dés qu'il désire conserver avant le prochain lancer.
Après les 3 lancers, le joueur peut rejouer en cliquant sur le bouton "Rejouer" qui apparaît à ce moment là alors que le bouton "Lancer" disparait.

Pour utiliser en l'état le jeu, déposer le dossier de l'application sous (C.

Qu'en pensez-vous ?

[SergioMaster]

Bonjour,

Impossible à télécharger, dommage cela m'aurait rappelé mes jeunes années "bar"

[Chrispi]

J'ai apporté quelques modifications...

[Roland Chastain]

Le téléchargement ne fonctionne pas chez moi.

J'ai l'impression, en lisant la description du téléchargement, qu'il s'agit d'un exécutable Windows, sans le code source. Est-ce bien le cas ?

[Chrispi]

Bonjour,

Je ne sais pas pourquoi le téléchargement ne fonctionne pas.

L'application fonctionne sous Windows et il y a aussi le code source. C'est le complet...

[SergioMaster]

Bonjour

L'application fonctionne sous Windows, c'est le complet...

ceci

Je ne sais pas pourquoi le téléchargement ne fonctionne pas.

explique peut-être le cela

Si tu ôtais l'exe ?

[Chrispi]

Si tu ôtais l'exe ?

Oui, mais je vais peut-être essayer de le republier avant de faire ça.

[Chrispi]

C'est republié. En espérant que ça va fonctionner...

[Chrispi]

C'est OK, c'est téléchargeable.

[Chrispi]

Quelques modifications pour essayer d'améliorer le code…

[Roland Chastain]

C'est OK, c'est téléchargeable.

Je confirme. Mais le fichier n'a pas d'extension (dans son nom). C'est fait exprès ? Enfin, j'ai pu l'ouvrir quand même ; apparemment c'est un fichier *.rar.

J'ai pu compiler le programme sous Linux, après avoir enlevé la déclaration inutile de l'unité ComObj.

[Roland Chastain]

Il doit y avoir une erreur quelque part parce que je gagne à chaque lancer, ce qui est suspect.

D'autant que les dés que je vois sur l'écran ne sont pas gagnants.

Autre remarque. Le code suivant peut certes fonctionner mais n'est pas optimal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  case r of
    '013': Result := True;
    '031': Result := True;
    '103': Result := True;
    '130': Result := True;
    '301': Result := True;
    '310': Result := True;
  end;

Heureusement qu'il n'y a pas cinq ou six dés !

Pourquoi ne pas utiliser plutôt un ensemble ? Le test tiendrait en une seule ligne.

[Chrispi]

Bonjour Roland,

Je confirme. Mais le fichier n'a pas d'extension (dans son nom). C'est fait exprès ? Enfin, j'ai pu l'ouvrir quand même ; apparemment c'est un fichier *.rar.

Apparemment un fichier .rar ça gène un peu. J'ai changé pour un fichier .zip.

après avoir enlevé la déclaration inutile de l'unité ComObj.

Je l'ai enlevée également. Le compilateur ne m'informait pas de cette unité en trop. C'était sûrement un reliquat de mes essais précédents.

Il doit y avoir une erreur quelque part parce que je gagne à chaque lancer, ce qui est suspect.
D'autant que les dés que je vois sur l'écran ne sont pas gagnants.

Je suis étonné. Je suis sous Windows 10 et l'application fonctionne normalement sans aucun souci. Même si parfois je gagne deux fois à la suite. Je pense que l'erreur que tu rencontres est liée au fait que la variable "gagne" reste peut-être inscrite une fois que tu as gagné, et provoque ainsi l'erreur quand tu veux rejouer. Donc pour essayer de contrer cela, j'ai ajouté dans la procédure "Rejouer":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gagne:=''; //Réinitialisation combinaison

Pourquoi ne pas utiliser plutôt un ensemble ? Le test tiendrait en une seule ligne.

Tu as raison. C'est fait.

Si tu veux bien réessayer et m'en dire plus. Merci.

[Roland Chastain]

Je suis étonné. Je suis sous Windows 10 et l'application fonctionne normalement sans aucun souci. Même si parfois je gagne deux fois à la suite. Je pense que l'erreur que tu rencontres est liée au fait que la variable "gagne" reste peut-être inscrite une fois que tu as gagné, et provoque ainsi l'erreur quand tu veux rejouer.

Non, ce n'est pas corrigé. Je gagne toujours à tous les coups...

Le problème est qu'aucune valeur n'est assignée au résultat de la fonction quand la combinaison n'est pas gagnante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function Tformappli.Combitest(r: string): boolean;
begin
  r := x + y + z;
  case r of
    '013', '031', '103', '130', '301', '310': result := True;
  end;
end;

[Roland Chastain]

Tu as raison. C'est fait.

Oui, c'est déjà mieux comme présentation, mais il reste l'énumération fastidieuse des différentes combinaisons. Encore une fois, heureusement qu'il n'y a que trois dés !

En fait je pensais au type ensemble (set of), mais je me suis rendu compte que ça n'était pas possible.

Du coup j'aurais plutôt fait quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function Gagnant(const s: string): boolean;
begin
  result := (Length(s) = 3)
    and (Pos('0', s) > 0)
    and (Pos('1', s) > 0)
    and (Pos('3', s) > 0);
end;
 
begin
  WriteLn(Gagnant('013'));
  WriteLn(Gagnant('310'));
end.

[SergioMaster]

Bonjour,

Que de code à nettoyer !

mais il reste l'énumération fastidieuse des différentes combinaisons.

il y a plus facile à moins que je ne me trompe. Je voulais faire une TList<integer> triée mais avec Lazarus je seche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
// au revoir les xyz et concaténations de chaines vraiment moches
function TFormAppli.Combitest: boolean;
begin
  result:=(a+b+c+3=7) AND (a<>b) AND (a<>c) AND (b<>c);
end;

mais bon je préfère vous mettre le programme élagué quoique pas encore totalement

[Roland Chastain]

Ou alors comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  a, b, c: byte;
  gagnant: boolean;
 
begin
  Randomize;
 
  a := 1 shl Random(6);
  b := 1 shl Random(6);
  c := 1 shl Random(6);
 
  gagnant := a or b or c = %1011;
end.

[SergioMaster]

Bien mieux, je n'avais pas pensé au binaire