Cómo crear una calculadora científica en Visual Basic (En 13 Pasos)

Por kevin walker
Cómo crear una calculadora científica en Visual Basic (En 13 Pasos)
Ryan McVay/Photodisc/Getty Images

Visual Basic es un potente lenguaje de programación creado por Microsoft para que sea más fácil para los usuarios que no tienen conocimiento de programación de computadoras poder desarrollar software para computadoras Windows. Crear una calculadora científica proporciona una visión general sobre cómo desarrollar software en Visual Basic.

Configurar el proyecto

Paso 1

Crea un nuevo proyecto haciendo clic en "Archivo" y "Nuevo proyecto". Cuando te lo pida, ponle el nombre "Calculadora científica".

Aparecerá un formulario de interfaz de usuario en blanco para tu calculadora. Añádele los componentes de la interfaz gráfica de usuario (GUI, por sus siglas en inglés) desde la caja de herramientas de la izquierda. Usarás dos tipos de componentes: una caja de texto para mostrar los resultados, y un montón de botones.

Paso 2

Arrastra una caja de texto a la parte superior de la calculadora desde la caja de herramientas de la izquierda. Aquí será donde aparecerán los números y donde el usuario escribirá los números para su computación posterior.

Paso 3

Arrastra un botón al formulario desde la caja de herramientas. En la caja de propiedades, encuentra la propiedad "Texto" y cámbiala por "sin". Encuentra el nombre de la propiedad y cámbiala por "sinButton". Haz clic en el botón "sin" en el formulario y pulsa "Ctrl-C" para hacer una copia del botón en tu teclado. Pulsa "Ctrl-V" 11 veces para crear 11 nuevos botones en tu formulario. Para cada botón, cambia el texto por lo siguiente: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y /, y ponle un nombre que lo describa. Por ejemplo, para el botón "/", cambia la propiedad del nombre por "divideButton".

Hacer la programación

Paso 1

Haz doble clic sobre el botón "sin". Esto te llevará la código fuente y creará un método de evento para manejar los eventos de "sin" y colocará el cursor dentro. Pega lo siguiente ahí:

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

Paso 2

Haz doble clic sobre el botón "cos". De nuevo, esto te llevará al código fuente y creará un método de evento. Pega lo 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

Paso 3

Haz doble clic sobre el botón "tan" y pega lo 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

Paso 4

Haz doble clic sobre el botón "pi" y pega lo siguiente:

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

Paso 5

Haz doble clic sobre el botón "C" y pega:

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

Continuación de la programación

Paso 1

Pega lo siguiente al principio de tu editor de código fuente:

Dim memory As Double Dim operation As String

Esto alojará los números necesarios para las operaciones binarias y para la operación a realizar, como la división o multiplicación.

Paso 2

Haz doble clic sobre cada botón de operación binaria (+,-,X,/, y exp) por turnos y pega el siguiente código:

memory = TextBox1.Text operation = "+"

Cambia el texto de la operación por la operación. Por ejemplo, para el botón "X", cambia "+" por "X".

Paso 3

Haz doble clic sobre el botón "=" y pega lo 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

Paso 4

Haz doble clic sobre el botón "log" y pega:

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

Paso 5

Haz doble clic sobre el botón "sqrt" y pega:

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

Referencias