Procedure

Question

Salut
 je voudrais effectuer un meme calcule pour plusieur variable, j'ais cru comprendre qu'il fallait executer une procedure, mais..... comment fait-t-on ???

cs_Jack · Answer

Salut Rati_12
C'est simple. En fait, c'est une fonction que l'on va créer et qui s'ccupera de rendre un résultat avec les paramètres qu'on va lui passer.
Dans ta forme, tu vas dans la partie Déclaration, en haut du code.
Tu vas déclarer ta fonction comme ceci :
Private Function MaFonction(ByVal Param1 As Variant, _
ByVal Param2 As Variant) As Variant
' après avoir fait un retour chariot à la fin, VB ajoute de lui même ça :
End FunctionVoilà ce qui défini la fonction.
(*) Pour les puristes, type Variant afin d'accepter n'importe quel type de données : Entière ou Floattante.
Maintenant on va mettre le code dedans.
Supposons que tu veuilles multiplier les deux paramètres :
Juste avant le "End Function", tu mets
MaFonction = Param1 * Param2
C'est tout.

Ensuite, il va falloir lui donner à manger à cette fonction. Dans le Form_Load (double-click sur le fond de ta forme), tu vas appeler ta fonction afin de faire un calcul basique :
MsgBox MaFonction(12, 4)
 --> A chaque fois que tu utiliseras MaFonction, elle te renverra le calcul que tu as mis dedans.

Vala
Jack

Rati_12 · Answer

Heu........ merci, mais etant un debutant, je n'ai pas trop compris,

Supposont que je veuille qut ma fonction calcule la moyenne de plusieur nombre dison int1 int2 int3 int4 et qu'el s'enregistre dans inttot ???

Ps: qq pourrait peut etre me donner l'adresse d'un eventuel site avec des tutoriaux pour vb....

econs · Answer

Public Function CalculeMoyenne(i1 as Integer, i2 as Integer, i3 as Integer, i4 as Integer) As Integer
CalculeMoyenne = (i1+i2+i3+i4)/4
End Function


Et pour l'appeler, tu fais comme ceci :

Dim inttot as Integer
inttot = CalculeMoyenne(5,54,78,2)
MsgBox inttot
inttot = CalculeMoyenne(768,654,2135,6796)
MsgBox inttot

Tu remarqueras au passage que le résultat est un nombre entier. Si tu veux un nombre à virgule, il suffit de demander à CalculeMoyenne de renvoyer un nombre de type Double.

Manu

Rati_12 · Answer

merci

Procedure

4 réponses

Discussions similaires