[URG] Variables aléatoires entre plusieurs nombres

[Résolu]
Signaler
Messages postés
21
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
8 décembre 2005
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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.



Merci de votre aide c'est urgent !!



@+

3 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Bonsoir

Tout simplement:
Un nombre alèatoire entre 0 et 10. Puis ce nombre fois 10
x = Int(11 * Rnd) * 10

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
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)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
21
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
8 décembre 2005

Merci j'y avais vraiment pensé !!



encore MERCI !