PRÁCTICA 9: 

INTRODUCCIÓN AL IDE DE VS .NET Y AL DESARROLLO DE
APLICACIONES DE CONSOLA EN VISUAL BASIC .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. Crear una aplicación que imprima en pantalla su nombre completo.  

    Sub Main()
        Console.WriteLine("Mario Josue Rivera Morales")
        Console.ReadLine()
    End Sub

2. Elaborar una aplicación que almacene en variables el nombre de su mascota, especie y edad; y luego las muestre en pantalla.


Sub Main()
        Dim nombre, especie As String
        nombre = "tuty"
        especie = "coquer"
        Dim edad As Integer
        edad = 11
        Console.WriteLine("Mi mascota se llama {0} y es {1} y tiene {2} años", nombre, especie, edad)
        Console.ReadLine()
    End Sub

3. Elaborar una aplicación que capture por teclado un número entero positivo y que muestre la raíz cuadrada del número.


Sub Main()
        Dim num As Double
        Dim n As Double
        Console.WriteLine("Coloque el numero ")
        num = Console.ReadLine()
        n = Math.Sqrt(num)
        Console.WriteLine("La respuesta es: " & n)
        Console.ReadLine()
    End Sub

4. Crear una aplicación que capture por teclado el nombre y la cantidad invertida por 3 empresarios, que muestre el nombre, cantidad invertida y el porcentaje de inversión que corresponde a cada uno.

Sub Main()
        Dim nombre As String
        Dim n1, n2, n3 As Double
        Dim s1, s2, s3 As Double
        Console.WriteLine("Los nombres de 3 empresarios: ")
        nombre = Console.ReadLine()
        nombre = Console.ReadLine()
        nombre = Console.ReadLine()
        Console.WriteLine("La cantidad invertida: $")
        s1 = Console.ReadLine()
        s2 = Console.ReadLine()
        s3 = Console.ReadLine()
        n1 = s1 * 0.3
        n2 = s2 * 0.3
        n3 = s3 * 0.3
        Console.WriteLine("El porcentaje de invercion del primer empresario es de: $" & n1)
        Console.WriteLine("El porcentaje de invercion del segundo empresario es de: $" & n2)
        Console.WriteLine("El porcentaje de invercion del tercer empresario es de: $" & n3)

        Console.ReadLine()

5. Crear una aplicación que capture por teclado el nombre del empleado y el sueldo, luego que limpie pantalla y muestre en color azul el nombre del empleado y el sueldo, y en color amarillo los descuentos de ISSS, Renta y AFP, y en color verde el sueldo a pagar. Formatear las cantidades numéricas y monetarias.


Sub Main()
        Dim nombre As String
        Dim sueldo, descuento, isss, renta, afp, total As Integer
        Console.WriteLine("coloca tu nombe: ")
        nombre = Console.ReadLine()
        Console.WriteLine("coloque su sueldo: $")
        sueldo = Console.ReadLine()
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("Su nombre es: " & nombre & "y su sueldo es: " & sueldo)
        Console.ForegroundColor = ConsoleColor.Yellow
        isss = FormatCurrency(sueldo * 0.15)
        Console.WriteLine("El descuento del ISSS: $" & isss)
        renta = FormatCurrency(sueldo * 0.2)
        Console.WriteLine("El descuento de la Renta: $" & renta)
        afp = FormatCurrency(sueldo * 0.1)
        Console.WriteLine("El descuento del AFP: $" & afp)
        Console.ForegroundColor = ConsoleColor.Green
        descuento = (FormatCurrency(sueldo * 0.3))
        total = FormatCurrency(sueldo - descuento)
        Console.WriteLine("El total es de: $" & total)
        Console.ReadLine()
    End Sub

6. Elaborar una aplicación para capturar por teclado el nombre de una persona y luego sustituir las vocales que posea de la siguiente manera (a por #, e por %, i por $, o por ?, u por *) y mostrar el nuevo nombre.


Sub Main()
        Dim nombre As String
        Console.WriteLine("Escriba su nombre completo: ")
        nombre = Console.ReadLine()
        nombre = nombre.Replace("a", "#")
        nombre = nombre.Replace("e", "%")
        nombre = nombre.Replace("i", "$")
        nombre = nombre.Replace("o", "?")
        nombre = nombre.Replace("u", "*")
        Console.WriteLine("Su nuevo nombre es: " & nombre)
        Console.ReadLine()
    End Sub

Conclusión: ahora con el lenguaje de programación de visual basic se ven nuevas formas para poder crear aplicaciones y usarlo mejor y de diferentes formas las variables que pongamos y hacer varias modificaciones al programa como cambiando el estilo, color y otras cosas mas que le podemos hacer a la aplicación que estamos creando.