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);
Voilà si vous pouvez m'aider à résoudre ce petit probleme
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;
Merci d'avance.
Partager