cs_thefox07
Messages postés12Date d'inscriptionlundi 24 avril 2006StatutMembreDernière intervention17 mai 2006
-
25 avril 2006 à 18:10
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 2006
-
26 avril 2006 à 08:08
voici mon probleme je voudrais génère 6 chiffre de 1 a 50 et les insérais dans une listbox (lst1)
cela devra se faire en appuyant sur une commande (cmd1)
pas grave si il y as des doublons je regarderais sa par la suite moi même
merci de répondre
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 25 avril 2006 à 18:18
Salut,
Ca doit donner quelque chose comme ceci :
Private Sub Cmd1_Click()
Dim nb As Long, k As Long
For k= 1 To 6
nb = Int(50*Rnd)+1
Lst1.Additem nb
Next k
End Sub
Manu
<hr size ="2" width="100%">Avant de poster un message, n'oubliez pas de consulter le règlement.
Pensez également à valider les réponses qui vous conviennent.
cs_thefox07
Messages postés12Date d'inscriptionlundi 24 avril 2006StatutMembreDernière intervention17 mai 2006 25 avril 2006 à 18:38
je ne doute pas que ton code soit mauvais il as même l aire bon mais il n apore rien par a port a celui de econs qui est plus cours ?
dis moi si je me trompe
Vous n’avez pas trouvé la réponse que vous recherchez ?
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 26 avril 2006 à 08:08
Et j'ajouterai qu'il est absoluement inutile de mettr eun Randomize avant chaque appel à Rnd() !!! Un seul suffit !
Il est même inutile de le mettre dans le code du bouton lancant la boucle de Econs ! On le placera dans le Form_Load de la 1ere form du projet ou dans la Sub Main() (selon le cas) et cela sufira largement !