cs_goldfinger
Messages postés8Date d'inscriptionjeudi 6 février 2003StatutMembreDernière intervention 3 décembre 2003
-
3 déc. 2003 à 11:58
cs_goldfinger
Messages postés8Date d'inscriptionjeudi 6 février 2003StatutMembreDernière intervention 3 décembre 2003
-
3 déc. 2003 à 16:45
Salut tt le monde, voila mon probleme
J'ai besoin pour un affichage aléatoire de resultat d'une table de générer des id tous différents
Jusque la rien de compliqué mais quand je fais tourner les quelques lignes de codes suivantes j'obtiens toujours des doublons
Quelqu'un a t il une idée?
Vu que j'ai deja un bon gros mal de crane je vous en supli de pouvoir m'aider.
bien a vous,
Randomize Timer
i=1
dim tab(7)
while i<7
for j=1 to i step 1
tab(i)=Int(Rnd * 7)+1
while tab(i) = tab(j) and j<8
j=j+1
wend
if j<8 then
i=i+1
end if
next
wend
cs_goldfinger
Messages postés8Date d'inscriptionjeudi 6 février 2003StatutMembreDernière intervention 3 décembre 2003 3 déc. 2003 à 16:45
C bon, j'ai trouvé donc je m'auto répond pour ceux ke ca interesserai, sait on jamais voila la soluce, ici ca génére 7 chiffres tous differents les uns des autres, sans doublons assurés
Randomize Timer
i=1
dim tab_nbq(7)
dim tab_fin(7)
for i=1 to i=7
tab_fin(i)=0
next
i=1
while i<=7
tmp=int(rnd*7)+1
test=0
j=0
while j<7
if tmp=tab_fin(j) then
test=test+1
end if
j=j+1
wend
if test=0 then
tab_fin(i)=tmp
i=i+1
end if
wend