Programa Sencillo en Visual Basic
Cargado por
A BPrograma Sencillo en Visual Basic
Cargado por
A BUniversidad Tecnológica de
Panamá
Centro Regional De Veraguas
Facultad de Ingeniería de Sistemas
Computacionales
Curso: Herramientas de Programación Aplicada
III
Profesora: Milka de Escobar
Informe de asignación 2
Estudiantes
Elbin Puga, Arland Barrera
2024
Contenido
1 Introducción 4
2 Desarrollo 5
3 Conclusiones 10
4 Consideraciones Finales 11
2
Lista de figuras
2.1 Interfaz Gráfica . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7
2.2 Interfaz Gráfica . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
2.3 Control de error . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9
3
Introducción
En esta asignación se desarrolló un programa que calcula el área y el perímetro
de dos figuras geométricas: el trapecio y el triángulo. El objetivo principal fue
aplicar los conocimientos adquiridos en el curso de Herramientas de Programación
Aplicada III, utilizando herramientas básicas de interfaz gráfica como Textbox para
la entrada de datos y Label para mostrar los resultados. Este tipo de aplicación
refuerza conceptos de geometría, así como habilidades de programación orientada
a objetos y diseño de interfaces de usuario.
El programa fue diseñado para ser lo suficientemente flexible y fácil de usar, per-
mitiendo que los usuarios ingresen las dimensiones correspondientes de cada figura
geométrica y obtengan los resultados de manera inmediata. Además, se aplicaron
fórmulas conocidas para el cálculo del área y el perímetro, utilizando tanto opera-
ciones aritméticas simples como teoremas más complejos, como el de Pitágoras,
en el caso del trapecio.
4
Desarrollo
Se realizó un programa que calcula el área y perímetro de dos figuras geométri-
cas: el trapecio y triángulo. Para ello se reciben datos del usuario mediante la
herramienta Textbox y se muestran los resultados mediante la herramienta Label.
Trapecio: para calcular el área se utilizó la fórmula del área del trapecio. Para el
perímetro se calculó la longitud del lado diagonal mediante el teorema de pitágoras
y se sumó con los otros 2 lados y la base.
Área del trapecio:
Altura1 + Altura2
Área = ∗ Base
2
Perímetro del trapecio:
P erímetro = Lado1 + Lado2 + Base + Lado3
Triángulo: para calcular el área se emplea la fórmula de área del triángulo. Para
el perímetro se suman los dos lados y la base.
Área del triángulo:
Base ∗ Altura
Área =
2
Perímetro del triángulo:
P erímetro = Lado1 + Lado2 + Base
5
Código del programa:
2 Public Class Form1
3 Private Sub BtnSolucionar_Click ( sender As Object , e As
EventArgs ) Handles BtnSolucionarTrapecio . Click
4 Dim dblAlturaMayor , dblAlturaMenor As Double
5 dblAlturaMayor = Convert . ToDouble ( txtAlturaMayor . Text )
6 dblAlturaMenor = Convert . ToDouble ( txtAlturaMenor . Text )
7 If dblAlturaMayor <= dblAlturaMenor Then
8 If lblErrorMayorMenor . Text <> " " Then
9 Else
10 lblErrorMayorMenor . Text = " * Las alturas no
corresponden "
11 End If
12 Else
13 If lblErrorMayorMenor . Text <> " " Then
14 lblErrorMayorMenor . Text = " "
15 End If
16 Dim dblArea , dblBase , dblCateto , dblHipotenusa ,
dblPerimetro As Double
17 dblAlturaMayor = Convert . ToDouble ( txtAlturaMayor .
Text )
18 dblAlturaMenor = Convert . ToDouble ( txtAlturaMenor .
Text )
19 dblBase = Convert . ToDouble ( txtBase . Text )
20 dblCateto = dblAlturaMayor - dblAlturaMenor
21 dblHipotenusa = Math . Sqrt ( Math . Pow ( dblBase , 2) +
Math . Pow ( dblCateto , 2) )
22 dblPerimetro = Math . Round ( dblAlturaMayor +
dblAlturaMenor + dblBase + dblHipotenusa , 2)
23 dblArea = Math . Round ((( dblAlturaMayor +
dblAlturaMenor ) / 2) * dblBase , 2)
24 txtArea . Text = dblArea . ToString ()
25 txtPerimetro . Text = dblPerimetro . ToString ()
26 lblCatetoTrapecio . Text = Convert . ToString ( Math .
Round ( dblCateto , 2) )
27 lblAlturaMayorTrapecio . Text = Convert . ToString ( Math
. Round ( dblAlturaMayor , 2) )
28 lblAlturaMenorTrapecio . Text = Convert . ToString ( Math
. Round ( dblAlturaMenor , 2) )
29 lblBaseTrapecio . Text = Convert . ToString ( Math . Round (
dblBase , 2) )
6
30 lblCatetoTrapecio . Text = Convert . ToString ( Math .
Round ( dblCateto , 2) )
31 lblHipotenusaTrapecio . Text = Convert . ToString ( Math .
Round ( dblHipotenusa , 2) )
32 End If
33 End Sub
34 Private Sub Button1_Click ( sender As Object , e As EventArgs )
Handles btnSolucionarTriamgulo . Click
35 Dim b , h , l1 , l2 , area , perimetro As Double
36 b = txtBaseTriangulo . Text
37 h = txtAlturaTriangulo . Text
38 area = ( b * h ) / 2
39 l1 = txtLado1Triangulo . Text
40 l2 = txtLado2Triangulo . Text
41 perimetro = l1 + l2 + b
42 txtAreaTriangulo . Text = area
43 txtPerimetroTriangulo . Text = perimetro
44 End Sub
45 End Class
Captura de ejecución:
Figura 2.1: Interfaz Gráfica
Fuente: Propia
7
Figura 2.2: Interfaz Gráfica
Fuente: Propia
8
Figura 2.3: Control de error
Fuente: Propia
9
Conclusiones
A través de la realización de este programa, se logró implementar con éxito las
fórmulas matemáticas para el cálculo del área y el perímetro del trapecio y el
triángulo. La interfaz gráfica del programa permitió una interacción sencilla con
el usuario, mejorando la experiencia de uso mediante una clara disposición de los
campos de entrada y la visualización de resultados.
Además, el proyecto reforzó la importancia de validar los datos de entrada. Por
ejemplo, se implementaron controles para asegurar que la altura mayor del trapecio
fuera siempre superior a la menor, evitando así resultados incorrectos. Este ejer-
cicio permitió aplicar tanto principios de geometría como habilidades de progra-
mación esenciales para el desarrollo de software práctico.
10
Consideraciones Finales
Este tipo de ejercicios proporciona una base sólida para la comprensión y aplicación
de algoritmos matemáticos dentro de un contexto de programación. A medida
que se avanza en la carrera de Ingeniería en Sistemas, la habilidad para traducir
conceptos teóricos en soluciones automatizadas mediante el uso de herramientas
de programación se vuelve cada vez más relevante.
Es importante señalar que, en futuros desarrollos, se podrían añadir más figuras
geométricas para ampliar la funcionalidad del programa. Asimismo, la interfaz
podría mejorarse mediante el uso de gráficos para representar las figuras geométri-
cas basadas en los datos ingresados por el usuario, haciendo la herramienta más
interactiva y visual.
11
