adrienphp
Messages postés34Date d'inscriptiondimanche 2 mars 2003StatutMembreDernière intervention31 juillet 2006
-
21 août 2003 à 21:23
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 2009
-
22 août 2003 à 19:19
Salut à tous,
Voila, je fais un système de tirage au sort en vb (style loto).
J'utilise la fonction randomize. Jusque la pas de pb, mais je souhaite ne pas avoir de doublons.
Si je prends des nombres de 1 à 50, par ex 2 ne peut pas sortir plusieurs fois. Comment puis je faire ?
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 22 août 2003 à 00:49
plus simple
nombre = ubound - lbound
for i = Lbound(tableau) to ubound(tableau)
rand = rnd() * nombre + lBound(tableau)
temp = tableau(i)
tableau(i) = tableau(rand)
tableau(rand) = temp
next i
tu crée un tableau avec tout les valeur de x à y
ensuite tu parcour à l'aide d'un for de x à y en inversant 2 valeur mis au hasard
un fois la boucle fini, c,est sur et certain que toute les valeur on été déplacé. J'ai fait le code de façon que la tableau soit pas obliger de commencer à 0, masi on peut déplacer des valeur situer n'importe où dasn le tableau