domingo, 12 de octubre de 2008

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.

No hay comentarios: