Comment créer une calculatrice scientifique dans Visual Basic
Configurez le projet
Étape 1
Créez un nouveau projet en cliquant sur "Fichier" et "Nouveau projet". Lorsque demandé, mettez le nom "calculatrice scientifique".
Un formulaire d'interface utilisateur vierge apparaît pour votre calculatrice. Ajoutez les composants de l'interface graphique à partir de la boîte à outils à gauche. Vous utiliserez deux types de composants: une zone de texte pour afficher les résultats et de nombreux boutons.
Étape 2
Faites glisser une zone de texte en haut de la calculatrice à partir de la boîte à outils à gauche. Ce sera l'endroit où les nombres apparaîtront et où l'utilisateur écrira les nombres pour un calcul ultérieur.
Étape 3
Faites glisser un bouton sur le formulaire à partir de la boîte à outils. Dans la zone de propriété, recherchez la propriété "Texte" et remplacez-la par "sans". Recherchez le nom de la propriété et remplacez-le par "sinButton". Cliquez sur le bouton "sans" sur le formulaire et appuyez sur "Ctrl-C" pour faire une copie du bouton sur votre clavier. Appuyez sur "Ctrl-V" 11 fois pour créer 11 nouveaux boutons sur votre formulaire. Pour chaque bouton, modifiez le texte comme suit: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y /, et nommez-le. Par exemple, pour le bouton "/", définissez la propriété name sur "divideButton".
Faire la programmation
Étape 1
Double-cliquez sur le bouton "sans". Cela vous prendra le code source et créer une méthode d'événement pour gérer les événements "sans" et placer le curseur à l'intérieur. Collez ce qui suit ici:
Private Sub Button19_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button19.Click TextBox1.Text = Math.Sin (TextBox1.Text) End Sub
Étape 2
Double-cliquez sur le bouton "cos". Là encore, cela vous mènera au code source et créera une méthode d'événement. Collez ce qui suit dedans:
Private Sub Button20_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button20.Click TextBox1.Text = Math.Cos (TextBox1.Text) End Sub
Étape 3
Double-cliquez sur le bouton "bronzage" et collez ce qui suit, comme dans les étapes précédentes:
Private Sub Button21_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button21.Click TextBox1.Text = Math.Tan (TextBox1.Text) End Sub
Étape 4
Double-cliquez sur le bouton "pi" et collez le texte suivant:
Private Sub Button22_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button22.Click TextBox1.Text = Math.PI End Sub
Étape 5
Double-cliquez sur le bouton "C" et collez:
Private Sub Button23_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button23.Click TextBox1.Text = "" memory = 0 End Sub
Continuation de la programmation
Étape 1
Collez ce qui suit au début de votre éditeur de code source:
Dim memory as Double Dim opération As String
Cela abritera les nombres nécessaires aux opérations binaires et à l'opération à effectuer, telles que la division ou la multiplication.
Étape 2
Double-cliquez sur chaque bouton d'opération binaire (+, -, X, / et exp) et collez le code suivant:
memory = TextBox1.Text operation = "+"
Changer le texte de l'opération par l'opération. Par exemple, pour le bouton "X", remplacez "+" par "X".
Étape 3
Double-cliquez sur le bouton "=" et collez le texte suivant:
Private Sub Button1_Click_1 (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button1.Click si operation.Equals ("+") puis TextBox1.Text = mémoire + TextBox1.Text ElseIf operation.Equals ("-") Puis TextBox1.Text = memory - TextBox1.Text ElseIf operation.Equals ("X") Ensuite, TextBox1.Text = mémoire * TextBox1.Text ElseIf operation.Equals ("/") Ensuite, TextBox1.Text = memory / TextBox1.Text = mémoire / TextBox1.Text ElseIf .Equals ("exp") Ensuite, TextBox1.Text = Math.Pow (memory, TextBox1.Text) End If
End Sub
Étape 4
Double-cliquez sur le bouton "log" et collez:
Private Sub Button24_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button24.Click TextBox1.Text = Math.Log (TextBox1.Text) End Sub
Étape 5
Double-cliquez sur le bouton "sqrt" et collez:
Private Sub Button18_Click (expéditeur de ByVal en tant que System.Object, ByVal et As System.EventArgs) gère Button18.Click TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub
