PRACTICA #10

ESTRUCTURAS DE CONTROL EN VB .NET 

Objetivos: 

• Practicar las estructuras de control de selección.
•  Practicar las estructura de control de repetición.

1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada. 

código: 
Module Module1

    Sub Main()
        Dim venta As Decimal
        System.Console.Write("ingrese la cantidad de venta:$ ")
        venta = Console.ReadLine()
        If venta > 25000 Then
            Console.WriteLine("meta superada")
        Else
            Console.WriteLine("meta no superada")

        End If
        Console.ReadLine()
    End Sub


End Module

3. Capturar la edad de una persona, determinar e imprimir si es o no mayor de edad. 

código: 

Module Module2

    Sub main()

        Dim edad As Decimal

        Console.Write("ingrese su edad:")

        edad = Console.ReadLine()

        If edad >= 18 Then

            Console.WriteLine("usted es mayor de edad")

        Else

            Console.WriteLine("usted es menor de edad")

        End If

        Console.ReadLine()

    End Sub

End Module

5. Capturar por teclado 3 números enteros y determinar cuál es el mayor

código:

Module Module3

    Sub main()

        Dim n1, n2, n3 As Decimal

        Console.Write("ingrese numero 1: ")

        n1 = Console.ReadLine()

        Console.Write("ingrese numero 2: ")

        n2 = Console.ReadLine()

        Console.Write("ingrese numero 3: ")

        n3 = Console.ReadLine()

     

        If n1 > n2 And n1 > n3 Then

            Console.WriteLine("el numero mayor es: " & n1)

        ElseIf n2 > n1 And n2 > n3 Then

            Console.WriteLine("el numero mayor es: " & n2)

        Else

            Console.WriteLine("el numero mayor es: " & n3)

        End If

        Console.ReadLine()

    End Sub

End Module

7. Capturar un número por teclado e imprimir si dicho número es primo o no.

código: 

Module module4

    Sub main()

        Dim n As Integer

        Dim compro As Boolean = True

        Console.Write("escribir un numero")

        n = Console.ReadLine()

        For i As Integer = 2 To n = 1

            If n Mod 1 = 0 Then

            End If

        Next

        If compro = False Then

            Console.WriteLine("el numero ingresado no es primo")

        Else

            Console.WriteLine("el numero ingresado es primo")

        End If

        Console.ReadLine()

    End Sub

End Module

9. Mostrar los números del 1 al 100

código: 

Module Module5

    Sub main()

        Dim numero As Decimal

        Console.WriteLine("primeros 100 numeros")

        For i = 1 To 100 Step 1

            Console.WriteLine("numero" & i)

        Next

        Console.ReadLine()

    End Sub

End Module

11. Capturar 10 números enteros, calcular e imprimir el cubo de la suma de los números capturados.

código: 

Module Module6
    Sub Main()
        Dim n, num, total As Integer
        total = 0
        Console.WriteLine("Ingrese 10 numeros:")
        For n = 1 To 10
            num = Console.ReadLine()
            total = total + num
        Next
        Console.WriteLine()
        Console.WriteLine("El cubo de la suma de los numeros ingresados es: " & (total ^ 3))
        Console.ReadLine()
    End Sub
End Module

13. Capturar la nota promedio y el promedio de asistencia de una cantidad de estudiantes especificada por el usuario 

a través del teclado, calcular e imprimir cuantos aprobaron la materia, cuantos harán complementario y cuantos 

reprobaron. 

código:

Module Module7
    Sub Main()
        Dim n, P, A, total As Decimal
        Dim apro, comple, repro As Integer
        apro = 0
        comple = 0
        repro = 0
        Console.Write("Ingrese la cantidad de estudiantes: ")
        n = Console.ReadLine()
        Console.WriteLine()
        For i = 1 To n
            Console.WriteLine("Estudiante " & i)
            Console.Write("Nota promedio: ")
            P = Console.ReadLine()
            Console.Write("Promedio de asistencia: ")
            A = Console.ReadLine()
            Console.WriteLine()
            total = (P + A) / 2
            If total >= 6 Then
                apro = apro + 1
            Else
                If total >= 5 And total <= 5.99 Then
                    comple = comple + 1
                Else
                    If total < 5 Then
                        repro = repro + 1
                    End If
                End If
            End If
        Next
        Console.WriteLine()
        Console.WriteLine("Nº Aprovados: " & apro)
        Console.WriteLine("Nº Complementarios: " & comple)
        Console.WriteLine("Nº Reprovados: " & repro)
        Console.ReadLine()
    End Sub
End Module

15. Escriba un programa para generar 5 tablas de multiplicar de números aleatorios entre 20 y 50. 

código:

Module Module8

    Sub Main()
        Dim i, n, tabla, resp As Integer
        Console.WriteLine("Generando 5 tablas de multiplicar aleatorias entre los numeros de 20 y 50")
        Console.WriteLine()
        Randomize()
        Do Until tabla = 5
            n = CInt(Int(50 - 20 + 1) * Rnd() + 20)
            For i = 1 To 10
                resp = n * i
                Console.WriteLine(n & "x" & i & " = " & resp)
            Next
            Console.WriteLine()
            tabla = tabla + 1
        Loop
        Console.ReadLine()
    End Sub 

End Module 

17. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.

código: 

Module Module9
    Sub Main()
        Dim telefono As String
        Dim pares, impar As Integer
        pares = 0
        impar = 0
        Console.WriteLine("calcule cuantos números pares e impares posee su numero telefónico")
        Console.Write("Ingrese su número de telefono: ")
        telefono = Console.ReadLine()
        Console.WriteLine()
        For i = 0 To telefono.Length - 1
            If telefono.Substring(i, 1) Mod 2 = 0 Then
                pares = pares + 1
            Else
                impar = impar + 1
            End If
        Next
        Console.Write("Pares: ")
        For i = 0 To telefono.Length - 1
            If telefono.Substring(i, 1) Mod 2 = 0 Then
                Console.Write(telefono.Substring(i, 1) & " ")
            End If
        Next
        Console.WriteLine()
        Console.Write("Impares: ")
        For i = 0 To telefono.Length - 1
            If telefono.Substring(i, 1) Mod 2 <> 0 Then
                Console.Write(telefono.Substring(i, 1) & " ")
            End If
        Next
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine("Números pares: " & pares)
        Console.WriteLine("Números impares: " & impar)
        Console.ReadLine()
    End Sub
End Module

19. Escriba un programa que proporcione al usuario un menú con las siguientes opciones de conversión de decimal a 

[1] binario, [2] octal, [3] hexadecimal y [4] salir. 

código: 

Module Module10
    Sub Main()
        Dim op, num As Integer
        Dim a, b, c As String
        Console.WriteLine("Conversor Decimal a otras bases numéricas v2.0")
        Console.WriteLine()
        Console.WriteLine("¿A que base desea convertir?")
        Console.WriteLine("[1] Binario")
        Console.WriteLine("[2] Octal")
        Console.WriteLine("[3] Hexadecimal")
        Console.WriteLine("[4] Salir")
        Console.Write("Su opción es: ")
        op = Console.ReadLine()
        If op = 4 Then Exit Sub
        Console.WriteLine
        Console.Write("Ingrese número en base 2 a convertir: ")
        num = Console.ReadLine()
        Console.Clear()
        Select Case op
            Case 1
                Console.WriteLine("Convirtiendo " & num & " a Binario..")
                Do Until num < 2
                    b = b & CStr(num Mod 2)
                    num = Int(num / 2)
                Loop
                b = b & num
                c = StrReverse(b)
                Console.WriteLine()
                Console.WriteLine("Respuesta: " & c)
            Case 2
                Console.WriteLine("Convirtiendo " & num & " a Octal..")
                num = Oct(num)
                Console.WriteLine()
                Console.WriteLine("Respuesta: " & num)
            Case 3
                Console.WriteLine("Convirtiendo " & num & " a Hexadecimal..")
                a = Hex(num)
                Console.WriteLine()
                Console.WriteLine("Respuesta: " & a)
        End Select
       Console.ReadLine()
    End Sub
End Module

Read More

practica #9

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

Read More