Mettont qu'il y a 3 boites de texte et 4 boutons pour chaque opérateurs.
2 des boite de texte sera pour y inscrire les donné des operations et un boite pour le résultat
Les boites de texte de donnée peuvent nommé txtdonne1 et txtdonne2
La boite texte qui va afficher le résultat peut etre nommé txtresultat
Tu dois déclarer les variables dans le général déclaration.
Code :
Dim donne1 as variant
Dim donne2 as variant
Option Explicit
Donc les variables donne1 et donne2 sont déclaré.
Les variables doivent être associé à la valeur qui est incrit dans leur boites de texte respective. La variable prendra la valeur incrite lorsque qu'il y aura un changement de valeur dans la boite de texte
Code :
Private Sub txtdonne1_Change()
donne1 = Val(txtdonne1.Text)
End Sub
_____________________________________
Private Sub txtdonne2_Change()
donne2 = Val(txtdonne2.Text)
End Sub
Le bouton operateur peut être nommé cmdoperateur1 à 4 représentant l'opérateur pour chaque bouton.
À l'évenement click les variable donne1 et donne2 sont additionné et le résultat s'affiche dans la boite de texte txtresultat.
Code :
Private Sub cmdoperateur1_Click()
txtresultat.Text = donne1 + donne2
End Sub
Connexion
Inscription
FAQ
Rechercher
