Random
lpefec
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003
-
2 janv. 2003 à 05:03
lpefec Messages postés 8 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 16 septembre 2003 - 2 janv. 2003 à 16:56
lpefec Messages postés 8 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 16 septembre 2003 - 2 janv. 2003 à 16:56
3 réponses
Nektanebos
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003
2 janv. 2003 à 08:13
2 janv. 2003 à 08:13
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
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
pi7438
Messages postés
94
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
16 avril 2004
2 janv. 2003 à 10:42
2 janv. 2003 à 10:42
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
Randomize() qui remets les random au hasard, donc tu n'auras plus le meme chiffre a chaque fois.
A plus
:-p
lpefec
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003
2 janv. 2003 à 16:56
2 janv. 2003 à 16:56
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
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
