Module Module1

    Sub Main()
        Dim empID As ArrayList = New ArrayList
        Dim empSalary As ArrayList = New ArrayList
        Dim empHours As ArrayList = New ArrayList
        Dim empNames As ArrayList = New ArrayList

        Dim choice As Integer

        While True
            Console.WriteLine("--------------------------------")
            Console.WriteLine("----- BASIC PAYROLL SYSTEM -----")
            Console.WriteLine("---                          ---")
            Console.WriteLine("---    (1) ADD PROFILE       ---")
            Console.WriteLine("---    (2) SEARCH EMPLOYEE   ---")
            Console.WriteLine("---    (3) VIEW ALL PROFILE  ---")
            Console.WriteLine("---    (4) UPDATE PROFILE    ---")
            Console.WriteLine("---    (5) Exit              ---")
            Console.WriteLine("---                          ---")
            Console.WriteLine("--------------------------------")
            Console.WriteLine()

        Console.Write("Enter choice: ")
        choice = Console.ReadLine()
            Console.Clear()

        If choice = 1 Then
                Console.Clear()
                Console.Write("Enter ID#: ")
                empID.Add(Console.ReadLine)
                Console.Write("Full Name: ")
                empNames.Add(Console.ReadLine)
                Console.Write("salary: ")
                empSalary.Add(Console.ReadLine)
                Console.Write("Work hours: ")
                empHours.Add(Console.ReadLine)
                Console.Clear()
            ElseIf choice = 2 Then
                Console.WriteLine("-----------------------")
                Console.WriteLine("---SEARCH PROFILE------")
                Console.WriteLine("-----------------------")
                Console.Write("Search by ID#: ")
                Dim search As Integer = Console.ReadLine
                Console.Clear()
                Console.WriteLine("===== SEARCH RESULT =====")
                Console.WriteLine()
                For i = 0 To empID.Count - 1
                    If search = empID(i) Then
                        Console.WriteLine("Employee Name: " & empNames(i) & "|" & "Salary rate: " & empSalary(i) & "|" & "Number of work hours: " & empHours(i))
                        Console.WriteLine()
                        Console.Write("Just press ----ENTER KEY---- to back main MENU ")
                        Console.ReadKey()
                        Console.Clear()

                    End If
                Next
                Console.WriteLine()
            ElseIf choice = 3 Then
                Console.WriteLine("===== VIEW ALL EMPLOYEES =====")
                Console.WriteLine()
                For i = 0 To empID.Count - 1
                    Console.WriteLine("ID: " & empID(i) & "|" & "Employee Name: " & empNames(i) & "|" & "Salary rate: " & empSalary(i) & "|" & "Number of work hours: " & empHours(i) & "|" & "Grosspay: " & empSalary(i) * empHours(i))
                Next
                Console.WriteLine()
                Console.Write("Just press ----ENTER KEY---- to back main MENU ")
                Console.ReadKey()

                Console.Clear()
                ElseIf choice = 4 Then
                    Dim idInput As Integer
                    Console.Write("Enter ID#: ")
                    idInput = Console.ReadLine()
                    Console.Clear()
                    Console.WriteLine("-----------------------")
                    Console.WriteLine("---UPDATING PROFILE----")
                    Console.WriteLine("-----------------------")
                    Console.WriteLine("1 Name of Employee")
                    Console.WriteLine("2 Salary of Employee")
                    Console.WriteLine("3 Work hours of Employee")
                    Console.WriteLine()
                    Console.Write("Choose wanna update: ")
                    choice = Console.ReadLine()
                    Console.Clear()
                If choice = 1 Then
                    For i = 0 To empID.Count - 1
                        If idInput = empID(i) Then
                            Console.Write("New Name: ")
                            empNames(i) = Console.ReadLine
                            Console.WriteLine("Successfully Update !")
                            Console.WriteLine()
                            Console.Write("Just press ----ENTER KEY---- to back main MENU ")
                            Console.ReadKey()
                            Console.Clear()
                        End If
                    Next
                ElseIf choice = 2 Then
                    For i = 0 To empID.Count - 1
                        If idInput = empID(i) Then
                            Console.Write("New Salary rate: ")
                            empSalary(i) = Console.ReadLine
                            Console.WriteLine("Successfully Update !")
                            Console.WriteLine()
                            Console.Write("Just press ----ENTER KEY---- to back main MENU ")
                            Console.ReadKey()
                            Console.Clear()
                        End If
                    Next
                ElseIf choice = 3 Then
                    For i = 0 To empID.Count - 1
                        If idInput = empID(i) Then
                            Console.Write("New # Hours: ")
                            empHours(i) = Console.ReadLine
                            Console.WriteLine("Successfully Update !")
                            Console.WriteLine()
                            Console.Write("Just press ----ENTER KEY---- to back main MENU ")
                            Console.ReadKey()
                            Console.Clear()
                        End If
                    Next
                End If
            ElseIf choice = 5 Then
                Console.WriteLine("========= Program Terminated ============")
                Console.WriteLine("==== Developed by: unknownmember1 ======")
                Console.WriteLine("================== unknownmember2 ===")
                Console.WriteLine("=========================================")
                Console.WriteLine()
                Console.Write("Just press ----ENTER KEY---- to EXIT PROGRAM ")
                Console.ReadKey()
                Exit Sub
                End If

                Console.WriteLine()
        End While
        Console.ReadKey()
    End Sub

End Module