INTRODUCCIÓN AL IDE DE VS .NET Y AL DESARROLLO DE
APLICACIONES DE CONSOLA EN VISUAL BASIC .NET
Objetivos:
- Identificar las distintas partes del IDE
- Hacer uso del IDE, para crear aplicaciones de consola
- Depurar y ejecutar aplicaciones
- Crear aplicaciones de consola en Visual Basic .NET
- Identificar la estructura de una aplicación de consola
- Practicar los miembros principales de las clases Console y String.
Ejercicios:
1. Crear una aplicación que imprima en pantalla su nombre completo.
código:
Module Module1
Sub Main()
Console.WriteLine("Jose Armando Pacheco Martinez")
Console.ReadLine()
End Sub
End Module
2. Elaborar una aplicación que almacene en variables el nombre de su mascota, especie y edad; y luego las muestre en pantalla.
código:
Module Module2
Sub Main()
Dim nombre, especie, edad As String
System.Console.Write("Nombre de Mascota: ")
nombre = System.Console.ReadLine()
System.Console.Write("Tipo de Especie: ")
especie = System.Console.ReadLine()
System.Console.Write("Edad de la Mascota: ")
edad = System.Console.ReadLine()
Console.WriteLine("El Nombre de su Mascota es " & nombre & " la Especie es " & especie & " y su Edad es " & edad & " Años")
Console.ReadLine()
End Sub
End Module
3. Elaborar una aplicación que capture un número entero positivo y que muestre la raíz cuadrada del número.
código:
Module Module3
Sub Main()
Dim numero, r As Decimal
System.Console.Write("Escriba un Numero para sacar su Raiz: ")
numero = System.Console.ReadLine()
r = (numero) ^ (1 / 2)
Console.WriteLine("La Raiz Cuadrada de su numero es: " & r)
Console.ReadLine()
End Sub
End Module
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.
código:
Module Module4
Sub Main()
Dim inv1, inv2, inv3, invtt As Decimal
Dim empr1, empr2, empr3 As String
System.Console.Write("Escriba el Nomre del Primer Empresario: ")
empr1 = System.Console.ReadLine()
System.Console.Write("Escriba la Cantidad Invertida: ")
inv1 = System.Console.ReadLine()
System.Console.Write("Escriba el Nombre del segundo Empresario: ")
empr2 = System.Console.ReadLine()
System.Console.Write("Escriba la Cantidad Invertida: ")
inv2 = System.Console.ReadLine()
System.Console.Write("Escriba el Nombre del tercer Empresario: ")
empr3 = System.Console.ReadLine()
System.Console.Write("Escriba la Cantidad Invertida: ")
inv3 = System.Console.ReadLine()
invtt = inv1 + inv2 + inv3
Console.WriteLine("Empresario : " & empr1)
Console.WriteLine("Inversion: " & inv1)
Console.WriteLine("Procentaje de Inversion: " & inv1 / invtt * 100)
Console.WriteLine("Empresario : " & empr2)
Console.WriteLine("Inversion: " & inv2)
Console.WriteLine("Procentaje de Inversion: " & inv2 / invtt * 100)
Console.WriteLine("Empresario : " & empr3)
Console.WriteLine("Inversion: " & inv3)
Console.WriteLine("Procentaje de Inversion: " & inv3 / invtt * 100)
Console.ReadLine()
End Sub
End Module
5. Crear una aplicación que capture 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 rojo el sueldo a pagar. Formatear las cantidades numéricas y monetarias.
código:
Module Module1
Sub Main()
Dim nombre, sueldo As String
Dim descuento As Decimal
System.Console.WriteLine("escriba nombre")
nombre = System.Console.ReadLine()
System.Console.WriteLine("ingrese sueldo")
sueldo = System.Console.ReadLine()
System.Console.WriteLine("nombre empleado: " & nombre)
System.Console.WriteLine("sueldo del empleado: " & sueldo)
Console.Clear()
Console.ForegroundColor = ConsoleColor.Blue
System.Console.WriteLine("nombre empleado: " & nombre)
System.Console.WriteLine("sueldo del empleado:$ " & sueldo)
Console.ForegroundColor = ConsoleColor.Yellow
System.Console.WriteLine("el descuento del seguro es: " & FormatCurrency(sueldo * 0.03))
System.Console.WriteLine("el descuento del afp: " & FormatCurrency(sueldo * 0.0625))
System.Console.WriteLine("el descuento de la renta es de: " & FormatCurrency( sueldo * 0.1))
Console.ForegroundColor = ConsoleColor.Red
descuento = (sueldo * 0.3)
System.Console.WriteLine("el total de sueldo con descuento es: " & FormatCurrency(sueldo - descuento))
Console.ReadLine()
End Sub
End Module
6. Elaborar una aplicación para capturar el nombre de una persona y luego sustituir las vocales que posea de la siguiente manera (* por a, % por e, $ por i, # por o, / por u) y mostrar el nuevo nombre.
código:
Module Module2
Sub main()
Dim nombre As String
Dim a, e, i, o, u As String
System.Console.Write("escriba su nombre: ")
nombre = Console.ReadLine()
system.console.writeline("las vocales se reemplazaran de la siguiente manera")
system.console.writeline("a se reemplazara por *")
system.console.writeline("e se reemplazara por %")
system.console.writeline("i se reemplazara por $")
system.console.writeline("o se reemplazara por #")
system.console.writeline("u se reemplazara por /")
nombre = Replace(nombre, "a", "*")
nombre = Replace(nombre, "e", "%")
nombre = Replace(nombre, "o", "$")
nombre = Replace(nombre, "a", "#")
nombre = Replace(nombre, "u", "/")
System.Console.WriteLine("nombre intercambiado: " & nombre)
Console.ReadLine()
End Sub
End Module
código:
Module Module2
Sub main()
Dim nombre As String
Dim a, e, i, o, u As String
System.Console.Write("escriba su nombre: ")
nombre = Console.ReadLine()
system.console.writeline("las vocales se reemplazaran de la siguiente manera")
system.console.writeline("a se reemplazara por *")
system.console.writeline("e se reemplazara por %")
system.console.writeline("i se reemplazara por $")
system.console.writeline("o se reemplazara por #")
system.console.writeline("u se reemplazara por /")
nombre = Replace(nombre, "a", "*")
nombre = Replace(nombre, "e", "%")
nombre = Replace(nombre, "o", "$")
nombre = Replace(nombre, "a", "#")
nombre = Replace(nombre, "u", "/")
System.Console.WriteLine("nombre intercambiado: " & nombre)
Console.ReadLine()
End Sub
End Module
