Comment faire une calculatrice scientifique en Visual Basic

Créez un nouveau projet en cliquant sur " Fichier" et « Nouveau projet ». Lorsque vous êtes invité , lui donner le nom de « Scientific Calculator ».

Un formulaire d' interface utilisateur vierge apparaîtra pour votre calculatrice, ajouter une interface utilisateur graphique ( GUI) de composants à elle de la boîte à outils sur votre gauche. Vous allez utiliser deux types de composants: une zone de texte pour afficher les résultats et tout un tas de boutons
2

Faites glisser une zone de texte en haut de votre calculatrice à partir de la boîte à outils sur la gauche. . Ce sera le lieu où les chiffres apparaissent et où l'utilisateur va saisir des chiffres pour le calcul tard.
3

glisser un bouton dans votre formulaire de la boîte à outils . Dans la boîte de dialogue Propriétés , recherchez la propriété "text" et le remplacer par «péché». Trouvez la propriété de nom et changer en " sinButton . " Cliquez sur le bouton " péché " dans le formulaire et appuyez sur " Ctrl -C " pour faire une copie du bouton sur votre clavier. Appuyez sur Ctrl -V -clés 11 fois pour créer les 11 nouveaux boutons pour votre forme . Pour chaque bouton , changer le texte du bouton à la suivante: cos, tan , pi , exp, sqrt , log, C , +, -, x, = et /, et donnez- lui un nom qui le décrit. Par exemple, pour la touche "/", modifiez sa propriété de nom pour " divideButton . "
Faire la programmation
4

Double -cliquez sur l' " , bouton de péché » . Cela vous déplacer vers le code source et créer une méthode d' événement pour la gestion des événements de péché et placez votre curseur à l'intérieur de lui. Collez le texte suivant là:

Private Sub Button19_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button19.ClickTextBox1.Text = Math.Sin ( TextBox1.Text ) End Sub

5

Double- cliquez sur le bouton " cos " . Encore une fois, cela va vous passer au code source et créer une méthode d' événement . Collez le texte suivant dans ce dossier:

Private Sub Button20_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button20.ClickTextBox1.Text = Math.Cos ( TextBox1.Text ) End Sub

6

Double- cliquez sur le bouton " tan " et coller ce qui suit , comme dans les étapes précédentes :

Private Sub Button21_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Poignées Button21.ClickTextBox1.Text = Math.Tan ( TextBox1.Text ) End Sub
7

Double- cliquez sur le bouton "pi" et collez le texte suivant:

Private Sub Button22_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button22.ClickTextBox1.Text = Math.PIEnd Sous
8

Double- cliquez sur le bouton "C" et la pâte :

Private Sub Button23_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button23.ClickTextBox1.Text = "" mémoire = 0End Sous
Programmation Suite
9

Collez le suivant tout en haut de l'éditeur de code source:

mémoire As opération DoubleDim As String

tiendra numéros qui sont nécessaires en binaire . opérations et l' opération à effectuer , comme la division ou la multiplication
10

Double- cliquez sur chacun des boutons de commande binaires (+ , -, x , /et exp) à son tour et coller l' suivant le code suivant:
mémoire

= TextBox1.Textoperation = "+ "

Remplacer le texte de l'opération à l'opération. Par exemple, pour la touche "X" , remplacez "+" avec "X"
11

Double- cliquez sur le bouton "=" et collez le code suivant:

Private Sub Button1_Click_1 ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button1.ClickIf operation.Equals ( "+") ThenTextBox1.Text = mémoire + operation.Equals TextBox1.TextElseIf ( «-») ThenTextBox1.Text = mémoire - operation.Equals TextBox1.TextElseIf ( "X") = ThenTextBox1.Text mémoire * TextBox1.TextElseIf operation.Equals ( "/") = ThenTextBox1.Text de mémoire /TextBox1 . TextElseIf operation.Equals ( " exp " ) ThenTextBox1.Text = Math.Pow ( mémoire , TextBox1.Text ) End If End Sub

12

Double -cliquez sur l' " ; bouton log " et pâte :

Private Sub Button24_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button24.ClickTextBox1.Text Sous = Math.Log ( TextBox1.Text ) End < br >
13

Double -cliquez sur le bouton « sqrt » et pâte :

Private Sub Button18_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button18.ClickTextBox1.Text = Math.Sqrt ( TextBox1.Text ) End Sub