LANCÉ DE DÉS

Signaler
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
-
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/27770-lance-de-des

Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
ps : pour verif ke la personne n'as pas entré de lettre, je ruse avec un StrToIntDef(), je te laisse regarder la doc
et pour ne pas obtenir plus de 12 avec 2 dés, il suffit de ne pas ajouter le nb de dés utilisés... je ne vois pas pourquoi tu les ajoute !

dsl de te reveiller si tu dormais :D
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
0/10, si j'étais admin, je deleterais direct. Quand tu n'a rien a faire, apprends a coder autre chose que ça.

"CodeS-SourceS n'a pas pour but d'heberger des embryons de codes"®DP

Je parviens meme a améliorer ton code deja pauvre ... :

1) tu ne vérifies meme pas ke l'utilisateur a entré un chiffre ds le TEdit.
2) le Random de delphi se focalise sur la date, a chaque démarrage de l'appli, j'ai toujours les meme chiffres dans le meme ordre ... les dés sont pipés ? tu dois utiliser "Randomize;"
3) qd je lance 2 dés, j'arrive a obtenir 13 en resultat ... avec 2 dés à 6 faces, le maxi me semble être de 12...

procedure TForm1.LancerClick(Sender: TObject);
var
begin
 Randomize;
 result.Caption:= IntToStr(Random(6*StrToIntDef(NBdes.text,2)));
end;

pourquoi pas poster une source qui fait :
ShowMessage('Hello World !');

je prefere encore une calculatrice buggée en mode console mdr.
retourne te coucher a+

ABUSED, plize deletez moi cette source ! j'ai honte pour CS