Imports System

​

Public Module Module1

​

    'Declare all global variables

    Dim i as integer

​

    Dim no_student as integer

​

    Dim ID(100) as string

​

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

​

    Dim avg(2) as decimal

​

    Dim first_time as boolean = true

​

    Public Sub Main()

        Menu()

    End Sub

​

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

    sub Menu()

        'Declaring variables

        Dim input as string

        Dim finished as boolean

        'Loops until it receives a valid input

        Console.writeline("Hello and Welcome to Elsa's Student Data Program. What would you like to do? (input only 1, 2 or 3)")

        Do

            Console.writeline("Options: Input/Redo Student Data (1) | Displayed Data (2) | Search for Student Data (3) | Or input 'finished' if you're done :) ")

            input = Console.readline()

            'Decides what each input means

            Select case input.ToLower()

                Case "1", "input/redo student data"

                    EnteringStudentData()

                    CalculatingStats()

                    DisplayData()

                    first_time = false

                    Console.writeline("What else would you like to do?")

                Case "2", "displayed data"

                    if first_time = false

                        DisplayData()

                    Else

                        Console.writeline("There is no data to be displayed. Please input data first before the program to display data")

                    End if

​

                    Console.writeline("What else would you like to do?")

                Case "3", "search for student data"

                    if first_time = false

                        SearchEngine()

                    Else

                        Console.writeline("There is no data to search for. Please input data first before trying to find non-existing data")

                    End if

​

                    Console.writeline("What else would you like to do?")

                Case "finished", "finish", "f"

                    Console.writeline("Thanks for using my program!")

                    finished = true

                Case Else

                    Console.writeline("Sorry but you have input an invalid answer. Only input 1, 2 or 3")

                    finished = false

            end select

        Loop until finished = true

    End sub

​

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

    Sub EnteringStudentData()

        '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, csv_error as boolean

        'This loop just asks how many students are in the class

        Do

            no_studentVALID = true

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

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

            try

                no_student = 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 try again.")

                    no_studentVALID = false

                End if

​

            End Try

​

            'Checks if user inputs zero or a negative number

            If no_studentVALID = true

                If no_student < 1

                    Console.writeline("Sorry but you can't input any numbers less than 1 as that means that there would be no data needed to be inputed. Please try again.")

                    no_studentVALID = false

                end if

            end if

        loop until no_studentVALID = true

​

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

        For repeat = 1 to no_student

            'This is where the console asks the user for csv data

            Do

                data_error = false

                csv_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()

                'Checks if user puts in exactly 4 csv values

                If student_data.GetLength(0) <> 4

                    data_error = true

                    csv_error = true

                    Console.writeline("Sorry but you have added extra or too few csv value. Please try again")

                End if

​

                'Checks if ID's length is 5 characters long

                If student_data(0).length <> 5 then

                    Console.writeline("Sorry but you have inputted an ID that is more or less than 5 characters. Please try again")

                    data_error = true

                End if

​

                'will continue if there are 4 indexes in student_data()

                if csv_error = false

                    'Converts English, Maths and Science results into integers and checks if any errors come out

                    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 inputted 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 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 if results are negative numbers

                        If student_data(1) < 0 or student_data(2) < 0 or student_data(3) < 0 then

                            data_error = true

                            Console.writeline("Sorry but you have inputted a result less than 0 (negative number). Please try again")

                        End if

​

                        'Checks for Duplicates

                        If repeat > 1

                            For i = 0 to repeat - 1

                                If student_data(0) = ID(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

                            student_data(1) = 20

                        End if

​

                        If student_data(2) < 20 then

                            student_data(2) = 20

                        End if

​

                        If student_data(3) < 20 then

                            student_data(3) = 20

                        End if

                    catch ex as exception

                        data_error = true

                    end try

                end if

            Loop until data_error = false

​

            'Finally designate the data into their corresponding array

            ID(repeat - 1) = student_data(0)

            English(repeat - 1) = student_data(1)

            Maths(repeat - 1) = student_data(2)

            Science(repeat - 1) = student_data(3)

        Next

    End sub

​

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

    Sub CalculatingStats()

        'Declare i as its used in the for loop

        Dim i as integer

        'Initialises the max and min results so they can be compared with

        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 no_student - 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

​

        'Now calculates the average

        avg(0) = sum(0) / no_student

        avg(1) = sum(1) / no_student

        avg(2) = sum(2) / no_student

        'Now rounds the averages to 2dp

        avg(0) = math.round(avg(0), 2)

        avg(1) = math.round(avg(1), 2)

        avg(2) = math.round(avg(2), 2)

    End Sub

​

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

    Sub DisplayData()

        Dim i as integer

        Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "ID", "English", "Math", "Science")

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

        For i = 0 to no_student - 1

            Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", ID(i), English(i), Maths(i), Science(i))

        Next

​

        Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "Average", avg(0), avg(1), avg(2))

        Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "Max", max(0), max(1), max(2))

        Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "Min", min(0), min(1), min(2))

    End sub

​

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

    Sub SearchEngine()

        'Declares all variables

        Dim search as string

        Dim errorinput as boolean = false

        Dim found as boolean = false

        Dim i, data as integer

        Dim finished as boolean = false

        Dim repeat as string

        Dim done as boolean

        Dim student_avg as integer

        'This loops until user says they don't want to search anymore.

        Do

            Console.writeline("Which student's data would you like to see? Please input their ID")

            search = Console.readline()

            'Checks if the user inputs 5 characters

            If search.length <> 5

                errorinput = true

                Console.writeline("Sorry but you have inputted an ID that is not five characters long. Please try again.")

            End if

​

            found = false

            'This process happens if user inputs 5 charactesr to save time

            If errorinput = false

                'Searches for any ID that is the same as the user's ID

                For i = 0 to no_student - 1

                    If search = ID(i)

                        found = true

                        data = i

                    End if

                Next

​

                'Tells user that the ID is not in the database

                If found = false

                    Console.writeline("Unfortunately, we can't find any information under the ID: " & search & " Please try again")

                'Information is displayed if a match is found

                Else if found = true

                    'Caclulates the student's average score + rounds it to 2 dp

                    student_avg =(English(data) + Maths(data) + Science(data)) / 3

                    student_avg = math.round(student_avg, 2)

                    'Displays the information found from the database

                    Console.writeline("Here is what we've found")

                    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "ID", "English", "Math", "Science")

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

                    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", ID(data), English(data), Maths(data), Science(data))

                    Console.writeline("{0,-15}{1,-8}", "Student Average:", student_avg)

                    Do

                        'Asks the user if they want to look for another student's data  

                        Console.writeline("Do you want to look at another student's data? (input either Yes or No)")

                        repeat = Console.readline()

                        Select case repeat.tolower

                            case "yes", "yea"

                                done = true

                                finished = false

                            case "no", "nah"

                                done = true

                                finished = true

                            case else

                                Console.writeline("You didn't input yes or no.")

                                done = false

                        End Select

                    Loop until done = true

                End if

            End if

        Loop until finished = true

    End sub

End Module

​