Imports System

​

Public Module Module1

​

    'Declare all global variables

    Dim i as integer

    Dim student_number as integer

    Dim ID_all(100) as string

    Dim English(100), Maths(100), Science(100), max(2), min(2), sum(2), avg(2) as integer

    Dim welcome as integer = 0

    Dim count as integer = 0

    Public Sub Main()

        Dim pro as integer

        pro = menu(pro)

        select case pro

        case 1 

            EnteringStudent_Data()

        case 2

            DisplayData()   

        case 3

            Search

        case 4

            Terminate()

    end select

    End Sub

    Public function menu(pro as integer) 'Menu selection tab

        If welcome = 0 then

            Console.Writeline("Welcome to Marking Complex")

            welcome = welcome + 1

        End if

        Console.Writeline("Menu:")

    Console.Writeline("1 - Input student results")

    Console.Writeline("2 - Display class results")

        Console.Writeline("3 - Search for a student's results")

        Console.Writeline("4 - End program")

        try

            do

        pro = Console.Readline()

        Loop until pro = 1 or 2 or 3 or 4

            if pro > 4 then

                Console.writeline("Sorry but you may have inputted none of the option. Please try again.")

                        Main()

            end if

            catch ex as exception

                    if ex.message = "Thread was being aborted."

                        Console.writeline("")

                    else

                Console.writeline("Sorry but you may have inputted a symbol, letter or void when inputting your option. Please try again.")

                        Main()

                    end if

            end try

        Return pro

End function

    '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Sub EnteringStudent_Data()

        'Declare the varibles used in EnteringStudentData()

        Dim input_data as string

        Dim repeat as integer

        Dim student_data() as string

        Dim no_studentVALID, data_error as boolean

        Do

            no_studentVALID = true

            Console.writeline("How many students are in the class?")

            'Checks if the user accidentally inputs a void, symbol or letter

            try

                student_number = Console.readline()

            catch ex as exception

                If ex.message = "Thread was being aborted." then

                    Console.write("")

                else

                    Console.writeline("sorry but you may have inputted a symbol, letter or void. Please re-do.")

                    no_studentVALID = false

                End if

​

            End Try

        loop until no_studentVALID = true

​

        'This for statement makes sure that all students are accounted for

        For repeat = 1 to student_number

        do

                data_error = false

                Console.writeline("Input the student's data. Student: " & repeat)

                input_data = Console.readline()

                student_data = input_data.split(",") 'Splits the data by finding "," into different indexs in array input_data()

                try

                    student_data(1) = Convert.ToInt32(student_data(1))

                    student_data(2) = Convert.ToInt32(student_data(2))

                    student_data(3) = Convert.ToInt32(student_data(3))

                catch ex as exception

                    if ex.message = "Thread was being aborted."

                        Console.writeline("")

                    else

                        Console.writeline("Sorry but you may have inputed a symbol, letter or void when inputting the results for maths, english and science. Please try again.")

                        data_error = true

                    end if

​

                end try

                'Checks if user puts in exactly 4 csv values

                If student_data.GetLength(0) <> 4

                    data_error = true

                Console.writeline("Sorry but you have added too much or little csv value. Re-do")

                End if

                If student_data(0).length <> 5 then

                Console.writeline("Sorry but you have inputted an ID that is more or less than 5 characters. Re-do")

                    data_error = true

                End if

            'Checks if results are greater than 100

                try

                    If student_data(1) > 100 or student_data(2) > 100 or student_data(3) > 100 then

                        data_error = true

                        Console.writeline("Sorry but you have inputted a result greater than 100. Please try again")

                    End if

                'Checks for Duplicates

                If repeat > 1

                    For i = 0 to repeat - 1

                        If student_data(0) = ID_all(i)

                            Console.writeline("Sorry but you have inputted a duplicate. Please try again.")

                            data_error = true

                        End if

                    Next

                End if

​

                    'Data is then met to the criteria that nothing is under 20

                    If student_data(1) < 20 then

                        console.writeline("English result too low. Converted to 20")

                        student_data(1) = 20

                    End if

​

                    If student_data(2) < 20 then

                        console.writeline("Math result too low. Converted to 20")

                        student_data(2) = 20

                    End if

​

                    If student_data(3) < 20 then

                        console.writeline("Science result too low. Converted to 20")

                        student_data(3) = 20

                    End if              

                catch ex as exception

                data_error = true

                end try

            Loop until data_error = false

​

            'Finally designate the data into their corresponding array

            ID_all(repeat - 1) = student_data(0)

            English(repeat - 1) = student_data(1)

            Maths(repeat - 1) = student_data(2)

            Science(repeat - 1) = student_data(3)

                next

            count = repeat

            Console.Writeline("Results saved, returning to menu")

            Console.Writeline("")

            Main()

End sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

    sub CalculatingStats()

        Dim i as integer

        max(0) = 0

        max(1) = 0

        max(2) = 0

        min(0) = 100

        min(1) = 100

        min(2) = 100

        'Loops so every student is accounted for

        For i = 0 to student_number - 1

            'Calculates the sum of English, Maths and Science results

            sum(0) = English(i) + sum(0)

            sum(1) = Maths(i) + sum(1)

            sum(2) = Science(i) + sum(2)

            'Calculate the max and min score of the subjects

            If English(i) > max(0)

                max(0) = English(i)

            End if

​

            If English(i) < min(0)

                min(0) = English(i)

            End if

​

            If Maths(i) > max(1)

                max(1) = Maths(i)

            End if

​

            If Maths(i) < min(1)

                min(1) = Maths(i)

            End if

​

            If Science(i) > max(2)

                max(2) = Science(i)

            End if

​

            If Science(i) < min(2)

                min(2) = Science(i)

            End if

        Next

        avg(0) = sum(0) / student_number 

        avg(1) = sum(1) / student_number 

        avg(2) = sum(2) / student_number 

        DisplayData_final()

    End sub

​

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

    Sub DisplayData()

    Dim i as integer

    If count = 0 then

                Console.Writeline("No results currently available")

                Main()

    end if

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","ID","English","Math","Science")

        Console.writeline("---------------------------------------------------------------")

​

        For i = 0 to student_number - 1

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}",ID_all(i),English(i),Maths(i),Science(i))

        Next

        if avg(0) = 0 then

        CalculatingStats()

        end if

​

        End sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

    Sub DisplayData_final()

        Dim i as integer

​

        For i = 0 to student_number - 1

            next

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","Average",avg(0),avg(1),avg(2))

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","Max",max(0),max(1),max(2))

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","Min",min(0),min(1),min(2))

        Console.writeline("")

        Main()

    end sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

    Public sub Search() 'New student search menu'

        Dim student, Reply as string

        dim fact as boolean = false

​

        If count = 0 then 'Used when there are no student entries given yet'

                Console.Writeline("There are currently no students entries")

                Main()

            End if

                Console.Writeline("Enter desired student's ID")

        student = Console.Readline()

​

        For i = 0 to count

        If student = ID_all(i) then

        Console.writeline("Results for the student")

            Console.Writeline("{0,-15}{1,-20}{2,-20}{3,-20}","ID","English","Math","Science") 

            Console.Writeline("{0,-15}{1,-20}{2,-20}{3,-20}", ID_all(i), English(i), Maths(i), Science(i)) 'Print out that students result'

            Console.writeline("")

            fact = true

        Main()

        End if

        next

        If fact = false then

        Console.Writeline("There are no students with that ID")

        end if

            Console.Writeline("Would you like to search for another student?")

            Reply = Console.Readline()

        if Reply = "no" then

        Main()

        else 

        Search()

        end if

        End sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

Public sub Terminate()'For ending programme'

            Dim result as string 

            Console.Writeline("Are you sure you want to close program? (type any key to close) ")

            result = Console.Readline()

            result = result.ToLower

            if result = "no" then 

                Main()

            else 

            Console.Writeline("Thank you for trying our Marking Complex^^")

            end if

        end sub         

    End Module

​