Como criar uma calculadora científica no Visual Basic

O Visual Basic é uma poderosa linguagem de programação criada pela Microsoft para tornar mais fácil para os usuários que não têm conhecimento de programação de computador desenvolver software para computadores Windows. Criar uma calculadora científica fornece uma visão geral sobre como desenvolver software no Visual Basic.

Configure o projeto

Passo 1

Crie um novo projeto clicando em “Arquivo” e “Novo projeto”. Quando solicitado, nomeie-o “Calculadora científica”.

Um formulário em branco da interface do usuário será exibido para 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.

Etapa 2

Arraste uma caixa de texto para o topo da calculadora na caixa de ferramentas à esquerda. É aqui que os números aparecerão e onde o usuário escreverá os números para computação posterior.

Etapa 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-o 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 no seu formulário. Para cada botão, altere o texto para o seguinte: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y / e atribua um nome que o descreva. Por exemplo, para o botão “/”, altere a propriedade do nome para “divideButton”.

Faça a programação

Passo 1

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

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

Etapa 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 nele:

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

Etapa 3

Clique duas vezes no botão “curtir” e cole o seguinte, como nas etapas anteriores:

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

Etapa 4

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

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

Etapa 5

Clique duas vezes no botão “C” e cole:

Sub Privado Button23_Click (remetente ByVal como System.Object, ByVal e As 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 memory As Double Dim operação como String

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

Etapa 2

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

memory = Operação TextBox1.Text = “+”

Mude o texto da operação para a operação. Por exemplo, para o botão “X”, altere “+” para “X”.

Etapa 3

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

Sub Button1_Click_1 privado (remetente ByVal como System.Object, ByVal e As System.EventArgs) manipula Button1.Click If operation.Equals (“+”) Então TextBox1.Text = memory + TextBox1.Text ElseIf operation.Equals (“-“) Então TextBox1.Text = memory – TextBox1.Text ElseIf operation.Equals (“X”) TextBox1.Text = memory * TextBox1.Text ElseIf operation.Equals (“/”) Então TextBox1.Text = memory / TextBox1.Text ElseIf .Equals (“exp”) Então TextBox1.Text = Math.Pow (memória, TextBox1.Text) End If

End Sub

Etapa 4

Clique duas vezes no botão “log” e cole:

Sub Privado Button24_Click (remetente ByVal como System.Object, ByVal e As System.EventArgs) Gerencia Button24.Click TextBox1.Text = Math.Log (TextBox1.Text) End Sub

Etapa 5

Clique duas vezes no botão “sqrt” e cole:

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

Referências

 

Você pode estar interessado:

Deixe um comentário