KGF.dll: RandomValue

Sujet: KGF.dll: RandomValue Dim 17 Mar 2013 - 15:46

J'ai besoin d'une valeur comprise entre 1 et 102, je fais:

Code:: v% = 1 + DLL_Call1("RandomValue",101)

D'après la doc:

Citation :: Cette fonction retourne une valeur entière aléatoire dans un intervalle entre 0 et une valeur maximale

Or je n'obtiens jamais la valeur 0, ça commence à 1... c'est normal ? c'est pas grave, il suffit de le savoir.

Sujet: Re: KGF.dll: RandomValue Dim 17 Mar 2013 - 18:00

J'ai vérifié: la valeur zéro est possible, mais dépend évidemment du tirage aléatoire.
Les valeurs retournées sont bien: 0 <= x < limite

Sujet: Re: KGF.dll: RandomValue Dim 17 Mar 2013 - 18:27

Bon, alors je n'y comprends rien:

Code:: DIM i%, ntr%, v%, f%(30)
DLL_ON "C:\PANORAMIC\KLAUS\Dlls\KGF.dll"
ntr% = 10000: ' nombre de tirages

FOR i% = 1 TO ntr%
v% = DLL_call1("RandomValue",30)
f%(v%) = f%(v%)+1: ' nombre de tirages pour la valeur v%
NEXT i%
FOR i% = 0 TO 30
PRINT STR$(i%)+": " + STR$(f%(i%))
NEXT i%

aucun zéro à l'horizon... les valeurs sont bien réparties entre 1 et 30.
D'ailleurs si je mets
IF v% = 0 THEN STOP
après l'appel à la dll on ne s'arrête jamais.

Sujet: Re: KGF.dll: RandomValue Dim 17 Mar 2013 - 18:44

Oups.. Tu as raison ! Ta démonstration est magistrale. J'ai vérifié dans le source, et effectivement, la routine retourne 1 <= x <= maxi !

J'ai corrigé la doc.

Sujet: Re: KGF.dll: RandomValue Dim 17 Mar 2013 - 20:31

Merci Klaus, tu me rassures, je me demandais si j'avais bien les yeux en face des trous !
Ca n'a évidemment aucune importance, l'usage est le même, il suffit de le savoir.

» Modification de la fonction RandomValue dans KGF.dll