VB 2010 Windows Form - Crear una calculadora simple

Ejercicio VB.NET: Calcular descuento

Dado un monto calcular el descuento considerando que por encima de 20000 el descuento es el 10% y por debajo de 20000 el descuento es el 2%.

Solución:



Module Module1

    Sub Main()
        Dim monto, descuento As Double

        Console.WriteLine("Ingrese el monto")
        monto = Console.ReadLine

        If monto > 20000 Then
            descuento = monto * 90 / 100
            Console.WriteLine("El monto con un 10% de descuento es de: $" & descuento)
        Else
            descuento = monto * 98 / 100
            Console.WriteLine("El monto con un 2% de descuento es de: $" & descuento)
        End If

        Console.ReadKey()
    End Sub

End Module

Ejercicio VB.NET: Crear la factura de una compra calculando el IVA y un descuento

Escribir el programa que permita emitir la factura correspondiente a una compra de un artículo determinado, del que se adquieren una o varias unidades, el ingreso termina cuando se digita como precio del articulo un valor cero. El IVA es del 19% y si el precio bruto  (precio venta  más IVA) es mayor de $18000 se debe realizar un descuento del 5%.

Solución:


Module Module1

    Sub Main()
        Dim precio, suma, bruto, descuento As Double

        suma = 0
        Console.WriteLine("Para detenet el ciclo ingrese un 0")
        Do
            Console.WriteLine("Ingrese el precio del producto")
            precio = Console.ReadLine
            suma = suma + precio
        Loop While precio <> 0

        bruto = suma * 119 / 100

        If bruto <= 18000 Then
            Console.WriteLine("El valor de la compra es de: $" & bruto)
        Else
            descuento = bruto * 95 / 100
            Console.WriteLine("El valor de la compra es de: $" & descuento)
        End If

        Console.ReadKey()
    End Sub

End Module

Ejercicio VB.NET: Calcular horas trabajadas y horas extras

A un trabajador le pagan según sus horas trabajadas y la tarifa está a un valor por hora. Si la cantidad de horas trabajadas es mayor a 50 horas, la tarifa por hora se incrementa en un 25% para las horas extras. Calcular el salario del trabajador dadas las horas trabajadas y la tarifa.

Solución:


Module Module1

    Sub Main()
        Dim vhora, vhora2, vhora3, hora, horas1, horas2 As Double

        Console.WriteLine("Ingrese las horas trabajadas")
        horas1 = Console.ReadLine
        Console.WriteLine("Ingrese el valor de una hora de trabajo")
        vhora = Console.ReadLine

        If horas1 <= 50 Then
            Console.WriteLine("El sueldo es de: $" & horas1 * vhora)
        Else
            horas2 = horas1 - 50
            hora = 50 * vhora
            vhora2 = vhora * 125 / 100
            vhora3 = horas2 * vhora2

            Console.WriteLine("El sueldo es de: $" & hora + vhora3)
        End If

        Console.ReadKey()
    End Sub

End Module

Calcular diferencia de edad con VisualBasic.NET usando funciones

Module Module1

    Sub Main()
        Dim anio, mes, dia As Integer
        Console.WriteLine("Ingrese el dia de nacimiento")
        dia = Console.ReadLine
        Console.WriteLine("Ingrese el mes de nacimiento")
        mes = Console.ReadLine
        Console.WriteLine("Ingrese el año de nacimiento")
        anio = Console.ReadLine

        'Determinar si es mayor de edad
        If anios(dia, mes, anio, DateInterval.Year) >= 18 Then
            Console.WriteLine("Mayor de edad")
        Else
            Console.WriteLine("Menor de edad")
        End If

        Console.WriteLine("Los dias trnacurridos son " & _
                          anios(dia, mes, anio, _
                                DateInterval.Day))

        Console.ReadKey()
    End Sub

    Function anios(ByVal dia As Integer, ByVal mes As Integer, ByVal anio As Integer, ByVal intervalo As DateInterval) As Integer
        Dim fechanac As Date
        Dim anios2 As Integer

        fechanac = DateSerial(anio, mes, dia)
        anios2 = DateDiff(intervalo, fechanac, Now)

        Return anios2

    End Function
End Module

Sucesión fibonacci en PSeInt

Proceso SUCESION_FIBONACCI
N<-0;
X<-1;
Escribir "INGRESE UN NUMERO";
Leer NUMERO;
PARA I<-0 HASTA NUMERO CON PASO 1 Hacer
Escribir N;
A<-X+N
N<-X
X<-A
FinPara
FinProceso

Metodos en VisualBasic.NET

Crear metodos que realicen de dos numeros, la suma, la resta, la multiplicación, la division, y el resto.

Algoritmo:


Module Module1

    Sub Main()
        Console.WriteLine("Ingrese el primer valor")
        Dim num1 As String = Console.ReadLine()

        Console.WriteLine("Ingrese el segundo valor")
        Dim num2 As String = Console.ReadLine()

        Console.Write("El resultado de la suma es:")
        Sumar(num1, num2)

        Console.Write("El resultado de la resta es:")
        Restar(num1, num2)

        Console.Write("El resultado de la multiplicacion es:")
        Multiplicar(num1, num2)

        Console.Write("El resultado de la division es:")
        Dividir(num1, num2)

        Console.Write("El resto de la division es:")
        Resto(num1, num2)
        Console.ReadLine()
    End Sub

    Private Sub Sumar(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) + Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Restar(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) - Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Multiplicar(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) * Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Dividir(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) / Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Resto(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) Mod Int(num2)
        Console.WriteLine(res)
    End Sub
End Module