UNIVERSIDAD AUTÓNOMA DE NUEVO LEÓN
FACULTAD DE INGENIERÍA MECÁNICA Y
ELÉCTRICA
Programación Visual
AF5: “Interfaz Avanzada”
Nombre del Maestro: M.A. Missael Antonio Guevara Correa
Grupo: 03
Hora: N3
Alumno Matricula Carrera
Jahaziel Esau Reyna Casas 1912539 IAS
Yusara Hernández González 1861903 IAS
Alondra Janette Salas Borrego 2035605 IAS
Adela Carolina Guerrero Cabrera 1622133 IAS
Roberto Hernández Martínez 1963546 IME
Cd. Universitaria, San Nicolás de los Garza, Nuevo León
24 de Noviembre de 2023
Interfaz Avanzada
Interfaz
Código
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim num1 As Double = ObtenerNumero("primer número")
Dim num2 As Double = ObtenerNumero("segundo número")
Dim resultado As Double = num1 + num2
MostrarResultado("suma", resultado)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
Dim num1 As Double = ObtenerNumero("primer número")
Dim num2 As Double = ObtenerNumero("segundo número")
Dim resultado As Double = num1 - num2
MostrarResultado("resta", resultado)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
Dim num1 As Double = ObtenerNumero("primer número")
Dim num2 As Double = ObtenerNumero("segundo número")
Dim num3 As Double = ObtenerNumero("tercer número")
Dim resultado As Double = num1 * num2 * num3
MostrarResultado("multiplicación", resultado)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]
Dim num1 As Double = ObtenerNumero("dividendo")
Dim num2 As Double = ObtenerNumero("divisor")
If num2 <> 0 Then
Dim resultado As Double = num1 / num2
MostrarResultado("división", resultado)
Else
[Link]("No se puede dividir por cero.", "Error de división",
[Link], [Link])
End If
End Sub
Private Function ObtenerNumero(nombreNumero As String) As Double
Dim numero As Double
Dim entrada As String = InputBox($"Ingrese el {nombreNumero}:", $"Número
{nombreNumero}")
If [Link](entrada, numero) Then
Return numero
Else
[Link]("Por favor, ingrese un número válido.", "Error de entrada",
[Link], [Link])
Return ObtenerNumero(nombreNumero)
End If
End Function
Private Sub MostrarResultado(nombreOperacion As String, resultado As Double)
[Link] = $"El resultado de la {nombreOperacion} es: {resultado:F2}."
End Sub
End Class
Funcionamiento
Conclusión
En conclusión, la creación de esta interfaz que define un menú con cuatro opciones distintas
proporciona una plataforma interactiva y versátil para llevar a cabo operaciones matemáticas
básicas. Este diseño ofrece a los usuarios la posibilidad de realizar cálculos específicos según
sus necesidades, brindando una experiencia intuitiva y eficiente. A través de cada opción del
menú, se pueden realizar operaciones fundamentales como suma, resta, multiplicación y
división, abordando así una variedad de escenarios y situaciones.
La opción 1 permite calcular la suma de dos números, proporcionando una funcionalidad
esencial para aquellos que necesitan realizar rápidamente esta operación matemática
fundamental. La opción 2, por otro lado, facilita la tarea de restar dos números, ofreciendo
una herramienta útil para situaciones en las que se requiere determinar la diferencia entre
dos cantidades.
La opción 3, que calcula la multiplicación de tres números, amplía la versatilidad de la interfaz
al abordar operaciones más complejas. Esto puede ser útil en contextos donde se requiere
determinar el resultado de la multiplicación de varios valores simultáneamente.
Finalmente, la opción 4 permite calcular la división de dos números, brindando una función
esencial para situaciones en las que se necesite determinar la proporción o distribución de
una cantidad en relación con otra.
Esta interfaz de menú ofrece a los usuarios un acceso fácil y eficiente a diversas operaciones
matemáticas, proporcionando una herramienta valiosa para realizar cálculos básicos y
avanzados de manera rápida y precisa. La inclusión de múltiples opciones garantiza la utilidad
de la interfaz en una variedad de contextos, convirtiéndola en una herramienta versátil y
accesible para usuarios de diferentes niveles de habilidad y necesidades matemáticas.
