CODES SOURCES - UTILISATION  D'UNE PROCEDURE PARAMETREE -     Exercice : On a une interface composée de 3 boutons de commandes, 2 boutons d'option et 3 zones de textes. L'application permet d'additionner ou de soustraire deux nombres et d'en afficher le résultat dans une des 3 zones de texte. Il n'y a pas de sécurisation, ce n'est pas le thème principal dans cette rubrique. On utilise ici deux procédures paramétrées (Additionner et soustraire) que l'on appelle selon le choix de l'utilisateur définit par l'intermédiaire des boutons d'option. Remarques : les zones de textes "Additionner" et "Soustraire" sont nommées respectivement "OptAdd" et "OptSous". La  propriété "Text" des contrôles TxtNb1 et TxtNb2 est initialisé avec la valeur "0".   L'interface :       Code de la section "général" :   Option Explicit Dim result As Double     'Déclaration des variables     Code de la procédure paramétrée "Additionner" : Private Sub Additionner(x1 As Double, x2 As Double) 'Procédure paramétrée Additionner result = x1 + x2      'Mémorisation du résultat de l'opération _ dans la variable "Result" TxtResult.Text = result      'Affichage du résultat End Sub     Code de la procédure paramétrée "Soustraire" : Private Sub Soustraire(x1 As Double, x2 As Double)      'Procédure Soustraire result = x1 - x2      'Mémorisation du résultat de l'opération _ dans la variable "Result" TxtResult.Text = result      'Affichage du résultat End Sub   Code du bouton "Calculer" : Private Sub CmdCalc_Click() If OptAdd.Value = True Then      'Selon le choix de l'utilisateur _ Appel de la procédure paramétrée correspondante Call Additionner(TxtNb1.Text, TxtNb2.Text)      'Appel des procédures avec transmission _ des paramètres Else Call Soustraire(TxtNb1.Text, TxtNb2.Text) End If End Sub   Code du chargement de la feuille : Private Sub Form_Load() 'Initialisation des contrôles OptAdd.Value = True End Sub                           ©Copyright Webmaster 2002