Cómo hacer una calculadora científica en Visual Basic

Visual Basic es un potente lenguaje de programación creado para Microsoft para que sea más fácil para los usuarios sin formación programación informática para desarrollar software para ordenadores Windows. La creación de una calculadora científica ofrece una visión general de cómo desarrollar software para Visual Basic.

Instrucciones

Configuración del Proyecto

1 Crear un nuevo proyecto haciendo clic en "Archivo" y "Nuevo proyecto". Cuando se le solicite, darle el nombre de "calculadora científica."

Una forma de interfaz de usuario en blanco aparecerá para su calculadora, añadir la interfaz gráfica de usuario (GUI) de componentes a la misma desde la caja de herramientas a la izquierda. Que va a utilizar dos tipos de componentes: un cuadro de texto para mostrar los resultados y un montón de botones.

2 Arrastre un cuadro de texto a la parte superior de la calculadora de la caja de herramientas de la izquierda. Este será el lugar donde los números aparecen y donde el usuario escriba los números para el cálculo posterior.

3 Arrastre un botón en el formulario de la caja de herramientas. En el cuadro de propiedades, encontrar la propiedad "Texto" y cambiarlo a "pecado". Encuentra la propiedad de nombre y cambiarlo a "sinButton." Haga clic en el botón de "pecado" en los campos y pulsa la tecla "Ctrl-C" para hacer una copia del botón en el teclado. Presione Ctrl-V clave 11 veces para crear los 11 nuevos botones para su formulario. Para cada botón, cambiar el texto del botón de los siguientes: cos, tan, pi, exp, sqrt, registro, C, +, -, X, = y /, y darle un nombre que lo describe. Por ejemplo, para el botón "/", cambie su propiedad a nombre de "divideButton."

Hacer la programación

4 Haga doble clic en el botón "pecado". Esto le desplaza al código fuente y crear un método de evento para el manejo de eventos pecado y coloque el cursor dentro de ella. Pegue el siguiente existe:

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

5 Haga doble clic en el botón "cos". Una vez más, esto le desplaza al código fuente y crear un método de evento. Pega el siguiente en él:

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

6 Haga doble clic en el botón "tan" y pegar el siguiente, como en los pasos anteriores:

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
TextBox1.Text = Math.Tan(TextBox1.Text)
End Sub

7 Haga doble clic en el botón de "pi" y pegue el siguiente:

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
TextBox1.Text = Math.PI
End Sub

8 Haga doble clic en el botón "C" y pegar:

Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
TextBox1.Text = ""
memory = 0
End Sub

Continúa la programación

9 Pegue el siguiente en la parte superior del editor de código fuente:

Dim memory As Double
Dim operation As String

Esto mantendrá los números que se necesitan en las operaciones binarias y la operación a realizar, tales como la división o multiplicación.

10 Haga doble clic en cada uno de los botones de operación binarios (+, -, x, /, y exp) a su vez y pegar el siguiente código:

memory = TextBox1.Text
operation = "+"

Reemplazar el texto operación con la operación. Por ejemplo, para el botón "X", reemplazar "+" con "X"

11 Haga doble clic en el botón "=" y pegue el siguiente:

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If operation.Equals("+") Then
TextBox1.Text = memory + TextBox1.Text
ElseIf operation.Equals("-") Then
TextBox1.Text = memory - TextBox1.Text
ElseIf operation.Equals("X") Then
TextBox1.Text = memory * TextBox1.Text
ElseIf operation.Equals("/") Then
TextBox1.Text = memory / TextBox1.Text
ElseIf operation.Equals("exp") Then
TextBox1.Text = Math.Pow(memory, TextBox1.Text)
End If

End Sub

12 Haga doble clic en el botón de "desconectar" y pegar:

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
TextBox1.Text = Math.Log(TextBox1.Text)
End Sub

13 Haga doble clic en el botón "sqrt" y pegar:

Private Sub Button18_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button18.Click

TextBox1.Text = Math.Sqrt(TextBox1.Text)
End Sub