Realizando Programas

Bueno, vamos a realizar un programa que permita capturar dos numero dados por el usuario y los sumen. Esto lo vamos a hacer siguiendo el ciclo del desarrollo de una aplicación

1- Planeación

salida:  suma

entradas: num1 y num2

procedimiento: suma = num1 +num2

2- Diseño de Interfaz

3- Programación de Eventos

• Dim num1 as Integer
• Dim num2 as Integer
• Dim suma as Integer

________________________

Private Sub Command1_Click()

• num1 = val(text1.text)
• num2 = val(text2.text)
• suma = num1 + num2
• text3.text = suma  

End Sub

_______________________

Private Sub Command2_Click()

• text1.text = " "
• text2.text = " "
• text3.text = " "
• text1.setfocus

End Sub

________________________

Private Sub Command2_Click()

 End 

End Sub

________________________

En el anterior código lo que hacemos es cuando damos click en el botón 1, este captura los números ingresados en las variables para luego sumarlas y mostrarlas en el texbox 3. El boton 2 borra los datos que están en las texbox y redirecciona el mouse a la textbox 1, Y el boton 3 sale del programa.