2. PROGRAMA DE PRACTICA

  • Calcular el area del cuadrado,circulo y triangulo donde el usuario elija por medio de option button y cada boton le diga que tenga que hacer para la operacion. El resultado es claro que debe ser en una caja de texto.

1. PLANEACION
*Calcular el área del circulo, rectángulo y triangulo 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 GRAFICA

Cuando le damos iniciar a nuestra aplicacion los comand de calcular deben de aparecer solamente uno para el usuario. para esto utilisamos la propiedad visible =true :

3.PROGRAMACION DE EVENTOS:

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

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 tendras que hacer el codigo. en los comand de calcular haremos la formula de cada area 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 nuestro segundo programa.

5 comentarios:

Sergio Andrés Matos dijo...

ola como esta me gustaria para ver si me podria dar informacion en como cambiar de peso a dolar con visual basic 6.0 y como calcular el area, perimetro y volumen de un cubo en visual basic 6.0 por favor ayudame pliss!!

SIERVO DE DIOS dijo...

buenos dias me podrias ayudar con un ejercicio de visual basic usando combobox y que el la lista de combo box esten las opciones area de un triangulo y area de un cilindro y que las pueda calcular dime si puedes

Gabo dijo...

Hola ustedes podrian enviarme el proyecto finalizado, pues hay paso que no estan bien especificados mi correo es gigabrieljimenez@gmail.com

Walter B.Rodriguez dijo...

hola en la interfas se ve solo un Commandbuton...??? explica porfa

Yessi Villalobos dijo...
Este comentario ha sido eliminado por el autor.