|
Ecrire un programme de calcul standard dans Visual Basic est un bon exercice pour les débutants programmeurs Visual Basic . Une calculatrice de base contient chiffres "0" à "9 ", un bouton de signe, un bouton de virgule , un bouton d'effacement , un bouton et boutons équivaut à effectuer une addition , soustraction, multiplication et division. Les contrôles CommandButton sont placés sur un formulaire et un minimum de code est écrit pour chaque événement de clic de bouton pour le programme. Les résultats sont affichés dans un contrôle de zone de texte en haut du formulaire. Instructions
1 ouvrir la calculatrice de votre projet Visual Basic. Le projet devrait contenir des contrôles CommandButton pour les chiffres "0 " à "9 ", un bouton pour le signe du nombre , un bouton décimal, un bouton d'effacement , un bouton et boutons équivaut à effectuer l'opération mathématique spécifiée.
2 déclarer une variable de type " double" de tenir la première valeur saisie et la seconde valeur est entrée , si ce n'est pas déjà déclarée. Faire la variable «privé» à la forme . Assurez-vous qu'il existe des variables booléennes déclarés de savoir quel type d' opération est réalisée également . Une valeur booléenne est vraie ou fausse .
Dim DFirst privé comme Double
Dim dSecond privé comme Double
Badd As Boolean
bSubtract As Boolean
3 magasin le chiffre cliqué sur dans la variable " DFirst " en cas de clic de l'opérateur mathématique . Capturer aussi qui touche de fonctionnement a été sélectionné et définissez la valeur booléenne en conséquence. Par exemple, si le bouton " plus " a été cliqué , réglez Badd à "true". Si les touches de fonctionnement ont été définies dans un tableau, le code ressemblerait à ceci:
Choisir cas index
Case 0
BDivision = True
Cas 1 Photos bMultiply = True Case
2 bSubtract = True Case
3 Badd = True
Fin Sélectionnez
4 magasin le deuxième valeur entrée dans " bSecond », puis écrire une « Instruction IF" pour effectuer l'opération sur les deux chiffres et afficher le résultat dans le "égale" clic sur le bouton code d'événement . La «Si Statement " est écrit que «Si Badd Puis txtResult.text = DFirst + dSecond
End If " où " txtResult " est le contrôle de zone de texte en haut du formulaire.
|
