French Rndseed

jp02

Member
Licensed User
Bonjour à tous,
Pour bien comprendre B4A j'essaie d’utiliser, et de mettre les fonctions et mots clés dans un mode opératoire classé par type de fonctions.

si Rnd(min, max) fonctionne bien
Rndseed(seed) ne fonctionne pas chez moi:

dim resultat2 as long
resultat2=1000
resultat=RndSeed(resultat2) 'ou rndSeed(Seed) j'ai aussi essayé.
edittext1.Text=("rndseed: " & resultat)

la description dans keyword dit seed est un long, mais que renvoie Rndseed() ?
Merci de votre réponse.
JP
 

klaus

Expert
Licensed User
RndSeed ne retourne rien !
RndSeed n'est utile que pour débogger.
Log(Rnd(0,10))
Log(Rnd(0,10))
Log(Rnd(0,10))Le code ci-dessus donne des nombres aléatoires entre 0 et 9

RndSeed(1000)
Log(Rnd(0,10))
RndSeed(1000)
Log(Rnd(0,10))
RndSeed(1000)
Log(Rnd(0,10))
Le code ci-dessus donne systématiquement le nombre 7

RndSeed(2000)
Log(Rnd(0,10))
Donne toujours le nombre 9
etc.

Appeler RndSeed avec un même nombre génère toujours le même nombre 'aléatoire' lors du prochain appel de Rnd et qu'une fois.

Je n'avais jamais remarqué cette fonction et ne l'avais évidemment jamais utilisée.

Meilleures salutations.
 
Top