Ejercicio de Subrutinas y Funciones

Clase .NET

Ejercicio de Subrutinas y Funciones

'Este es un ejemplo de Subrutina y funcion
'Escribir un programa en el cual tenga un menu (a, b, c, d, e).
'La opcion a: Nos dara la suma, b la diferencia, c el producto, d el resultado de la ecuacion x^2 + y ^2, e: Se sale del programa.
'Usar una sola funcion la cual recibira el tipo de operacion a realizar
'Usar una Subrutina la cual simplificara el uso de Console.WriteLine
'El programa permanecera ciclado hasta que el usuario presione 'e' para salir
'Usar funcion matematica Math.Pow (Double, Double)


Module Module1

Sub Main()

Dim opc As Char
Dim Resultado As Integer
Do While opc <> "e"
ConsolaS("a ). La suma de dos numeros")
ConsolaS("b ). La diferencia de dos numeros")
ConsolaS("c ). El producto de dos numeros")
ConsolaS("d ). El Resultado de la ecuacion x^2 + y^2")
ConsolaS("e ). Salir del programa")
ConsolaS("Selecciona la opcion correcta")
opc = Console.ReadLine()
Select Case opc
Case "a"
Resultado = operacion("Suma")
ConsolaS("La Suma de los dos numeros es: " & Resultado.ToString())
Case "b"
Resultado = operacion("diferencia")
ConsolaS("La Diferencia de los dos numeros es: " & Resultado.ToString())
Case "c"
Resultado = operacion("producto")
ConsolaS("El Producto de los dos numeros es: " & Resultado.ToString())
Case "d"
Resultado = operacion("ecuacion")
ConsolaS("El Producto de los dos numeros es: " & Resultado.ToString())
Case "e"
ConsolaS("Salir del Programa")
End
Case Else
ConsolaS("No fue la opcion correcta")
End Select
Loop

End Sub
Sub ConsolaS(ByVal mensaje As String)
Console.WriteLine(mensaje)
End Sub

Function operacion(ByVal Toperacion As String) As Integer
Dim Resultado As Integer
Dim x As Double, y As Double

ConsolaS("Dame el primer valor:")
x = Console.ReadLine()
ConsolaS("Dame el segundo valor:")
y = Console.ReadLine()

If Toperacion = "Suma" Then
Return x + y
ElseIf Toperacion = "diferencia" Then
Return x - y
ElseIf Toperacion = "producto" Then
Return x * y
Else
Return Math.Pow(x, 2) + Math.Pow(y, 2)
End If

End Function

End Module