BlackDiff
Messages postés21Date d'inscriptionjeudi 20 janvier 2005StatutMembreDernière intervention 8 décembre 2005
-
8 déc. 2005 à 19:28
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
8 déc. 2005 à 19:41
Problème VB6.0
Bonjour à tous !
J'ai un problème urgent à vous soumettre...et normalement tout simple !
J'ai 11 nombres : 00 10 20 30 40 50 60 70 80 90 et 100 et je voudrais
que lorsque je clik sur un bouton, il me retourne aléatoirement un de
ces nombres ! Pour l'instant je suis partis sur x = Int (a * Rnd) + 1
en déclarant sur le form Randomize. Mais je ne vois pas trop comment je
peux m'en sortir avec ce calcul.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 8 déc. 2005 à 19:41
Salut
Tes chiffres sont remarquables : Ils vont de 0 à 100, de 10 en 10.
Il suffit donc de fabriquer un nombre entier entre 0 et 10 et de le multiplier par 10.
Pour faire un nombre entier entre 0 et 10, il suffit de générer un nombre aléatoire entre 0 et 1 avec RND, puis de le multiplier par 10.
Si tu avais lu quelques sources et messages sur le forum ou consulté l'aide de la fonction RND, tu aurais trouvé de suite :
Rnd fournit un chiffre entre 0.0 et 1.0 (à virgule flottante)
Nombre = Int(Rnd() * 10 * 10)
Si tes chiffres ne sont pas aussi remarquables :
Par exemple, s'il fallait choisir entre ces 11 chiffres : 00 12 21 28 55 66 74 88 91 92 93
Là, il foudrait procéder autrement :
- Créer un tableau de 11 variables : Dim Tableau(10) As Long ' les tableaux commencent à l'index 0- Stocker les valeurs dedans : Tableau(0) 00 : Tableau(1) 12 ...
- Choisir aléatoirement parmi les 11 variables : Choix = Int(Rnd() * 10)
- Le chiffre associé est Tableau(Choix)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)