Imports System

Public Module Module1

    Public Sub Main()

        Const SalarioMinimo As Double = 908526

        Const AuxTransporte As Double = 106454

        Const PorcSalud     As Double = 0.04

        Const PorcPension   As Double = 0.04

        Const PorcARL       As Double = 0.01

        Dim i As integer

        Dim documentos(5) As integer

        Dim nombres(5) As string

        Dim salarios(5) As double

        Dim horasExtras(5) As integer

        Dim auxiliosDeTransporte(5) as Double

        Dim orden As string

        Dim salariosNetos(5) As Double

        Dim ValorHoras As Double

        Dim ValorHorasExtras(5) As Double

        For i = 0 To 4 Step 1

            Dim nombre As string

            Dim id As integer = 0

            Dim salario As double = 0

            Dim hExtras As integer = -1

            Dim repetido = false

            Dim transporte As Double = 0

            Dim j As integer

            ' solicitar el nombre del empleado

            console.WriteLine("Ingrese el nombre completo del empleado " & i+1)

            nombre = console.ReadLine()

            ' Solicitar y validar el documento de identidad

            while id <= 0 Or repetido

                console.WriteLine("Digite el documento de identidad del empleado " & i+1)

                id = console.ReadLine()

                if id <= 0 Then

                    console.WriteLine("Documento invalido, intente otra vez.")

                End If

                for j = 0 To 4 Step 1

                    if id = documentos(j) Then

                        console.WriteLine("El documento esta repetido, por favor intente otra vez.")

                        repetido = true

                    End if

                Next

            End while

            ' Solicitar y validar el salario

            while salario <= SalarioMinimo Or salario > (SalarioMinimo*5)

                console.WriteLine("Digite el salario del empleado " & i+1)

                salario = console.ReadLine()

                if salario <= SalarioMinimo Or salario > (SalarioMinimo*5) Then

                    console.WriteLine("salario invalido, intente otra vez.")

                End If

            End while   

            if salario < SalarioMinimo*2 Then

                transporte = AuxTransporte  

            End If

            ' Solicitar y validar las horas extras

            while hExtras < 0 Or hExtras > 24

                console.WriteLine("Digite cantidad de horas extras diurnas del empleado " & i+1)

                hExtras = console.ReadLine()

                if hExtras < 0 Or hExtras > 24 Then

                    console.WriteLine("horas invalidas, intente otra vez.")

                End If

            End while

            ' todos los datos son correctos, los guardaremos en los vectores

            documentos(i) = id

            nombres(i) = nombre

            salarios(i) = salario

            horasExtras(i) = hExtras

            auxiliosDeTransporte(i) = transporte

        Next

​

        ' calculos para obtener descuentos y total a devengar

        For i = 0 To 4 Step 1

            ValorHoras = (salarios(i) / 240)

            ValorHorasExtras(i) = ValorHoras + (ValorHoras * 0.25)

            SalariosNetos(i) = (salarios(i) + auxiliosDeTransporte(i) + (ValorHorasExtras(i) * HorasExtras(i))) - (salarios(i) * PorcSalud) - (salarios(i) * PorcPension) - (salarios(i) * PorcARL)

        Next

        console.WriteLine("Escriba A si desea mostrar los valores de manera ascendente, y cualquier otra tecla para mostrarlos de manera descendente.")

        orden = console.ReadLine()

        SalariosNetos = metodoburbuja(SalariosNetos)

​

        if Not (orden = "a" Or orden = "A") Then

            Array.Reverse(SalariosNetos)

        End if

​

        For i = 0 To 5 Step 1

            if Not SalariosNetos(i) = 0

                console.WriteLine(SalariosNetos(i))

            End if

        Next

    End Sub

​

​

    Public Function metodoburbuja(salarios as Double()) As Double()

        Dim aux As Double

        Dim i, j As Integer

        For i = 1 To salarios.Length - 1

            For j = 0 To salarios.Length - i - 1

                If (salarios(j) > salarios(j + 1)) Then

                    aux = salarios(j + 1)

                    salarios(j + 1) = salarios(j)

                    salarios(j) = aux

                End If

            Next

        Next

    return salarios

    End Function

End Module