Comment : créer une procédure (Visual Basic)
Vous placez une procédure entre une instruction de déclaration de début (Sub
ou Function
) et une instruction de déclaration de fin (End Sub
ou End Function
). Tout le code de la procédure se trouve entre ces instructions.
Une procédure ne peut pas contenir d’autre procédure, ses instructions de début et de fin doivent être en dehors de toute autre procédure.
Si vous avez du code qui effectue la même tâche à différents emplacements, vous pouvez écrire la tâche une fois en tant que procédure, puis l’appeler à partir de différents emplacements dans votre code.
Pour créer une procédure qui ne retourne pas de valeur
En dehors de toute autre procédure, utilisez une instruction
Sub
, suivie d’une instructionEnd Sub
.Dans l’instruction
Sub
, faites suivre le mot cléSub
par le nom de la procédure, puis la liste des paramètres entre parenthèses.Placez les instructions de code de la procédure entre les instructions
Sub
etEnd Sub
.
Pour créer une procédure qui retourne une valeur
En dehors de toute autre procédure, utilisez une instruction
Function
, suivie d’une instructionEnd Function
.Dans l’instruction
Function
, faites suivre le mot cléFunction
par le nom de la procédure, puis la liste des paramètres entre parenthèses, puis une clauseAs
spécifiant le type de données de la valeur de retour.Placez les instructions de code de la procédure entre les instructions
Function
etEnd Function
.Utilisez une instruction
Return
pour renvoyer la valeur à l’appel de code.
Pour connecter votre nouvelle procédure aux anciens blocs de code répétitifs
Veillez à définir la nouvelle procédure à un emplacement accessible par l’ancien code.
Dans votre ancien bloc de code répétitif, remplacez les instructions qui effectuent la tâche répétitive par une instruction unique qui appelle la procédure
Sub
ouFunction
.Si votre procédure est un
Function
qui retourne une valeur, assurez-vous que votre instruction d’appel effectue une action avec la valeur retournée, par exemple en la stockant dans une variable, sinon la valeur sera perdue.
Exemple
La procédure Function
suivante calcule le côté le plus long, ou hypotenuse, d’un triangle droit, en fonction des valeurs des deux autres côtés :
Function Hypotenuse(side1 As Double, side2 As Double) As Double
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function