Jeu du nombre mystérieux

Soyez le premier à donner votre avis sur cette source.

Vue 9 400 fois - Téléchargée 284 fois

Description

Jeu du nombre mysterieux (Juillet 2004)
----------------------------------------------------

Si vous etez comme moi et que vous en avez marre du pinball sous xp, créer votre
propre p'tit jeu...
Voic le jeu du nombre mysterieux....classique qui consiste à deviner, par essais successifs,
un nombre mystérieux.
Après chaque tentative du joueur, l?ordinateur doit répondre si le nombre à deviner est plus grand,
plus petit ou égal au nombre proposé par le joueur.
Le nombre à deviner sera un nombre entier aléatoire fabriqué par l?ordinateur.
On peut imaginer que le joueur a droit à 10 essais (par exemple).

Le jeu s?arrête :
--------------------

soit lorsque le joueur a deviné le nombre mystérieux,
soit lorsque le nombre maximum d?essais autorisés est dépassé,
soit lorsque le joueur clique sur le bouton abandon.

Pour faire tourner le programme :
-------------------------------------------

Ouvrez le fichier .dpr et excecutez le

J'ai mis pas mal de commentaires...

Voila bonne vacances a tous...

Source / Exemple :


procedure TForm1.BtOkClick(Sender: TObject);
//DECALRATION VARIABLE POUR  ERREUR
var erreur : integer;

begin
 Val(edEssai.text,Essai,erreur);
   if erreur>0
   then ShowMessage(edEssai.text+' n''est pas un nombre entier correct')
   else
   begin
      inc(NumeroEssai);
      if Essai<NombreMysterieux then lblReponse.Caption:='Trop petit';
      if Essai>NombreMysterieux then lblReponse.Caption:='Trop grand';
      if (NumeroEssai>10)and(Essai<>NombreMysterieux)then
      begin
         lblReponse.Caption:=lblReponse.Caption+' Trop tard ! La bonne réponse était :'+
            IntToStr(NombreMysterieux);
         btAbandon.Enabled:=false;
         btDepart.Enabled:=true;
         btOK.Enabled:=false;
      end;
      lblNumeroEssai.Caption:='Essai n° '+IntToStr(NumeroEssai);
      if Essai=NombreMysterieux then
      begin
         lblReponse.Caption:='BRAVO !';
         btAbandon.Enabled:=false;
         btDepart.Enabled:=true;
         btOK.Enabled:=false;
      end;
   end;

end;

Conclusion :


Enjoy

Christophe

http://membres.lycos.fr/annmysql/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

matt25800
Messages postés
1
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
19 mai 2009
-
bonjour j'ai 12 ans et je n'ai rien compris ou et le tuto ??
cs_jimmy69
Messages postés
787
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
27 novembre 2008
-
salut salut,

Ce prog a ete fait sous delphi 6 ...

bonne journée

ciao

christophe
z251970
Messages postés
4
Date d'inscription
samedi 23 octobre 2004
Statut
Membre
Dernière intervention
4 janvier 2009
-
pour quoi tous les jeux que je veux verifer ne marche pas j'ai delphi 5 l'ors je veux exécuter je trouve pas l'unite variants ?
slachz
Messages postés
110
Date d'inscription
lundi 21 avril 2003
Statut
Membre
Dernière intervention
1 janvier 2006
-
lol je suis plutot un debutant moi aussi alors c'etait generale ^^ (mais il peut toujours servir)

quand a ton autre source je ne m'y connait pas malheureusement en SQL T_T lol , alors j'aurais du mal à juger..
slachz
Messages postés
110
Date d'inscription
lundi 21 avril 2003
Statut
Membre
Dernière intervention
1 janvier 2006
-
oui trés simple !
je fais plein de ptit jeu sur le hasard mais ça n'apprend rien alors...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.