Como crear una calculadora simple en Visual Basic 6.0

Visual Basic 6.0 es un lenguaje de programación desarrollado por Microsoft que los programadores principiantes y avanzados pueden aprender y usar fácilmente. Aunque Microsoft ya no le brinda soporte, miles de aplicaciones aún funcionan con base en él y hay muchas más en desarrollo. Esta guía te mostrará cómo crear una calculadora simple en Visual Basic 6.0.

1. Abre Visual Basic 6.0 y crea un nuevo Proyecto Standard EXE. Los proyectos standard EXE ofrecen una serie de comandos y herramientas útiles para desarrollar tanto programas simples como semicomplejos.

También puedes escoger un Proyecto VB Enterprise Edition que te dará muchas más opciones para trabajar. Para un programador principiante, se sugiere usar un Proyecto Standard EXE.        

    

2.Familiarízate con la pantalla de proyecto. En el centro de la pantalla habrá una caja con muchos puntos. Es tu formulario. Un formulario es el lugar en el que añadirás los diversos elementos (botones de comando, imágenes, cajas de texto) de tu programa.

A la izquierda de la pantalla está la caja de herramientas. La caja de herramientas contiene varios elementos predefinidos para cualquier programa. Puedes arrastrar y soltar estos elementos a tu formulario.

Abajo a la derecha de la pantalla se encuentra el diseño del formulario. Esto determina el lugar donde se mostrará tu programa en la pantalla una vez que el proyecto esté completado y se ejecute.

En la parte central derecha, está la caja de propiedades, la cual determina las propiedades de cualquier elemento seleccionado en el formulario. Con ella, puedes cambiar las diversas propiedades. Si no hay elementos seleccionados, se mostrarán las propiedades del formulario.

En la parte superior derecha, está el explorador de proyecto. Muestra los distintos diseños y formularios incluidos en un proyecto.

Si no encuentras alguna de estas cajas, puedes añadirlas haciendo clic en el botón “Ver” de la barra de Menú.       

 

3.Puedes cambiar el texto de una etiqueta usando la caja de propiedades.           

           

4.Crea una caja de texto a la derecha de la primera etiqueta. Elimina el texto que aparezca dentro de la caja de texto poniendo en blanco el campo “Texto” en la caja de propiedades.   

5.Crea otra etiqueta y cámbiale el texto a “Ingresar el segundo número” y crea otra caja de texto a su derecha

6. Arrastra y crea cuatro botones de comando debajo de estas dos etiquetas. Cambia el texto de estos botones de comando a “Sumar”, “Restar”, “Multiplicar” y “Dividir”, respectivamente.

7.Crea otra etiqueta con el texto “Resultado” y una caja de texto a su derecha, debajo de los cuatro botones de comando. Esta caja de texto será usada para mostrar el resultado. Con esto, tu diseño estará completo

8.Para comenzar a escribir el código en el explorador de proyecto, haz clic en el formulario y luego selecciona el botón que está en el extremo izquierdo. Te llevará a la pantalla de código.

Haz clic en la caja de lista, arriba a la izquierda de la pantalla de código. Uno por uno, haz clic en todos los comandos (Command1, Command2, etc.) para que el código resultante de todos ellos se visualice en tu pantalla de código.

9.Declara las variables. Para declarar las variables, escribe lo siguiente:

• Dim a, b, r as Integer
• “a” es el valor ingresado en la primera caja de texto, “b” es el valor ingresado en la segunda caja de texto y “r” es el resultado. Puedes añadir cualquier otra variable también.

10.Comienza a escribir el código para el comando de suma (Command1). El código será el siguiente:

• Private Sub Command1_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a + b
  Text3.Text = r
  End Sub

11. Escribe el código para el comando de resta (Command2). El código será el siguiente:

• Private Sub Command2_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a - b
  Text3.Text = r
  End Sub

12.Escribe el código para el comando de multiplicación (Command3). El código será el siguiente:

• Private Sub Command3_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a * b
  Text3.Text = r
  End Sub

13.Escribe el código para el comando de división (Command4). El código será el siguiente:

• Private Sub Command4_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a / b
  Text3.Text = r
  End Sub