Problème avec des Randomize

Signaler
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Bonjour à tous;
Voilà, j'ai un truc:
Dim nombre As Double
Randomize Timer
nombre=(Rnd * 9999999999#)

Comment faire pour obliger à trouver un nombre à 10 chiffres?
Et aussi: comment, avec un slider (de 1 à 10) faire un randomize avec autant de chiffres que la valeur du slider
du style le slider marque 5 donc on fait un randomize dans les nombres à 5 chiffres.
Et puis, dernière chose: comment choisir si le résultat du randomize est décimal ou non?

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

3 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Randomize Timer
Dim c As Integer
c = Slider1.Value
nombre = Int(Rnd * 9 * 10 ^ (c - 1) + 10 ^ (c - 1))

Rnd(xxx) donne toujours un résultat compris entre 0 (inclus) et 1 (exclu) donc décimal
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Ben voilà, merci rene38, mais voilà, j'ai un problème: je veux que ce nombre soit commun à toutes les sub. Mais si je le met dans un module, il ne trouve pas Slider1... Y a t'il
_soit une manière de le rendre global depuis une simple sub
_soit de le faire dans le module?

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Il suffit de le déclarer dans un module :
Public nombre As Double

et ensuite de le manipuler (sans le re déclarer) depuis n'importe quel Sub
0