VB GENERATOR - Codes Sources

CODES SOURCES

- UTILISATION D'UNE FONCTION 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 fonctions 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

Code de la fonction paramétrée "Additionner" :

Private Function Additionner(x1 As Double, x2 As Double) 'Fonction Paramétrée Additionner
Additionner = x1 + x2                                                          'Le résultat de l'opération _
est retourné dans le nom de la fonction
End Function

Code de la fonction paramétrée "Soustraire" :

Private Function Soustraire(x1 As Double, x2 As Double)      'Fonction Paramétrée Soustraire
Soustraire = x1 - x2                                                               '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 paramétrée correspondante
TxtResult.Text = Additionner(TxtNb1.Text, TxtNb2.Text)
Else
TxtResult.Text = 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