Practica 11

Guía práctica # 11: 

PROCEDIMIENTOS Y FUNCIONES EN VB .NET 

Objetivos: 

 Practicar el uso de procedimientos y funciones 

 Diferenciar funciones de procedimientos

1. Escriba un procedimiento que imprima la hora actual. 

Module Module1

Sub Main()

hora()

Console.ReadLine()

End Sub

Sub hora()

Console.WriteLine("Hora actual: " & TimeOfDay)

End Sub

End Module

2. Escriba una aplicación que capture un texto por teclado y que posea un procedimiento para mostrar el texto capturado en mayúsculas y color rojo y otro procedimiento para mostrarlo en minúsculas y color amarillo. 

Module Module2
Sub Main()
Dim t As String
Console.WriteLine("Ingrese un texto:")
t = Console.ReadLine()
Console.WriteLine()
Rojo(t)
Ama(t)
Console.ReadLine()
End Sub

Sub Rojo(ByVal texto As String)
Console.Write("En rojo y mayúsculas: ")
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine(texto.ToUpper)
End Sub

Sub Ama(ByVal texto As String)
Console.ForegroundColor = ConsoleColor.Gray
Console.Write("En amarillo y minusculas: ")
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine(texto.ToLower)
End Sub
End Module

3. Escriba una aplicación para capturar el número de teléfono de 5 participantes y que posea un procedimiento que seleccione e imprima de forma aleatoria el número de teléfono ganador. 

Module Module3
Sub Main()
Console.WriteLine("Escoja al ganador del concurso.")
Console.WriteLine("Ingrese lol 5 números de telefono que participan:")
Azar()
Console.ReadLine()
End Sub

Sub Azar()
Dim t(4) As String
For i = 0 To 4
t(i) = Console.ReadLine()
Next
Dim re As New Random()
Dim n As Integer
 n = re.Next(0, 5)
Console.WriteLine()
Console.Write("El numero de telefono ganador es: " & t(n))
End Sub
End Module

4. Escriba una función para calcular el valor a pagar a un empleado por servicios, capturando por teclado el nombre y horas trabajadas, estableciendo el valor de la hora a $ 6.50 

Module Module4
Sub Main()
Dim hora As Decimal
Console.WriteLine("¿Cuanto deben pagarle por hora?")
Console.WriteLine()
Console.Write("¿Cuantas horas a trabajado?")
hora = Console.ReadLine
Console.WriteLine()
Console.WriteLine("Se le pagara: $" & paga(hora) & " por horas trabajadas.")
Console.ReadLine()
End Sub

Function paga(ByVal x As Integer) As Decimal
Return x * 6.5
End Function
End Module

5. Escriba una función que indique si un año capturado por teclado es o no es bisiesto. 

Module Module5
Sub Main()
Dim año As Integer
Console.WriteLine("Año bisiesto o no.")
Console.WriteLine()
Console.Write("Ingrese el año: ")
año = Console.ReadLine()
Console.WriteLine()
Console.WriteLine(añob(año))
Console.ReadLine()
End Sub

Function añob(ByVal x As Integer)
If (x Mod 4 = 0) And ((x Mod 100 <> 0) Or (x Mod 400 = 0)) Then
Return "El año si es bisiesto"
Else
Return "El año no es bisiesto"
 End If
End Function
End Module

6. Escriba una función que retorne el mayor de dos números ingresados por teclado. 

Module Module6
Sub Main()
Dim n1, n2 As Integer
Console.WriteLine("El programa vere cual numero es mayor.")
Console.WriteLine("Ingrese los dos numeros:")
n1 = Console.ReadLine
n2 = Console.ReadLine
Console.WriteLine()
Console.Write("El número mayor es: " & M(n1, n2))
Console.ReadLine()
End Sub

Function M(ByVal x As Integer, ByVal y As Integer)
If x > y Then
Return x
Else
Return y
End If
End Function
End Modulee

7. Escriba una función que retorne si un número capturado por teclado es par o impar. 

Module Module7
Sub Main()
Dim k As Integer
Console.WriteLine("Descubra si el número es par o impar")
Console.WriteLine()
Console.Write("Ingrese un número: ")
k = Console.ReadLine()
Console.WriteLine()
Console.Write("Su numero es" & PI(k))
Console.ReadLine()
End Sub

Function PI(ByVal x As Integer) As String
If x Mod 2 = 0 Then
Return " par."
Else
Return " impar."
End If
End Function
End Module

8. Escriba una función que retorne el factorial de un número capturado por teclado. 

Module Module8
Sub Main()
Dim num As Integer
Console.WriteLine("El factorial de su número")
Console.ReadLine()
Console.Write("Introduzca su número: ")
num = Integer.Parse(Console.ReadLine())
For i = num To 1
Console.Write(num & "x" & (num - 1))
Next
Console.WriteLine()
Console.WriteLine(num & "! = " & fac(num))
Console.Read()
End Sub

Function fac(ByVal num) As Integer
If num = 1 Then
Return num
Else
Return num * fac(num - 1)
End If
End Function
End Module

9. Escriba una aplicación para calcular la nota final de un alumno, utilizando el sistema de evaluación de la materia programación I, crear una sola función que permita calcular la nota promedio de cada periodo. 

Module Module9
Sub Main()
Dim n1, n2, n3, pr1, pr2, pr3, final As Decimal
Console.WriteLine("Calcularemos su notas(25% 25% y 50%).")
Console.WriteLine("Calcule su nota final:")
Console.WriteLine()
Console.WriteLine("Notas Periodo 1")
Console.WriteLine("Ingrese nota 1")
n1 = Console.ReadLine()
Console.WriteLine("Ingrese nota 2")
n2 = Console.ReadLine()
Console.WriteLine("Ingrese nota 3")
n3 = Console.ReadLine()
pr1 = prom(n1, n2, n3)
Console.WriteLine("Notas Periodo 2")
Console.WriteLine("Ingrese nota 1")
n1 = Console.ReadLine()
Console.WriteLine("Ingrese nota 2")
n2 = Console.ReadLine()
Console.WriteLine("Ingrese nota 3")
n3 = Console.ReadLine()
pr2 = prom(n1, n2, n3)
Console.WriteLine("Notas Periodo 3")
Console.WriteLine("Ingrese nota 1")
n1 = Console.ReadLine()
Console.WriteLine("Ingrese nota 2")
n2 = Console.ReadLine()
Console.WriteLine("Ingrese nota 3")
n3 = Console.ReadLine()
pr3 = prom(n1, n2, n3)
Console.Clear()
Console.WriteLine("Nota Final.")
Console.WriteLine()
Console.WriteLine("Periodo 1: " & pr1)
Console.WriteLine("Periodo 2: " & pr2)
Console.WriteLine("Periodo 3: " & pr3)
final = (pr1 + pr2 + pr3) / 3
Console.WriteLine()
Console.WriteLine("Nota final: " & FormatNumber(final, 1))
Console.ReadLine()
End Sub

Function prom(ByVal x As Decimal, ByVal y As Decimal, ByVal z As Decimal)
Dim total As Decimal
total = ((x * 0.25) + (y * 0.25) + (z * 0.5))
Return FormatNumber(total, 1)
End Function
End Module

10. Escribir una aplicación que capture por teclado 4 números y posea 3 funciones de nombre sumar pero que la primera permita sumar 2 números, la segunda 3 y la cuarta 4 números.

Module Module10
Sub Main()
Dim n1, n2, n3, n4 As Integer
Console.WriteLine("Ingrese los números a sumar")
n1 = Console.ReadLine()
n2 = Console.ReadLine()
n3 = Console.ReadLine()
n4 = Console.ReadLine()
Console.Clear()
Console.WriteLine("Demostrando de la funcion:")
Console.WriteLine()
Console.WriteLine("Sumando 4 números: " & suma(n1, n2, n3, n4))
Console.WriteLine("Sumando 3 números: " & suma(n1, n2, n3))
Console.WriteLine("Sumando 2 números: " & suma(n1, n2))
Console.ReadLine()
End Sub

Function suma(ByVal x As Integer, ByVal y As Integer) As Integer
Return x + y
End Function

Function suma(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
Return x + y + z
End Function

Function suma(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer, ByVal a As Integer) As Integer
Return x + y + z + a
End Function
End Module

Descargar proyecto