Random

Signaler
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003
-
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003
-
je fait un random à partir de string dans un fichier mais et je doit exécuter plusieur fois le random afin de récolter plusieur donnée mais la meme ligne revient souvent que dois-je faire

3 réponses

Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

tu peux faire une sous routine biensur

soit une sous routine dans la prodédure elle même;
soit une sous routine (Procédure)

je m'explique

si tu veux faire une sous routine dans la procédure elle même ce qui est le plus simple tu fais ca lorsque tu dois allez à la ligne que tu veux

sub Form_Load '(je sais pas quel procédure est au début)

Gosub 30

à la fin de ta procédure tu fait

exit sub 'pour ne pas passer ici à la fin
30 [TA LIGNE DE CODE OU TES LIGNES]
Return 'Retourne après l'instruction qui l'a appelé (après gosub)

end sub

ou alors tu fais une nouvelle procédure

à la fin de ta feuille de code tu met

ceci se produit exactement comme l'exemple précédent mis a part QU'IL FAUT ENVOYER LES DONNE

quand tu veux y acceder :

call NOM(VARIABLE_A_TRAITER)

private sub NOM(Donnee as string)
'Attention la variable du départ est devenue donnée
'donc tu dois utiliser donnee
[TA LIGNE DE CODE]

end sub
0
Messages postés
94
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
16 avril 2004

avant d'utiliser le random, tu utilise la commande:
Randomize() qui remets les random au hasard, donc tu n'auras plus le meme chiffre a chaque fois.

A plus
:-p
0
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003

dsl mais j'ai vraiment de la misère à comprendre se que tu essaie de me dire :( peux tu me faire un example avec du code svp
voici mon code :

Private Sub Form_Load()

Fichier = App.Path & "\menu.dat"
Call random
End Sub
--------------------------------------------------------------------
Public Sub random()
j = 0
While Not j = 15
Dim Hasard As Integer
If NbMots = 0 Then LireFichier
Randomize
Hasard = Int(Rnd * NbMots) + 1
Mot = repas(Hasard)
txtjour(j) = Mot
j = j + 1

Wend
End Sub
---------------------------------------------------------------------
Public Sub LireFichier()
NbMots = 0
Open Fichier For Input As #1
Do Until EOF(1)
NbMots = NbMots + 1
Input #1, repas(NbMots)
Loop
Close #1

End Sub
---------------------------------------------------------------------
peux tu me dire quoi faire pour faire en sorte que la meme ligne ne se repete pas ...

merci à l'avance
0