Jeu: trouver le nombre inconnu de 0-100

Soyez le premier à donner votre avis sur cette source.

Vue 6 302 fois - Téléchargée 266 fois

Description

Voici un piti jeu toujours fait pour un exemple...
Y a 2 bouton...
Le premier pour tester se que vous avez entrer dans l'edit1 et le deuxieme pour re initialiser tous donc rejouer

Source / Exemple :


var
  Form1: TForm1;
  nbr,ess:integer;//variable du nomre et du nombre d'essai
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
randomize;
nbr:=random(100);// generation du nombre aleatoire
ess:=10; // nombre d'essai = 10
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if ess <= 0 // si le nombre d'essai retant est inférieur ou egale à 0
then
    label1.caption:='Vous avez perdu !!! le chiffre était :'+IntToStr(nbr) //sa dit que vous avez perdu en affichant le nombre
else
if StrToInt(edit1.text) < nbr // si se que vous avez entrer est inferieur au nombre
then
    begin
         ess:=ess-1; // un essai en moins
         label1.caption:='Le chiffre est plus grand que '+ edit1.text+', il vous reste '+IntToStr(ess)+' essai.';
    end
else if
       StrToInt(edit1.text) > nbr // si se que vous avez entrer est superieur au nombre
     then
         begin
              ess:=ess-1; // un essai en moins
              label1.caption:='Le chiffre est plus petit que '+ edit1.text+', il vous reste '+IntToStr(ess)+' essai.';
         end
     else
         label1.caption:='Bravo !!! '+ edit1.text+' était le chiffre'+', il vous restait '+IntToStr(ess)+' essai.'; //si trouve le bon nombre
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
nbr:=random(100);
ess:=10;
end;

end.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

croustibat82
Messages postés
79
Date d'inscription
jeudi 6 novembre 2003
Statut
Membre
Dernière intervention
29 juin 2004

je pense que pour le randomize, tu aurais pu mettre (99+1) parce que la je pense que le chiffre 0 pourra apparaitre, enfin si tu veux qu'il y soit, tu le laisses comme sa
et apres c pas trop mal

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.