Problème avec la fonction rnd (randomize)

Signaler
Messages postés
16
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
23 juin 2003
-
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Salut !

Voilà, j'ai un gros souci avec la fonction randomize : je veut en fait créer une petite fonction qui me donne un jours dans l'année au hasard, donc un nombre compris entre 1 et 365 ! Pour ca j'ai fait tout petit test avec un bouton et un textbox et ca nous donne ca :

Private Sub Command1_Click()
a = (Int(Rnd * 364)) + 1
Text1.Text = a
End Sub

Alors c'est bien, quand je lance le programme et que je clique sur le bouton, j'ai effectivement l'affichage d'un nombre compris entre 1 et 365.

Le problème est que lorsque j'arrête le programme et que je le relance, quand je clique sur le bouton, je retrouve EXACTEMENT les mêmes chiffres... Alors dites moi que je ne sait pas utiliser la fonction rnd parceque là je ne capte plus ! Le rnd est censé donner un nombre au HASARD, et pas une même série de chiffres ... ???

Allez dites moi que je suis ridicule et donnez moi la solution, merci !

-- kleuvert --

3 réponses

Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

alors tu fais
Randomize Timer
lenombre = Int((Rnd * 364)+1) '+1 pour empêcher les 0
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
Messages postés
16
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
23 juin 2003

Merciiii beaucoup Vbsupernul !!!
le supernul dans l'histoire c'est bien moua :-/
a+

-- kleuvert --
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

J'ai aucun mérite, c'est DARKSIDIOUS qui me l'a appris :big)
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )