faire un random dans un fichier

Question

j'ai besoin de faire un random 14 fois dans un fichier

ex: 
1
2
3
4
5
6
7
8
9

lpefec

BasicInstinct · Answer

et ?
utilise randomize

 :clown)  BasicInstinct

ShareVB · Answer

salut

pour faire un random dans un fichier tu fais :

DIm x as byte
open "chemin
omfichier.extension" for output as #1
randomize
for x = 1 to 14
print #1,int((rnd * (limite_sup_intervalle - limite_inf_intervalle+1))+limite_inf_intervalle) 'pour avoir des entiers compris entre limite_inf_intervalle et limite_sup_intervalle
next 'et pas next x : la boucle est plus rapide
close #1

tu met ce code ou tu veux en remplacant limite_sup_intervalle et limite_inf_intervalle par 2 nombres

voila

ShareVB

lpefec · Answer

lpefec

lpefec · Answer

merci mais es ce que c'est possible de le faire avec des mot et non des lettre ?

merci encore

ShareVB · Answer

salut

tu peux facilement faire des mots genre "jgpsdhgdskghslfqj" mais pour des mots du dictionnaires alors la c pas pareil.

premier cas suite de lettres : autant de chr$(int(rnd * 26+65)) (séparés par & ) pour des "mots" en MAJ

print #1, chr$(int(rnd * 26+65)) & chr$(int(rnd * 26+65))

deuxieme cas vrais mots : tu fais un tableau avec une liste de mots
et tu fais en suite print #1,tableau(int(rnd * (ubound(tableau)-lbound(tableau)+1)+lbound(tableau)))

voila

ShareVB

Faire un random dans un fichier

5 réponses

Discussions similaires