Como criar uma calculadora científica no Visual Basic

Configurar o projeto

Passo 1

Crie um novo projeto clicando em "Arquivo" e "Novo projeto". Quando perguntado, coloque o nome "calculadora científica".

Um formulário de interface do usuário em branco aparecerá para a sua calculadora. Adicione os componentes da interface gráfica do usuário (GUI) da caixa de ferramentas à esquerda. Você usará dois tipos de componentes: uma caixa de texto para exibir os resultados e muitos botões.

Passo 2

Arraste uma caixa de texto para o topo da calculadora na caixa de ferramentas à esquerda. Este será o local onde os números aparecerão e onde o usuário escreverá os números para posterior cálculo.

Passo 3

Arraste um botão para o formulário na caixa de ferramentas. Na caixa de propriedades, localize a propriedade "Texto" e altere-a para "sem". Encontre o nome da propriedade e altere para "sinButton". Clique no botão "sem" no formulário e pressione "Ctrl-C" para fazer uma cópia do botão no seu teclado. Pressione "Ctrl-V" 11 vezes para criar 11 novos botões em seu formulário. Para cada botão, altere o texto para o seguinte: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y / e atribua a ele um nome que o descreva. Por exemplo, para o botão "/", altere a propriedade name para "divideButton".

Faça a programação

Passo 1

Clique duas vezes no botão "sem". Isso levará o código-fonte e criará um método de evento para manipular os eventos "sem" e colocar o cursor dentro dele. Cole o seguinte lá:

Private Sub Button19_Click (pelo remetente ByVal como System.Object, ByVal e como System.EventArgs) manipula Button19.Click TextBox1.Text = Math.Sin (TextBox1.Text) End Sub

Passo 2

Clique duas vezes no botão "cos". Novamente, isso levará você ao código-fonte e criará um método de evento. Cole o seguinte:

Private Sub Button20_Click (pelo remetente ByVal como System.Object, ByVal e como System.EventArgs) manipula Button20.Click TextBox1.Text = Math.Cos (TextBox1.Text) End Sub

Passo 3

Dê um duplo clique no botão "tan" e cole o seguinte, como nas etapas anteriores:

Private Sub Button21_Click (pelo remetente ByVal como System.Object, ByVal e como System.EventArgs) manipula Button21.Click TextBox1.Text = Math.Tan (TextBox1.Text) End Sub

Passo 4

Clique duas vezes no botão "pi" e cole o seguinte:

Particular Button22_Click Sub (ByVal remetente como System.Object, ByVal e como System.EventArgs) manipula Button22.Click TextBox1.Text = Math.PI End Sub

Passo 5

Clique duas vezes no botão "C" e cole:

Private Sub Button23_Click (pelo remetente ByVal como System.Object, ByVal e como System.EventArgs) manipula Button23.Click TextBox1.Text = "" memory = 0 End Sub

Continuação da programação

Passo 1

Cole o seguinte no início do seu editor de código-fonte:

Dim memória como operação Double Dim As String

Isso alojará os números necessários para operações binárias e para que a operação seja executada, como divisão ou multiplicação.

Passo 2

Clique duas vezes em cada botão de operação binária (+, -, X, / e exp) e cole o seguinte código:

memória = operação TextBox1.Text = "+"

Altere o texto da operação pela operação. Por exemplo, para o botão "X", altere "+" para "X".

Passo 3

Clique duas vezes no botão "=" e cole o seguinte:

Privado Sub Button1_Click_1 (ByVal remetente como System.Object, ByVal e como System.EventArgs) Lida com Button1.Click If operation.Equals ("+") Then TextBox1.Text = memória + TextBox1.Text ElseIf operation.Equals ("-") Em seguida, TextBox1.Text = memória - TextBox1.Text ElseIf operation.Equals ("X") Then TextBox1.Text = memória * TextBox1.Text ElseIf operation.Equals ("/") Then TextBox1.Text = memória / TextBox1.Text ElseIf operation .Equals ("exp") Then TextBox1.Text = Math.Pow (memória, TextBox1.Text) End If

End Sub

Passo 4

Clique duas vezes no botão "log" e cole:

Private Sub Button24_Click (pelo remetente ByVal como System.Object, ByVal e como System.EventArgs) manipula Button24.Click TextBox1.Text = Math.Log (TextBox1.Text) End Sub

Passo 5

Clique duas vezes no botão "sqrt" e cole:

Private Sub Button18_Click (pelo remetente ByVal como System.Object, ByVal e como System.EventArgs) manipula Button18.Click TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub