A CHAQUE FOIS UN NUMERO PAS COMME L'AUTRE

Signaler
Messages postés
147
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
26 avril 2008
-
Messages postés
1
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 septembre 2002
-
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/12086-a-chaque-fois-un-numero-pas-comme-l-autre

Messages postés
1
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 septembre 2002

Pour éviter qu'il ne sorte '0', rien n'empêche de faire :

randomize;
label1.caption(random(999999)+1);

de façon à tirer un nombre de 1 à 1000000 ... enfin, si je n'ai pas oublié un zéro en recopiant ;)
Messages postés
147
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
26 avril 2008

toi t un genie du delphi, enfin ca va s'en dire ce caption, de meme pour la parenthese et le ";", desolé pr l'oublie, si ca marche pas y a egalement :

randomize;
Label1.Caption(random(1000000));


bonne continuation

zmc
Messages postés
17
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
5 décembre 2006

zmc : J avoue ke c est plus simple comme ca mais il manque :
".Caption" a ton Label1,
il y a 3 parentheses ouverte et 2 fermé,
sans parler du ";".

Et pi si tu met que cette instruction le Label vas afficher ke le chiffre "0" d'après se que j ai remarqué.

;) a++
Dreus
Messages postés
147
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
26 avril 2008

lol alors la pour faire compliqué t'as vraiment fait compliqué, alors qu'il suffit de faire :
Label1:=IntToStr(random(random(100000000))

bonne continuation

zmc