PRÁCTICA 11:
PROCEDIMIENTOS Y FUNCIONES EN VB .NET

Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un 

módulo con un procedimiento principal por cada uno de los siguientes ejercicios.

1. Escriba un procedimiento que imprima la hora actual en color amarillo.

    Sub Main()

        textoamarillo()

        tiempo()

        Console.ReadLine()

    End Sub

    Sub textoamarillo()

        Console.ForegroundColor = ConsoleColor.Yellow

    End Sub

    Sub tiempo()

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

    End Sub

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.

    Sub Main()

        Console.WriteLine("Coloque el numero de telefono de 5 personas: ")

        Suerte()

        Console.ReadLine()

    End Sub

    Sub Suerte()

        Dim n(5) As String

        For nt = 1 To 5

            n(nt) = Console.ReadLine()

        Next

        Dim s As New Random()

        Dim t As Integer

        t = s.Next(1, 5)

        Console.WriteLine()

        Console.Write("El telefono ganador es: " & n(t))

    End Sub

5. Escriba una función que retorne una contraseña aleatoria formada por 4 dígitos y 4 

letras mayúsculas.

Sub Main()

        Console.WriteLine("Tu Contraseña es: " & l())

        Console.ReadLine()

    End Sub

    Function l() As String

        Dim num(10) As Integer

        Dim p1, p2 As String

        Dim n, r As New Random

        For k = 1 To 10

            num(k) = k

        Next

        For s = 1 To 4 Step 1

            p1 = p1 & Chr(r.Next(65, 90))

        Next

        For s = 1 To 4 Step 1

            p2 = p2 & num(n.Next(1, 10))

        Next

        Return p1 + p2

    End Function

7. Escriba una aplicación para capturar por teclado el número de horas trabajadas y que 

envíe dicho valor a una función que determine y retorne el valor a pagar, considerando 

que las primeras 160 horas trabajadas serán a $6.5 y el resto de horas a $7.5. 

Sub Main()

        Dim h As Decimal

        Console.WriteLine("Coloque las horas trabajadas: ")

        h = CDec(Console.ReadLine)

        Console.WriteLine("El Total  pagar es de: " & num(h))

        Console.ReadLine()

    End Sub

    Function num(n As Decimal) As Decimal

        Dim t As Decimal

        If n <= 160 Then

            t = CDec(n * 6.5)

        Else

            t = CDec((160 * 6.5) + (n - 160) * 7.5)

        End If

        Return t

    End Function

Conclusión: en esta parte aplicamos los procedimientos y las funciones pueden evitar el escribir mucho código, un ejemplo de ellos es cuando nos ayuda a dar la fecha de la computadora. Cada programador puede crear sus propias funciones y procedimientos y así evitar repetir código, ya que se puede llamar varias veces al mismo procedimiento o función como se puede ver en estos ejercicios.