Page 1 sur 1

[R] Problème de Random

Posté : mar. 08 juin 2010 13:13
par Pelagos
Bonjour ,

Je cherche a faire une fonction qui effectuerai un tirage aleatoire non indépendant de 120 valeurs numériques sur une plage variable (pouvant grosso modo aller jusqu'a 1000).
Apres avoir parcouru le forum, j'ai trouvé mon bonheur, seulement pour une raison que je ne comprends pas, la variable array ne stocke jamais aucune valeur, je n'ai que des msgbox vides...

voila le code :

Code : Tout sélectionner

#include <Array.au3>

Global $Melange[120], $Index, $i = 0, $size_sample

$size_sample = InputBox("Random Picker","Please enter sample size")

While $i < UBound($Melange)
    $Index = Random(1, $size_sample, 1)

    If _ArraySearch($Melange, $Index) = -1 Then
        $Melange[$i] = $Index
        $i += 1
        msgbox(0,"",$Melange[$i])
    EndIf

WEnd
 
Une idée ?
Merci d'avance.

Re: [...]Probleme de Random

Posté : mar. 08 juin 2010 13:35
par jbnh
Salut,

Ca n'affiche rien parce que tout simplement tu incrémentes le $i avant d'afficher ton résultat ! Donc tu affiches le résultat de la case d'après qui est forcément vide !

Hésite pas à ajouter un ArrayDisplay en fin de script pour avoir un aperçu plus général ;)

Re: [...]Probleme de Random

Posté : mar. 08 juin 2010 14:22
par Pelagos
... Ok merci.
p..... je l'ai pas vu.
Merci encore.