martes, 31 de mayo de 2016

Suma De Dos Numeros

Paso 1.

Poner 3 label 3 textbox y y 3 commandButton acomodarlos cada uno en su lugar y poner la informacion de cada uno segun corresponda 
Los 3 label diran ingrese un numero, ingrese otro numero y resultado.
Los 3 textbox iran en blanco
Los 3 commandButton tendra cada una su funcion calcular, limpiar y salir.

Paso 2. 

Ingresamos a cada commmandbutton y ponemos los siguientes codigos para que cumplan con las funciones.
Private Sub Command_calcular_Click()
Dim a, b, RESU As Integer
a = 0
b = 0
RESU = 0

End Sub
Calcular:
RESU = Val(a) + Val(b)
End Sub

Limpiar: 
a = ""
b = ""
RESU = ""
a.SetFocus
End Sub

Salir:
End
End Sub


Paso 3.
Lo que aremos al final es ejecutar el programa y asi podremos ver como funciona el programa. 


 

No hay comentarios:

Publicar un comentario