Générer une suite de chiffres aléatoire
cs_goldfinger
Messages postés
8
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
3 décembre 2003
-
3 déc. 2003 à 11:58
cs_goldfinger Messages postés 8 Date d'inscription jeudi 6 février 2003 Statut Membre Dernière intervention 3 décembre 2003 - 3 déc. 2003 à 16:45
cs_goldfinger Messages postés 8 Date d'inscription jeudi 6 février 2003 Statut Membre Dernière intervention 3 décembre 2003 - 3 déc. 2003 à 16:45
A voir également:
- Suite de chiffre aléatoire
- Chiffre au hasard - Forum Visual Basic
- Roulette aléatoire - Forum Visual Basic 6
- Nombre aléatoire numéro de téléphone ✓ - Forum Python
- Mdp aléatoire - Forum C
- Chiffre aléatoire google ✓ - Forum PHP
1 réponse
cs_goldfinger
Messages postés
8
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
3 décembre 2003
3 déc. 2003 à 16:45
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
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
