CODES SOURCES

- UTILISATION  D'UNE PROCEDURE -

 

 

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 (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 nb1 As Double                'Déclaration des variables
Dim nb2 As Double
Dim result As Double

 

 

Code de la procédure "Additionner" :


Private Sub Additionner()        'Procédure Additionner
result = nb1 + nb2                   '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 "Soustraire" :


Private Sub Soustraire()            'Procédure Soustraire
result = nb2 - nb1                     '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 correspondante
Additionner
Else
Soustraire
End If
End Sub
 

 

Code du chargement de la feuille :
 

Private Sub Form_Load()
'Initialisation des contrôles
OptAdd.Value = True
End Sub
 

 

Code sur changement de la valeur dans la zone de texte "TxtNb1" :
 

Private Sub TxtNb1_Change()
'Affectation des nombres contenus dans les zones de texte dans _
les variables
nb1 = TxtNb1.Text
End Sub
 

 

Code sur changement de la valeur dans la zone de texte "TxtNb2" :


Private Sub TxtNb2_Change()
'Affectation des nombres contenus dans les zones de texte dans _
les variables
nb2 = TxtNb2.Text
End Sub

 

 

 

 

 

   

 

          ©Copyright Webmaster 2002