CODES SOURCES
- UTILISATION D'UNE FONCTION -
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 fonctions (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
Code de la fonction "Additionner" :
Private Function Additionner()
'Fonction Additionner
Additionner = nb1 + nb2
'Le résultat de l'opération _
est retourné dans le nom de la fonction
End Function
Code de la fonction "Soustraire" :
Private Function Soustraire()
'Fonction Soustraire
Soustraire = nb2 - nb1
'Le résultat de l'opération _
est retourné dans le nom de la fonction
End Function
Code du bouton
"Calculer" :
Private Sub CmdCalc_Click()
If OptAdd.Value = True Then
'Selon le choix de l'utilisateur _
Appel de la fonction correspondante
TxtResult.Text = Additionner
Else
TxtResult.Text = 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