Hoy les voy a enseñar a hacer un programa para calcular el area de un circulo, para ello, abrimos el programa y seleccionamos el tamaño de la ventana de puntos para poder colocar los íconos como queramos. Ahora colocamos el icono "Label" (Bueno esto es solo si quieren hacerlo), le colocamos el título de "Area de un círculo" (Les recuerdo que es solo si siquieren hacerlo), debajo colocamos otros dos de estos íconos y al primero le colocamos "Radio" y al segundo le colocamos "Area". Después seleccionamos uno de los íconos de la izquierda q se llama "TextBox" y lo colocamos al frente de los íconos anteriores ("Radio" y "Area"), les borramos el texto con el que aparecen ("Text") y buscamos al lado derecho la opción q se llama "Enabled" y colocamos "False" (Esto es solo para el cuadro que van a colocar al frente de "Area"). Después colocamos un ícono del lado izquierdo del programa que se llama "CommandButton" y lo colocamos debajo de los anteriores íconos. Repetimos este paso otras dos veces más y les cambiamos el nombre, el primero se va a llamar "Calcular", el segundo se va a llamar "Borrar" y el tercero se va a llamar "Salir". Seleccionamos el primero ("Calcular") y le damos doble click y nos aparecerá una ventana en la que aparece un texto que dice:
"Private Sub Command1_Click()"
y debajo escribimos:
Text1.Text = Text1.Text
Text2.Text = Val(Text1.Text) * 3.1416 ^ 2
(Colocamos "* 3.1416" porque el area de un circulo se calcula asi: Radio por Pi elevado al cuadrado).
Después le damos doble click en "Borrar" y nos aparece lo siguiente:
"Private Sub Command2_Click ()"
debajo de eso escribimos lo siguiente:
Text1.Text = ""
Text2.Text = ""
Después de esto le damos doble click en "Salir" y nos aparece :
"Private Sub Command3_Click()"
debajo de esto escribimos:
"End"
y lo prueban y LISTO!!!!!!!! ya esta hecho el programa para calcular el area de un circulo.
Aqui los procedimientos ↓↓↓
Comenteten ↓↓↓
