Kevergeek
Messages postés64Date d'inscriptionjeudi 14 février 2002StatutMembreDernière intervention22 janvier 2006
-
14 août 2002 à 17:30
SuperClic
Messages postés48Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 3 octobre 2002
-
16 août 2002 à 15:39
petite note avant de commencer, si vous testez ce code, faites le en pas a pas (F8) sinon vous devinez ce qu'il se passe... :))
voici mon code :
Private Sub Form_Load()
Do
Var1 = Int((113 * Rnd) + 1)
Loop
End Sub
et voici, dans l'ordre, les valeurs les valeurs du soit-disant hasard : 80, 61, 66, 33, 35, 88, 2, etc.
toujours les memes, a chaque fois qu'on relance l'execution du prog...
alors si vous avez une explication, je suis preneur, si vous avez une autre méthode egalement, mais je parle de "vrai" hasard, sinon tchao bella, je me tir une balle lol
ragnagnac
Messages postés36Date d'inscriptionmercredi 10 juillet 2002StatutMembreDernière intervention 3 septembre 2002 14 août 2002 à 17:33
C'est tout à fait normal, la "graine" du Random n'a pas changé d'une exécution à l'autre.
Je ne sais pas si en VB, on peut la changer comme en C, mais généralement, on affecte à la graine la valeur du Now() converti en secondes écoulées depuis 1970 (ou un truc comme cela)...
C'était vraiment très intéressant... :big) MythoMAN dans une autre vie ! :clown)
Vincentsoft
Messages postés68Date d'inscriptionjeudi 26 octobre 2000StatutMembreDernière intervention17 avril 2009 14 août 2002 à 17:44
Kevergeek: Avant de te tirer une balle, réfléchit un peu... comme l'a dit ragnagnac, il faut mettre à jour le random.
donc, si tu veux des valeurs différentes à chaque éxécution, tu met "randomize" au début de ton code.
rnd étant l'abréviation de randomize.
ton code est donc,
Private Sub Form_Load()
Randomize
Do
Var1 = Int((113 * Rnd) + 1)
Loop
End Sub