Ptit jeu ou il faut deviner le chifre

Télécharger le projet
Commenter

Description

hello

c ptit jeu mega connu vu et revu, utile pour voir comment fonctionne un ramdomize
ya meme un mode triche (lol)

Source / Exemple : 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, XPMan;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Partie1: TMenuItem;
    Nouvelle1: TMenuItem;
    Quitter1: TMenuItem;
    About1: TMenuItem;
    Tricher1: TMenuItem;
    Edit1: TEdit;
    Difficult1: TMenuItem;
    Facile1: TMenuItem;
    Moyenne1: TMenuItem;
    Difficile1: TMenuItem;
    Label1: TLabel;
    StatusBar1: TStatusBar;
    XPManifest1: TXPManifest;
    Label2: TLabel;
    procedure About1Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Tricher1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Nouvelle1Click(Sender: TObject);
    procedure Moyenne1Click(Sender: TObject);
    procedure Difficile1Click(Sender: TObject);
    procedure Facile1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NbEssais, TheRandom, NbSecret: integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.About1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Tricher1Click(Sender: TObject);
begin
MessageDlg('Le chiffre est '+inttostr(NbSecret)+' mais chuuuut !',mtInformation,[mbRetry],0);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #13, Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #00;

if Key=#13 then
begin
Key:= #00;
inc(NbEssais);
if strtoint(Edit1.Text)<NbSecret then StatusBar1.SimpleText:= edit1.text+' : Trop petit !! ('+inttostr(NbEssais)+' essais)';
if strtoint(Edit1.Text)>NbSecret then StatusBar1.SimpleText:= edit1.Text+' : Trop grand !! ('+inttostr(NbEssais)+' essais)';
if strtoint(Edit1.Text)=NbSecret then
begin
 StatusBar1.SimpleText:= inttostr(NbSecret)+' : Bravo ! Gagné !!';
 Edit1.Enabled := false;
 Label1.Enabled := false;
 Difficult1.enabled := true;
 Tricher1.Enabled := false;
 Label2.Caption := inttostr(NbEssais)+' essais';
end;
edit1.Clear;
end;
end;

procedure TForm1.Nouvelle1Click(Sender: TObject);
begin
Randomize;
NbEssais := 0;
NbSecret := Random(TheRandom);
Edit1.Enabled := true;
Label1.Enabled := true;
Difficult1.enabled := false;
Tricher1.Enabled := true;
StatusBar1.SimpleText := 'Nouvelle Partie lancée :)';
Label2.Caption := 'Le chiffre est entre 0 et '+inttostr(TheRandom-1);
edit1.Clear;
end;

procedure TForm1.Moyenne1Click(Sender: TObject);
begin
TheRandom := 101;
end;

procedure TForm1.Difficile1Click(Sender: TObject);
begin
TheRandom := 1001;
end;

procedure TForm1.Facile1Click(Sender: TObject);
begin
TheRandom := 11;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TheRandom := 101;
end;

end.

Conclusion :


rien de plus a dire :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (JulioDelphi)