Visual Basic 6.0 - Calculadora

En este nuestro primer post vamos a hacer uso de un lenguaje de programación muy conocido y querido seguramente por muchos programadores en las que me incluyo, estoy haciendo referencia a Visual Basic 5.0 y 6.0, bueno vamos a empezar con nuestro primer ejercicio.

1. Ingresamos al programa, vamos a Inicio-Programas-Microsoft Visual Studio-Microsoft Visual Basic 6.0
   
2. Seleccionamos un nuevo proyecto EXE estandar
   
   
3. Diseñamos el siguiente formulario, como se muestra en la figura
   
   
4. Bien ahora llego el momento de programar nuestra calculadora, primero programamos el evento Load del formulario
   
   Private Sub Form_Load()
   'Cargamos la lista
   'con los operadores matemáticos
   With Combo1
   .AddItem "SUMA", 0
   .AddItem "RESTA", 1
   .AddItem "MULTIPLICACION", 2
   .AddItem "DIVISION", 3
   End With
   End Sub
5. Ahora programamos el boton Calcular en el evento Click
   
   

   Private Sub Command1_Click()
   'Variable para almacenar el tipo de operacion
   'seleccionado para realizar el calculo
   Dim Operacion As Integer
   Operacion = Combo1.ListIndex

   'Declaramos dos variables para almacenar los valores
   'ingresados y luego realizar la operacion matematica
   Dim n1, n2 As Integer
   n1 = CInt(Text1.Text)
   n2 = CInt(Text2.Text)

   'Evaluamos el tipo de operacion
   'que vamos a realizar
   
   Select Case Operacion
   Case 0 'SUMA
   Label1.Caption = CStr(n1 + n2)
   Case 1 'RESTA
   Label1.Caption = CStr(n1 - n2)
   Case 2 'MULTIPLICACION
   Label1.Caption = CStr(n1 * n2)
   Case 3 'DIVISION
   Label1.Caption = CStr(n1 / n2)
   End Select

   End Sub

6. Una vez finalizado la programacion de nuestra calculadora presionamos la tecla F5 y listo
   
   
   
   Bueno para ser nuestro primer post espero que les haya sido ultil este ejercicio, dejen sus comentarios y consultas nos encontramos en un nuevo para seguier posteando lo que mas nos gusta el mundo de la programacion y base de datos.