Rnd(), la fonction random qui ne random pas

Bonjour

J'ai un string de base et le but est d'aller prendre des char au hasard dedans pour construire un autre string

Code:

---

1 2 3

For x = 0 To taille - 1 myStr = myStr + base.ElementAt(CInt(Int(base.Length * Rnd()))) Next

---

j'ai bien CInt(Int(base.Length * Rnd())) qui me générer un nombre entier entre 0 et la taille de mon string de base, donc le truc en lui même marche et génère des strings tant que je reste sur la même session de mon programme. Seulement le random n'est pas vraiment un random puisque si je kill et relance mon programme il me reconstruit exactement les même strings ...

D'ailleurs on peut le voir en faisant ça :

Code:

---

1 2 3

For x = 0 To 5 MessageBox.Show(Rnd()) Next

---

Vous exécutez, vous fermez votre programme, vous exécutez, vous fermez votre programme, vous exécutez ... c'est les même valeurs à chaque fois. Bref, quelqu'un connait t'il un moyen de faire un vrai random ?

Merci.

En instanciant un objet Random et en l'utilisant ensuite :)

Merci StormimOn je vais regarder de ce coté

Trouvé grace à l'aide en ligne Rnd, fonction (Visual Basic)
En fait il me manquait une instruction qui réinitialise le générateur de nombre aléatoire.

Ce qui donne :

Code:

---

1 2 3 4

Randomize() For x = 0 To taille - 1 myStr = myStr + base.ElementAt(CInt(Int(base.Length * Rnd()))) Next

---