viernes, 24 de febrero de 2012

Hallar un area en Visual Basic 6.0

PROGRAMA DE PRACTICA

Calcular el área del cuadrado,circulo y triángulo donde el usuario elija por medio de option button y cada botón le diga que tenga que hacer para la operación. El resultado es claro que debe ser en una caja de texto.

1. PLANEACIÓN
*Calcular el área del circulo, rectángulo y triángulo por medio de option button.
*Mostrar el resultado en una caja de texto.
*Necesitamos 3 cajas de texto, 2 label, 1 frame, 3 optiond button y 3 comandbutton donde calcularemos

1.1 LISTA DE CHEQUEO:
*Declarar variables
*Darles Valor
*Operar
*Mostrar resultado

2. INTERFAZ GRÁFICA
Cuando le damos iniciar a nuestra aplicación los command de calcular deben de aparecer solamente uno para el usuario. para esto utilizamos la propiedad visible =true :

3.PROGRAMACIÓN DE EVENTOS:

primero colocamos todos los controles con la propiedad visible= false y debemos cambiarle el nombre a los tres comand de calcular por triángulo, cuadrado, y circulo. para mayor comodidad al programar. En el option 1 escribimos el siguiente código :

Private Sub Option1_Click()
Option1.Value = False
CUADRADO.Visible = True
Label1.Visible = True
Text1.Visible = True
Text3.Visible = True
Label1.Caption = "ingrese lado"
TRIANGULO.Visible = False
CIRCULO.Value = False
Label2.Visible = False
Text2.Visible = False
End Sub

como podemos ver ocultamos los dos comandbutton de calcular que no utilizaremos y el label 2 y text2.
en el option 2 escribimos el siguiente codigo

Private Sub Option2_Click()
Option2.Value = False
TRIANGULO.Visible = True
Label1.Visible = True
Label2.Visible = True
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Label1.Caption = "INGRESE BASE"
Label2.Caption = "INGRESE ALTURA"
CUADRADO.Visible = False
CIRCULO.Value = False
End Sub

En este solo ocultamos los dos comand de calcular.
el otro option button tendrás que hacer el código. en los command de calcular haremos la formula de cada área como por ejemplo.

Private Sub CUADRADO_Click()
A = Text1.Text
RES = A * A
Text3.Text = RES
End Sub

Private Sub TRIANGULO_Click()
B = Text1.Text
A = Text2.Text
RES = B * A / 2
Text3.Text = RES
End Sub

Private Sub CIRCULO_Click()
RADIO = Text1.Text AC = PI * (RADIO * RADIO)
Text3.Text = AC
End Sub

y en general :

Const PI As Double = 3.1416
Dim RADIO As Double
Dim AC As Double
Dim A As Double
Dim B As Double
Dim RES As Double

Asi hemos terminado este programa.

1 comentarios

esto es muy enredado, se deberia publicar un video mostrado como hacer este tipo ded trabajos


EmoticonEmoticon