Comment faire une calculatrice avec Visual Basic

Ouvrez Visual Basic 6, et sélectionnez " EXE standard " du nouveau menu du projet. Vous verrez un formulaire vierge s'affiche à l'écran .
2

renommer votre projet et votre formulaire en cliquant sur « Project1 » à la droite de l'écran, dans la liste des projets, et en entrant un nouveau nom dans la ligne "Nom" de la boîte de propriétés , ce qui devrait apparaître en dessous de la liste de projets par défaut. Appuyez sur "Entrée" pour accepter le nouveau nom . Faites de même pour votre formulaire ( nom d'un formulaire suggéré est " CalculatorUI " ) , en veillant à entrer un nom similaire dans la propriété " Caption" aussi bien, qui va changer le texte dans la barre en haut du formulaire . Enregistrez le projet dans un nouveau dossier sur votre ordinateur.
3

Ajoutez boutons et une zone de texte au formulaire. D'abord, ajoutez une zone de texte , qui sera le lieu où les numéros saisis dans le calculateur apparaissent, ainsi que les résultats des calculs . Pour cela, sélectionnez le bouton Zone de texte à partir de la barre d'outils sur le côté gauche de l'écran , puis en faisant glisser avec votre souris la taille et l'emplacement que vous désirez pour la zone de texte . Une fois que vous avez placé la zone de texte , vous pouvez modifier la taille et l'emplacement en le faisant glisser vers un autre emplacement du formulaire ou en faisant glisser les poignées ( petits carrés ) le long de la frontière de la zone de texte . Veillez à modifier les lignes suivantes dans la fenêtre Propriétés , avec la zone de texte sélectionnée: «(Nom ) " = tbResult , "Alignement " = 1 - Justifier à droite , " Format de données" = ( cliquez sur le bouton "..." pour sélectionnez ) Numéro , " Locked" = True , et "Texte" = 0.
4

sélectionnez l'icône de commande dans la barre d'outils et de créer le premier bouton de la même manière que vous avez créé la zone de texte pour ajouter des boutons . Pour référence , utilisez la calculatrice de Windows en mode Standard (Programmes > Accessoires > Calculatrice ) comme base de votre modèle de calculatrice, laissant de côté le "MC" , "MR" , "MS" , et les boutons "M +" . Sur chaque bouton , changer les propriétés suivantes ( en utilisant le bouton "+" comme exemple) : « ( Nom) " = btnPlus , "Légende" = + . Faites de même pour le reste des boutons de la calculatrice , puis enregistrez votre travail. Votre formulaire doit maintenant ressembler à l'exemple montré ici.
5

Ajoutez le code. Notez que si vos boutons et TextBox ne sont pas le même nom que le code répertorié ici espère , vous aurez besoin de changer les noms pour répondre à vos boutons et zone de texte, ou changer vos boutons et TextBox pour correspondre à ce code. Nous devons d'abord créer quelques variables pour traiter une entrée de la calculatrice :

sLeft As String, sRight As String , sOperator Comme StringDim iLeft As Double , iRight As Double , iResult Comme DoubleDim bLeft As Boolean

Chaque calcul est constitué de quatre parties: un nombre à gauche de l'opérateur ( sLeft , iLeft ) , un opérateur ( sOperator ) , un numéro à la droite de l'opérateur ( sRight , iRight ) , et un résultat ( iResult ) . Afin de vérifier si l' utilisateur entre le nombre de gauche ou de droite, nous devons créer une variable booléenne , bLeft . Si bLeft est vrai , le côté gauche du calcul est entré , si bLeft est fausse , le côté droit est entré
6

initialiser la variable bLeft . . Nous faisons cela en créant une sous-routine Form_Load , que vous pouvez taper comme indiqué ici ou créer automatiquement en double-cliquant sur ​​n'importe quelle partie de la forme non couverte par un bouton ou une zone de texte. Dans la fonction , nous devons mettre bLeft True, parce que le premier numéro entré sera la partie gauche :

Private Sub Form_Load () bLeft = TrueEnd Sous
7

Créer un sous-programme qui va gérer le cliquetis de l'une des touches numériques. Nous créons cela comme une sous-routine , car nous utilisons code identique pour chaque bouton , et en utilisant un sous-programme signifie ne pas avoir à répéter le même code dizaine de fois. Entrez la commande suivante sous la ligne End Sub la sous-routine Form_Load :

privé AddNumber Sub ( sNumber As String ) Si bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sous
< p> Comme vous pouvez le voir, cette fonction prend un paramètre de chaîne , sNumber , qui contiendra le numéro que l'utilisateur a cliqué. Si bLeft est vrai, ce nombre est ajouté à la chaîne qui représente le nombre étant entré , sLeft , et la zone de texte , tbResult , est mis à jour pour afficher le nouveau numéro. Si bLeft est fausse, la même opération est effectuée à l'aide sRight place.

Enfin, créer une fonction d'événements Click pour chaque numéro qui appelle notre sous-routine AddNumber . Vous pouvez le faire facilement en double- cliquant sur chaque touche numérique, qui permettra de créer la structure du sous-programme pour vous. Ensuite, ajoutez l'appel à AddNumber , remplaçant le nombre de citations avec le numéro associé au bouton. Pour le bouton zéro , votre code ressemblera à ceci :

Private Sub btn0_Click () AddNumber ("0" ) End Sub

De même, pour une touche , votre code ressemblera à ceci : Photos

Private Sub btn1_Click () AddNumber ("1" ) End Sub
8

Manipulez les opérateurs: plus, moins, fois , et de diviser . Nous le ferons comme la dernière étape , la création d' un sous-programme qui est appelé dans les événements Click pour les boutons de l'opérateur. Le sous-programme ressemblera à ce qui suit:

AddOperator Private Sub ( sNewOperator As String ) Si bLeft ThensOperator = sNewOperatorbLeft = FalseElsebtnEquals_ClicksOperator = sNewOperatorsRight = "" bLeft = FalseEnd IfEnd Sous

Si bLeft est vrai, signifie que l'utilisateur vient d'entrer dans la partie gauche du calcul, ce sous-programme définit la variable d' sOperator nous avons créé à l'étape 5 pour égaler l'opérateur entré , qui est passé à AddOperator comme le sNewOperator de chaîne. La deuxième étape consiste à définir bLeft à faux , car l'entrée de l'opérateur indique que l'utilisateur est réalisée dans le côté gauche de l'équation . Afin de gérer les entrées cordes multiples opérateurs ensemble, comme 9 * 3 * 2 * 6, nous avons besoin de vérifier également si bLeft est faux , ce qui signifie que l'utilisateur a entré un opérateur où nous nous attendions à un égal . D'abord, nous appelons l'événement Click pour le bouton equals ( décrit dans la prochaine étape) , qui fait le calcul et définit tbResult à la suite de ce qui a déjà été saisi. Ensuite, nous avons clairement sRight afin que l'utilisateur peut entrer dans le prochain numéro , et définir bLeft sur ​​False pour que le programme sait que nous entrons dans le côté droit du calcul suivant.

Enfin, ajoutez un appel d' AddOperator à l'événement Click de chaque bouton de commande , en utilisant la même méthode que nous avons utilisée dans l'étape 7 pour créer les événements Click pour les touches numériques . Votre code pour le bouton plus ressemblera à ceci :

Private Sub btnPlus_Click () AddOperator ("+ ") End Sub

De même, le code de la touche moins ressemblera à ceci :

Private Sub btnMinus_Click () AddOperator ("-" ) End Sub
9

créer l'événement Click pour le bouton , ce qui est le code le plus complexe dans ce programme égaux. Créer la structure du sous-programme comme vous l'avez fait pour les autres boutons , en double- cliquant sur le bouton sur votre formulaire égaux. Votre routine devrait ressembler à ceci lorsque vous avez entré le code :

Private Sub btnEquals_Click () Si sLeft <> "" Et sRight = "" Et sOperator <> "" ThensRight = sLeftEnd Si Photos

Si sLeft <> "" Et sRight <> "" Et sOperator <> "" TheniLeft = sLeftiRight = sRight

Select sOperatorCase Case "+" iResult = iLeft + iRightCase "-" iResult = iLeft - iRightCase "/" iResult = iLeft /iRightCase "*" iResult = iLeft * iRightEnd Select

tbResult.Text = iResult

sLeft = iResultsRight = "" bLeft = TrueEnd IfEnd Sous

les trois premières lignes de code vérifier pour voir si les deux côtés du calcul ont été conclus avec un opérateur. Si seul le côté gauche et un opérateur sont entrés, la valeur du côté gauche est copié vers la droite, afin que nous puissions imiter le comportement de calculatrice standard pour traiter une entrée comme 9 * = , qui multiplie 9 par lui-même pour obtenir un résultat de 81 . Le reste du code ne fonctionnera que si gauche, à droite , et l'opérateur est entré, et commence par copier les chaînes de chiffres dans notre iLeft et les variables Double typées iRight , qui peut faire les calculs réels . L' instruction Select Case permet d'exécuter un code différent en fonction de l'opérateur qui a été conclu , et effectue le calcul proprement dit , en plaçant le résultat dans iResult . Enfin, nous mettons à jour la zone de texte avec le résultat , copier le résultat dans sLeft , réinitialiser sRight et définir bLeft = True . Ces dernières lignes nous permettent de prendre le résultat du calcul et de l'utiliser pour effectuer un autre calcul
10

Manipulez les trois derniers boutons de commande : . Sqrt ,%, et 1 /x . Pour l'événement Click du bouton de racine carrée , votre code ressemblera à ceci :

Private Sub btnSqrt_Click () Si sLeft <> "" TheniLeft = sLeftElseiLeft = 0End Si

Si sRight <> "" TheniRight = sRightElseiRight = 0End Si

Si bLeft TheniLeft = Math.Sqr ( iLeft ) tbResult.Text = iLeftElseiRight = Math.Sqr ( iLeft ) tbResult.Text = iRightEnd Si
< p> Si iLeft <> 0 ThensLeft = iLeftElsesLeft = "" End If

Si iRight <> 0 ThensRight = iRightElsesRight = "" End Sub IfEnd

Les 11 premières lignes du Code assurez-vous que si nous n'avons pas une valeur entrée pour chaque côté de l'équation, nous substituer des zéros au lieu d'essayer de copier une chaîne vide dans iLeft ou iRight , qui va générer une erreur. Les lignes du milieu exercer la fonction de la racine carrée de la part actuelle du calcul, soit à gauche ou à droite. Enfin, nous renversons les vérifications que nous avons faites au début de sorte qu'un zéro est copié comme une chaîne vide dans sLeft et sRight

le bouton pour cent, le code est similaire , avec une exception: . L'opération de pour cent ne peut être effectuée que si les deux côtés gauche et droit sont entrés.

Private Sub btnPercent_Click () If Not bLeft ThenIf sRight <> "" TheniRight = sRightElseiRight = 0End Si

iRight = iRight * ( iLeft /100) tbResult.Text = iRight

Si iRight <> 0 ThensRight = iRightElsesRight = " " End Sub IfEnd IfEnd

Enfin, les 1 /x , ou fraction , Cliquez sur l'événement , qui est très similaire au code ci-dessus:

Private Sub btnFraction_Click () Si sLeft <> "" TheniLeft = sLeftElseiLeft = 0End Si

Si sRight <> " " TheniRight = sRightElseiRight = 0End Si

Si bLeft TheniLeft = 1 /iLefttbResult.Text = iLeftElseiRight = 1 /iRighttbResult.Text = iRightEnd Si

Si iLeft <> 0 ThensLeft = iLeftElsesLeft = " " End If

Si iRight <> 0 ThensRight = iRightElsesRight = " " End Sub IfEnd
11

Ajouter du code pour gérer les boutons C et CE . C efface toutes les entrées à la calculatrice , tandis que les CE ne supprime que le nombre actuellement en cours de saisie .

Private Sub btnC_Click () sLeft = "" sRight = "" sOperator = "" tbResult.Text = "0" bLeft = TrueEnd Sous

Private Sub btnCE_Click () Si bLeft ThensLeft = "" ElsesRight = " " End IftbResult.Text = "0" End Sub
12

exécuter votre programme de calculatrice et faire tout calcul vous le souhaitez. Cette calculatrice peut être facilement étendu pour traiter plus d'opérations , des calculs plus complexes ou même d'être une calculatrice scientifique avec un peu de travail supplémentaire .