Discussion :

[HeZiX]

Bonjour, je suis un peu dans le meme cas que thoc sauf que moi c'est surement un pb de débutant
J'ai voulu faire un tit programme sur le jeux "nombre secret" mais le premier nombre secret est toujours 0 alors que j'ai initialiser avec Trunc(Random(101);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure Tprincipal.FormCreate(Sender: TObject);
begin
nbsecret:=Trunc(Random(101));
end;
 
procedure Tprincipal.checkClick(Sender: TObject);
 
begin
nb:=StrToInt(nbstr.Text);
if nb > nbsecret then showmessage('Le nombre secret est plus petit que '+nbstr.Text)
else if nb < nbsecret then showmessage('Le nombre secret est plus grand que '+nbstr.Text)
else
  begin
    showmessage('Gagné le nombre secret est '+nbstr.Text);
    nbsecret:=Trunc(Random(101));
    showmessage('Nouveau Nombre secret choisi.');
  end
end;

Voilà si vous pouvez m'aider à résoudre ce petit probleme
Merci d'avance.

[Laurent Dardenne]

Salut,
bienvenue sur les forums de Développez.

Merci de créer une nouvelle question afin de faciliter le suivi.
Aide nous à t'aider

Tu dois auparavant initialiser le générateur de nombre aléatoire par un appel à Randomize je crois.

[Fxg]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Random (limit : integer) : integer;

retourne un integer donc je pense qu'il faut supprimer le Trunc.

Randomize a utiliser avant l'appel à la fonction permet en effet de réinitialiser le générateur de nombre aléatoire et donc d'éviter l'éventuelle prévisibilité du nombre suivant....
[/code]

[HeZiX]

Merci,
il suffisait d'ajouter la ligne "randomize;"

je vais pouvoir continuer mon apprentissage

Bonne journée.