Ejemplo Visual Basic I

En este ejemplo se verá como crear una simple calculadora con las opciones más básicas como sumar, restar, multiplicar y dividir.

El código viene comentado, no creo que haya ningún problema para el que lo lea :P

-Se necesita en el form:
-4 labels, con el nombre por defecto todos los componentes
-3 texts
-1 Boton

Option Explicit 'Exige que todas las variables sean declaradas
Dim x As Long 'variables para las operciones
Dim y As Long
Dim Resul As Long
 
Private Sub Command1_Click()
On Error Resume Next 'el Programa se sigue ejecutando aunque haya errores
x = Text1 'copia el valor del primer text
y = Text2 'copia el valor del segundo text
If Text3.Text = "+" Then
Resul = x + y
End If
If Text3.Text = "-" Then
Resul = x - y
End If
If Text3.Text = "*" Then
Resul = x * y
End If
If Text3.Text = "/" Then
Resul = x / y
End If
 
MsgBox Resul, , "Resultado"
End Sub
 
Private Sub Label1_Click() 'si pulsas el label "sumar"...
Text3 = "+"
End Sub
 
Private Sub Label2_Click()
Text3 = "-"
End Sub
 
Private Sub Label3_Click()
Text3 = "*"
End Sub
 
Private Sub Label4_Click()
Text3 = "/"
End Sub

-Descargar proyecto

Saludos