PROGRAMACIÓN 1

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

Ejercicios a resolver: deberá colocar en el e-portafolio el enunciado del ejercicio y el código en Visual Basic .NET de los ejercicios pares o impares.

 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.

Module Module1

    Sub Main()
        hora()
        Console.ReadLine()
    End Sub
    Sub hora()
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine("hora actual es " & TimeOfDay)
    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 Module1

    Sub Main()
        Console.WriteLine("seleccione el telefono ganador")
        Console.WriteLine("escriba los 5 numeros de telefono")
        num()
        Console.ReadLine()
    End Sub
    Sub num()
        Dim t(4) As Integer
        For i = 0 To 4
            t(i) = Console.ReadLine
        Next
        Dim re As New Random
        Dim n As Integer
        n = re.Next(0, 4)
        Console.WriteLine("el numero ganador es " & t(n))
    End Sub
End Module

5. Elaborar una aplicación para simular un cajero automático, que solicite la cantidad de dinero a retirar (debe ser múltiple de 5) y que envíe dicho valor a un procedimiento que muestre la cantidad de billetes de cada denominación a entregar al usuario (Pueden ser únicamente billetes de $20, $10 y $5 dólares).

Module Module2
    Sub main()
        Dim din As Integer
        Console.WriteLine("cantidad de dinero a retirar es")
        din = Console.ReadLine
        If din Mod 5 = 0 Then
            vuelto(din)
        Else
            Console.WriteLine("la cantidad debe ser multiplo de 5")
        End If
        Console.ReadLine()
    End Sub
    Sub vuelto(ByVal din As Integer)
        Dim billetes5 As Integer
        Dim billetes10 As Integer
        Dim billetes20 As Integer
        While din >= 20
            billetes20 = billetes20 + 1
            din = din - 20
        End While
        While din >= 10
            billetes10 = billetes10 + 1
            din = din - 10
        End While
        While din >= 5
            billetes5 = billetes5 + 1
            din = din - 5
        End While
        If din = 0 Then
            Console.WriteLine("billetes de 20 son= $" & billetes20)
            Console.WriteLine("billetes de 10 son= $" & billetes10)
            Console.WriteLine("billetes de 5 son= $" & billetes5)
        End If
    End Sub

End Module

7. 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 Module3
    Sub main()
        Dim n1, n2, n3, pr1, pr2, pr3, nfinal As Decimal
        Console.WriteLine("notas periodo 1")
        Console.WriteLine("nota 1   (25%)")
        n1 = Console.ReadLine
        Console.WriteLine("nota 2   (25%)")
        n2 = Console.ReadLine
        Console.WriteLine("nota 3   (50%)")
        n3 = Console.ReadLine
        pr1 = prom(n1, n2, n3)
        Console.Clear()
        Console.WriteLine("notas periodo 2")
        Console.WriteLine("nota 1   (25%)")
        n1 = Console.ReadLine
        Console.WriteLine("nota 2   (25%)")
        n2 = Console.ReadLine
        Console.WriteLine("nota 3   (50%)")
        n3 = Console.ReadLine
        pr2 = prom(n1, n2, n3)
        Console.Clear()
        Console.WriteLine("notas periodo 3")
        Console.WriteLine("nota 1    (25%)")
        n1 = Console.ReadLine
        Console.WriteLine("nota 2    (25%)")
        n2 = Console.ReadLine
        Console.WriteLine("nota 3    (50%)")
        n3 = Console.ReadLine
        pr3 = prom(n1, n2, n3)
        nfinal = (pr1 + pr2 + pr3) / 3
        Console.WriteLine("promedio final es= " & nfinal)
        Console.ReadLine()
    End Sub
    Function prom(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) As Decimal
        Dim total As Decimal
        total = ((a * 0.25) + (b * 0.25) + (c * 0.5))
        Return FormatNumber(total, 1)

    End Function
End Module