Area de un Circulo

Esta vez vamos a realizar un programa capaz de calcular el area de un circulo, con el radio que va a ser dado por el usuario.

1- Planeación

salida:  Area

entradas:Radio

procedimiento: Area = Pi * Radio * Radio

2- Diseño de Interfaz

3- Programación de Eventos

• Dim radio as Integer
• Dim area as Integer
• Const Pi as Double = 3.1416

________________________

Private Sub Command1_Click()

• radio = val(text1.text)
• area = radio * radio * Pi
• text2.text = area 

End Sub

_______________________

Private Sub Command2_Click()

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

End Sub

________________________

Private Sub Command2_Click()

 End 

End Sub

________________________

En el  código lo que hacemos es capturar el radio en la variable al presionar el botón 1para luego realizar el proceso dado y mostrar el resultado en el texbox 3. El botón 2 borra los datos que están en las texbox y redirecciona el mouse a la textbox 1, Y el botón 3 sale del programa.