Faire un random dans un fichier

lpefec Messages postés 8 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 16 septembre 2003 - 22 déc. 2002 à 23:24
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 23 déc. 2002 à 16:40
j'ai besoin de faire un random 14 fois dans un fichier

ex:
1
2
3
4
5
6
7
8
9

lpefec

5 réponses

BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
23 déc. 2002 à 09:51
et ?
utilise randomize

:clown) BasicInstinct
0
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 25
23 déc. 2002 à 10:25
salut

pour faire un random dans un fichier tu fais :

DIm x as byte
open "chemin\nomfichier.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
0
lpefec Messages postés 8 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 16 septembre 2003
23 déc. 2002 à 15:24
lpefec
0
lpefec Messages postés 8 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 16 septembre 2003
23 déc. 2002 à 15:25
merci mais es ce que c'est possible de le faire avec des mot et non des lettre ?

merci encore
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 25
23 déc. 2002 à 16:40
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
0