VbNet 1----Programacion en Consola----Condicion If

mostrar el sueldo de un empleado por su cargo y categoria, si es gerente , si su categoria es "a" su sueldo será 2000 soles si su categoría es "b" su seldo será 1500.Si el cargo es obreo y su catagoría es "a"  su sueldo será 1000 soles y si su categoría es "b" su sueldo será 1500 soles

Module Module1
    Sub Main()
        Dim car, cat As String
        Dim sue As Double
        Console.Write("Ingrese Cargo:")
        car = Console.ReadLine
        Console.Write("Ingrese Categoria:")
        cat = Console.ReadLine
        If car = "gerente" And cat = "a" Then
            sue = 2000
        ElseIf car = "gerente" And cat = "b" Then
            sue = 1500
        ElseIf car = "obrero" And cat = "a" Then
            sue = 1000
        ElseIf car = "obrero" And cat = "b" Then
            sue = 1500
        End If
        Console.Write("Su sueldo es :" & sue)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Condicion If

Hallar el sueldo de un empleado segun su cargo y categoría, si su cargo es "Gerente" y pertenece a la categoría "a"  su sueldo es 2580 soles, recibirá una bonificación del 2% y tendrá un descuento del 1.8 %, si su categoría es "b" su sueldo será 2400 soles,recibirá una bonificación del 3% y tendrá un descuento del 2%, si su categoría es "c" su sueldo será 2350 soles, recibirá una bonificación del 1.2 % y tendrá un descuento del 1%.Si el cargo es "Obrero" y su categoría es "a" su sueldo será 2200 soles, recibirá una bonificación del 1.3% y tendrá un descuento del 1%, si su categoría es "b" su sueldo será 1800soles, recibirá una bonificación del 2% y tendrá un descuento del 2%, si su categoría es "c" su sueldo será 1000 soles , recibirá una bonificación del 2.1% y tendra un descuento del 2%

Module Module1
    Sub Main()
        Dim cargo, cat As String
        Dim su, boni, des, sn As Double
        Console.Write("ingrese cargo :")
        cargo = Console.ReadLine
        Console.Write("ingrese categoria :")
        cat = Console.ReadLine
        If cargo = "gerente" Then
            If cat = "a" Then
                su = 2580
                boni = su * 0.02
                des = su * 0.018
            ElseIf cat = "b" Then
                su = 2400
                boni = su * 0.03
                des = su * 0.02
            ElseIf cat = "c" Then
                su = 2350
                boni = su * 0.012
                des = su * 0.01
            End If
        ElseIf cargo = "obrero" Then
            If cat = "a" Then
                su = 2200
                boni = su * 0.013
                des = su * 0.01
            ElseIf cat = "b" Then
                su = 1800
                boni = su * 0.02
                des = su * 0.02
            ElseIf cat = "c" Then
                su = 1000
                boni = su * 0.021
                des = su * 0.02
            End If
        End If
        sn = su + boni - des
        Console.WriteLine("el sueldo es :" & su)
        Console.WriteLine("la bonificacion es :" & boni)
        Console.WriteLine("el descuento es :" & des)
        Console.Write("el sueldo neto es :" & sn)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Condicion If

hallar la resta de 2 números siempre y cuando el primero sea mayor que el segundo

Module Module1
    Sub Main()
        Dim x, y, z As Double
        Console.Write("ingrese #1 :")
        x = Console.ReadLine
        Console.Write("ingrese #2 :")
        y = Console.ReadLine
        If x < y Then
            Console.Write("EL PRIMER NUMERO DEBE DE SER MAYOR QUE EL SEGUNDO")
        Else
            z = x - y
            Console.Write("EL RESULTADO ES : " & z)
        End If
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Condicion If

hallar el valor total de la venta de boletos de viaje segun su destino y la cantidad de boletos a comprar. si el destino es "Usa" el boleto costará  1000 dolares y si la cantidad de boletos a comprar es mayor o igual a 5 se la hara un descuento del 4 %, si el destino es "España" el boleto costará 1200 y si la cantidad de boletos es mayor o igual  a 2 se la hará un descuento del 3%, si el destino es "Italia" el boleto costará 1100 dolares y si la cantidad de boletos es mayor o igual a 7 se la hara un descuento del 3.5%, si el destino es japon el boleto costará 2000 dolares y si la cantidad de boletos es mayor a 5 se le hara un descuento del 3.3%

Module Module1
    Sub Main()
        Dim destino As String
        Dim can, des, imp, ct As Double
        Console.Write("ingrese destino :")
        destino = Console.ReadLine
        Console.Write("ingrese cantidad :")
        can = Console.ReadLine
        If destino = "usa" Then
            imp = 1000 * can
            If can >= 5 Then
                des = imp * 0.04
            Else
                des = 0
            End If
        End If
        If destino = "españa" Then
            imp = 1200 * can
            If can >= 2 Then
                des = imp * 0.03
            Else
                des = 0
            End If
        End If
        If destino = "italia" Then
            imp = 1100 * can
            If can >= 7 Then
                des = imp * 0.035
            Else
                des = 0
            End If
        End If
        If destino = "japon" Then
            imp = 2000 * can
            If can > 5 Then
                des = imp * 0.033
            Else
                des = 0
            End If
        End If
        ct = imp - des
        Console.WriteLine("el importe es :" & imp)
        Console.WriteLine("el descuento es :" & des)
        Console.Write("el costo total es :" & ct)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Condicion If

hallar el valor total de la venta de un producto ingresando el nombre del producto y la cantidad a comprar, si es cocina su valor es 3500, si es lavadora su valor es  2800 , si es radio  su valor es 1900, si es televisor su valor es 3900. si la venta pasa de los 5000 soles se la hara un descuento del 2 %

Module Module1
    Sub Main()
        Dim pro As String
        Dim can, vb, des, vt As Double
        Console.Write("ingrese producto :")
        pro = Console.ReadLine
        Console.Write("ingrese cantidad :")
        can = Console.ReadLine
        If pro = "cocinas" Then
            vb = 3500 * can
        ElseIf pro = "lavadoras" Then
            vb = 2800 * can
        ElseIf pro = "radio" Then
            vb = 1900 * can
        ElseIf pro = "television" Then
            vb = 3900 * can
        Else
            vb = 0
        End If
        If vb > 5000 Then
            des = vb * 0.02
        Else
            des = 0
        End If
        vt = vb - des
        Console.WriteLine("la venta basica es :" & vb)
        Console.WriteLine("el descuento es :" & des)
        Console.Write("la venta total es :" & vt)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Condicion If

Ingresar categoria de empleado para saber su sueldo, si es "a" su sueldo es 3000, si es "b" su sueldo 2100, si es "c" su sueldo es 1000 , caso contario no tiene sueldo.

Module Module1
    Sub Main()
        Dim x As String
        Console.Write("ingrese categoria :")
        x = Console.ReadLine
        If x = "a" Then
            Console.Write("su sueldo es 3000")
        ElseIf x = "b" Then
            Console.Write("su sueldo es 2100")
        ElseIf x = "c" Then
            Console.Write("su sueldo es 1000")
        Else
            Console.Write("no tiene sueldo")
        End If
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Condicion If

hallar el sueldo de un empleado, si este gana mas de 800 soles se la hara un descuento del 19 % caso contrario no se le descontara nada


Module Module1
Sub Main()
Dim ht, cp, sb, des, sn As Double
Console.Write("ingrese horas trabajadas :")
ht = Console.ReadLine
Console.Write("ingrese costo x hora :")
cp = Console.ReadLine
sb = ht * cp
If sb > 800 Then
des = sb * 0.19
Else
des = 0
End If
sn = sb - des
Console.WriteLine("el sueldo bruto es :" & sb)
Console.WriteLine("el descuento es :" & des)
Console.Write("el sueldo neto es :" & sn)
Console.Read()
End Sub
End Module

VbNet 1----Programacion en Consola----Hallar el resultado de la siguiente operación

X³+(y⁴ –(2x+y))

Module Module1
    Sub Main()
        Dim x, y, z As Double
        Console.Write("ingrese # :")
        x = Console.ReadLine
        Console.Write("ingrese :")
        y = Console.ReadLine
        z = x ^ 3 + (y ^ 4 - ((2 * x) + y))
        Console.Write("el resultado es :" & z)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Sumar la raíz cúbica y la potencia al cuadrado de 2 números

Module Module1
    Sub Main()
        Dim x, y, z, a, b As Double
        Console.Write("calcular raiz cubica de :")
        x = Console.ReadLine
        Console.Write("calcular potencia al cuadrado de :")
        y = Console.ReadLine
        z = x ^ (1 / 3)
        a = y ^ 2
        b = z + a
        Console.WriteLine("la raiz cubica es:" & z)
        Console.WriteLine("la potencia al cuadrado es :" & a)
        Console.Write("la suma de ambos resultados es : " & b)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Hallar el área del triangulo

 Module Module1
    Sub Main()
        Dim x, y, z As Double
        Console.Write("ingrese base :")
        x = Console.ReadLine
        Console.Write("ingrese altura: ")
        y = Console.ReadLine
        z = (x * y) / 2
        Console.Write("la respuesta es :" & z)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Convertir soles a otras monedas

Convertir soles a euros, yenes, dolares

Module Module1
    Sub Main()
        Dim x, a, b, c As Double
        Console.Write("ingrese monto en soles S/.:")
        x = Console.ReadLine
        a = x / 2.9
        b = x / 4.2
        c = x / 0.028
        Console.WriteLine("el monto en dolares es :" & a)
        Console.WriteLine("el monto en euros es :" & b)
        Console.Write("el monto en yenes es :" & c)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Hallar Promedio de notas

Hallemos el promedio de 4 notas.

Module Module1
    Sub Main()
        Dim x, y, z, w, a As Double
        Console.Write("ingrese nota 1 :")
        x = Console.ReadLine
        Console.Write("ingrese nota 2 :")
        y = Console.ReadLine
        Console.Write("ingrese nota 3 :")
        z = Console.ReadLine
        Console.Write("ingrese nota 4 :")
        w = Console.ReadLine
        a = (x + y + z + w) / 4
        Console.Write("el promedio es:" & a)
        Console.Read()
    End Sub
End Module

VbNet 1----Programacion en Consola----Operaciones Basicas

 Aprendamos a programar en consola, empleando  operaciones basicas .

 Module Module1
    Sub Main()
        Dim x, y, suma, resta, multi, divi As Double
        Console.Write("Ingrese 1er # : ")
        x = Console.ReadLine
        Console.Write("Ingrese 2do # : ")
        y = Console.ReadLine
        suma = x + y
        resta = x - y
        multi = x * y
        divi = x / y
        Console.WriteLine("la suma es :" & suma)
        Console.WriteLine("la resta es :" & resta)
        Console.WriteLine("la multiplicación es :" & multi)
        Console.Write("la división es :" & divi)
        Console.Read()
    End Sub
End Module