Gambas France BETA

Utilisation d'une fonction

1
Auteur	Messages
Foromus	#1 Posté le 13/2/2010 à 11:59:00
	Bonjour, Je vais devoir me renseigner sur les fonctions, autre sujet que je ne maîtrise pas. Je conçois ; Appel MaFonction(x) MaFonction(x As Integer) x = x + 4 End Là, c'est simple, je vais retrouver mon x augmenté de la valeur 4 à chaque appel. Maintenant, comment appeler une fonction par une variable et en récolter une autre ? Voilà, j'ai des répertoires, et je voudrais savoir combien ils contiennent de fichiers. Là, je sais compter avec l'instruction Dir, seulement voilà, je voudrais une seule fonction, placée dans un module. Il me faudrait donc une chose dans ce genre : Module.MaFonction (Rep,Nombre) et dans le module : PUBLIC SUB MaFonction(Rep As String, Nombre As integer) FOR EACH FileName IN Dir(Chemin/Rep) Nombre = Nombre +1 NEXT END Première question : Est-ce possible ? Si oui, qu'est-ce qu'il manque ? Merci.
micio	#2 Posté le 13/2/2010 à 13:48:00
	Voilà une possibilité. 1 ' Gambas class filePUBLIC SUB Form_Open() TextBox1.Text = Mod2.MaFonction("~/Documents")END' Gambas module file ' déclarer le type retourner par la fonctionPUBLIC SUB MaFonction(Rep AS String) AS Integer DIM FileName AS String DIM Nombre AS Integer FOR EACH FileName IN Dir(Rep) Nombre += 1 NEXT ' retourne le nombre de RETURN NombreEND
Foromus	#3 Posté le 13/2/2010 à 13:59:00
	Merci beaucoup, cela me semble assez clair, je vais voir ça prochainement, j'ai un autre souci à résoudre avant !
1