miƩrcoles, 4 de julio de 2012

AREA DE UN CIRCULO EN VISUAL BASIC

HOLA!!!!!!!!

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 ↓↓↓

7 comentarios:

  1. HACE FALTA ALGO EN LA PRIMERA LINEA DEL COMMANDO BUTTON
    Text1.Text = Text1.Text

    ResponderEliminar
  2. no es radio por pi al cuadrado...
    es Pi por radio al cuadrado

    ResponderEliminar
  3. Si estan bien puestas algunas formulas, el problema es que le falto algo despues del text1 y no es text1 es
    TextBox1.Text = "" y TextBox2.Text = "" (Son el comando para el boton Borrar)

    ResponderEliminar