Jeu du nombre mystérieux

Soyez le premier à donner votre avis sur cette source.

Vue 9 606 fois - Téléchargée 338 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

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 ??
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
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 ?
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..
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...
Afficher les 6 commentaires

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.