problème avec la fonction rnd (randomize)

Question

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 --

Vbsupernul · Answer

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) )

kleuvert · Answer

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

Vbsupernul · Answer

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) )

Problème avec la fonction rnd (randomize)

3 réponses

Discussions similaires