Téléchargé 23 fois
Vote des utilisateurs
1 
0
Détails
Licence : Libre
Mise en ligne le 28 janvier 2024
Plate-forme :
Windows
Langue : Français
Référencé dans
Navigation
Jeu de dés 421
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.
Pensez à mettre le son.
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.
Pensez à mettre le son.
Bonjour,
Que de code à nettoyer !
il y a plus facile à moins que je ne me trompe. Je voulais faire une TList<integer> triée mais avec Lazarus je seche
mais bon je préfère vous mettre le programme élagué quoique pas encore totalement
Que de code à nettoyer !
mais il reste l'énumération fastidieuse des différentes combinaisons.
| Code : | Sélectionner tout |
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
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 ?
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 ?Bonjour,
Impossible à télécharger, dommage cela m'aurait rappelé mes jeunes années "bar"
Impossible à télécharger, dommage cela m'aurait rappelé mes jeunes années "bar"
C'est OK, c'est téléchargeable. 
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.
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.
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 |
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; |
Pourquoi ne pas utiliser plutôt un ensemble ? Le test tiendrait en une seule ligne.
Envoyé par Chrispi
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.
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.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 |
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; |
Envoyé par Chrispi
Tu as raison. C'est fait.
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 |
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. |
J'ai apporté quelques modifications...
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 ?
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 ?
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.