Esta vez aprenderémos como crear una calculadora con las funciones básicas de matemáticas las cuales son:

·Suma
·Resta
·Multiplicación
·División

Lo primero que harémos será abrir nuestro programa visual basic 6 y comenzar a programar un "EXE Standard". Despúes nos mostrará algo así:

Ahora, en la barra de herramientas (en la parte de la izquierda estará predeterminadamente) utilizarémos las siguientes herramientas:
· Labels / Textos
· CommandButtons / Botónes de comando
· TextBoxes / Cajas de texto

Que son estas:

Despúes agregarémos lo siguiente:

Un label dando click en la herramienta que muestra la letra "A" y seleccionamos cualquier parte en el form, nos dirijimos a la barra de propiedades del lado inferior derecho y buscámos "caption", una vez encontrado le cambiarémos el valor a resultado:


Ahora agregarémos 3 TextBoxes/Cajas de texto y las acomodarémos algo así:

Una vez hecho esto, daremos click en los 3 TextBoxes/Cajas de texto (de uno en uno) y quitarémos el text para dejarlo vacío y quede así (En vez de caption buscamos Text):

Ahora necesitamos buscar el Name/Nombre de las cajas de texto que por default estarán Text1, Text2 y Text3 pero nosotros las cambiarémos a Text1 = can1 , Text2 = can2 y Text3 = res así:

Una vez hecho esto agregarémos 6 CommandButtons/Botónes de comando de esta manera:

A los primeros 4 les cambiarémos el caption por las funciones básicas que son: " + " , " - " , " * " y " / " y el nombre:

·+ = sumar
·- = restar
·* = multiplicar
·/ = dividir

así:

A los otros 2 le cambiarémos el caption por Borrar y Salir y el name a Borrar = borrar y Salir = salir algo así:

Ahora procederémos con el código que es lo importante, darémos doble click en cualquier CommandButton/Botón de comando y en la pestaña escojerémos General así:

Ahora el CommandButton/Botón de texto se convertirá en "click" ya que al hacer click hará lo que nosotros codíemos así que para el de sumar sería:

Private Sub sumar_click()
res = val(can1) + val(can2)
End Sub

En donde indicamos que al dar click en el botón sumar la casilla de texto llamada "res" tiene un valor de el valor de la casilla de texto llamada "can1" mas el valor de la casilla de texto llamada "can2".

Así sucesivamente con el de Restar, Multiplicar y Dividir solo que cambiaríamos el sumar_click() por restar_click(), mult.... dividir_click() y el " + " lo cambiaríamos por el signo correspondiente, en este caso -, * y / algo así:

Private Sub sumar_click()
res = Val(can1) + Val(can2)
End Sub
Private Sub restar_click()
res = Val(can1) - Val(can2)
End Sub
Private Sub multiplicar_click()
res = Val(can1) * Val(can2)
End Sub
Private Sub dividir_click()
res = Val(can1) / Val(can2)
End Sub

Ahora al botón de borrar como lo que queremos que haga es que deje los espacios en blanco, en este caso pondrémos este código:
Private Sub borrar_click()
can1 = ""
can2 = ""
End Sub

Lo cual significa que al presionar el botón borrar can1 tendrá un valor de "" y como no ahi nada en comillas pues no mostrará nada, igual can2.

Y ahora el mas fácil que es el de Salir con el simple hecho de agregar un:

Private Sub salir_click()
End
End Sub

Se cerrará la aplicación, el código completo es este:

Private Sub sumar_click()
res = Val(can1) + Val(can2)
End Sub
Private Sub restar_click()
res = Val(can1) - Val(can2)
End Sub
Private Sub multiplicar_click()
res = Val(can1) * Val(can2)
End Sub
Private Sub dividir_click()
res = Val(can1) / Val(can2)
End Sub
Private Sub borrar_click()
can1 = ""
can2 = ""
End Sub
Private Sub divi2dir_click()
res = Val(can1) / Val(can2)
End Sub


Esta es una aplicación básica, espero les sirva.

Notas:
*Si los valores NO son númericos mostrará "0".
*Para hacer el proyecto dar click en File/Archivo y generar proyecto exe.