Module Module1
    Structure pupil
        Dim firstname As String
        Dim surname As String
        Dim year As String
    End Structure
    Structure Staff
        Dim username As String
        Dim password As String
    End Structure
    Dim students(100) As pupil
    Dim teachers(50) As Staff
    Dim recordnum As Integer
    Dim numofrecords As Integer

    Sub Main()
        Login()
    End Sub
    Private Sub Login()
        Console.WriteLine("Login Below Please")
        Console.Write("Username: ")
        Dim username As String = Console.ReadLine()
        Dim password As String = Console.ReadLine()

        If username.StartsWith("3") Then
            Dim filereader As String
            filereader = My.Computer.FileSystem.ReadAllText("N:\Computer Science\Tests\Year 3\Test1.csv")
            Console.WriteLine("Hello " + username + " welcome to the year 3 test")
            Console.WriteLine(filereader)
            Dim answer(10) As String
            For i = 1 To 10 Step 1
                Console.Write("Answer " + i.ToString + ": ")
                answer(i) = Console.ReadLine()
            Next
        End If
        If username.StartsWith("4") Then
            'Y4Test()
        End If
        If username.StartsWith("5") Then
            'Y5Test()
        End If
        If username.StartsWith("6") Then
            'Y6Test()
        End If
        If username.StartsWith("1") Then
            Console.Write("Password: ")
            TMenu()
        End If
        Console.ReadLine()
    End Sub
    Sub Y3testt()
        Dim filereader As String
        filereader = My.Computer.FileSystem.ReadAllText("C:\Users\Joshu\Onedrive\Year3.csv")
        ' Console.WriteLine("Hello " + username + "welcome to the year 3 test")
        Console.WriteLine(filereader)
        Dim answer As String = Console.ReadLine()
        Console.Write("Answer 1: ")
        Console.Write("Answer 2: ")
        Console.Write("Answer 3: ")
        Console.Write("Answer 4: ")
        Console.Write("Answer 5: ")
        Console.Write("Answer 6: ")
        Console.Write("Answer 7: ")
        Console.Write("Answer 8: ")
        Console.Write("Answer 9: ")
        Console.Write("Answer 10: ")
    End Sub
    Private Sub TMenu()
        Console.WriteLine("Please select an option below")
        Console.WriteLine("1: Add new test")
        Console.WriteLine("2: Add new student/s")
        Console.WriteLine("3: Progress Checker")
        Dim response As Char
        Select Case response
            Case "1"
                AddTest()
            Case "2"
                AddStudents()
            Case "3"
                'ProgressChecker()
        End Select
    End Sub
    Private Sub AddStudents()
        Console.WriteLine("How many students are you adding?")
        Dim numofstudents As Integer = Console.ReadLine()
        Console.WriteLine("What year is the student in?")
        Dim year As Integer = Console.ReadLine()
        Console.WriteLine()

        Dim pupilfilepath As String = "N:\Computer Science\Pupil Database\" + "Year " + year.ToString + ".csv"
        Dim lines(40) As String
        For i = 0 To numofstudents
            Console.WriteLine("What is the students first name?")
            Dim first_name As String = Console.ReadLine()
            Console.WriteLine("What is the students surname?")
            Dim surname As String = Console.ReadLine()
            lines(i) = "" & first_name.ToString & "," & surname.ToString & ""
        Next
        System.IO.File.AppendAllLines(pupilfilepath, lines)
        Console.WriteLine("Students added successfully")
        Console.ReadLine()
    End Sub
    Private Sub AddTest()
        Console.WriteLine("What year are you adding a test for? 3-6")
        Dim year As Integer = Console.ReadLine()
        Console.WriteLine("What week of tests is this? 1-4")
        Dim week As Integer = Console.ReadLine()

        Select Case year
            Case "3"
                Dim testfilepath As String = "N:\Computer Science\Tests\Year 3\Week " + week.ToString + " Test.csv"
                Dim lines(10) As String
                For i = 0 To 9
                    Console.WriteLine("Enter Word: ")
                    Dim word As String = Console.ReadLine()
                    Console.WriteLine("Enter Defintion: ")
                    Dim definition As String = Console.ReadLine()

                    lines(i) = "" & word.ToString & "," & definition.ToString & ""
                Next
                System.IO.File.WriteAllLines(testfilepath, lines)
                Console.WriteLine("Words and Definitions successfully added!")
                Console.ReadLine()
            Case "4"
                Dim testfilepath As String = "N:\Computer Science\Tests\Year 4\Week " + week.ToString + " Test.csv"
                Dim lines(10) As String
                For i = 0 To 9
                    Console.WriteLine("Enter Word: ")
                    Dim word As String = Console.ReadLine()
                    Console.WriteLine("Enter Defintion: ")
                    Dim definition As String = Console.ReadLine()

                    lines(i) = "" & word.ToString & "," & definition.ToString & ""
                Next
                System.IO.File.WriteAllLines(testfilepath, lines)
                Console.WriteLine("Words and Definitions successfully added!")
                Console.ReadLine()
            Case "5"
                Dim testfilepath As String = "N:\Computer Science\Tests\Year 5\Week " + week.ToString + " Test.csv"
                Dim lines(10) As String
                For i = 0 To 9
                    Console.WriteLine("Enter Word: ")
                    Dim word As String = Console.ReadLine()
                    Console.WriteLine("Enter Defintion: ")
                    Dim definition As String = Console.ReadLine()

                    lines(i) = "" & word.ToString & "," & definition.ToString & ""
                Next
                System.IO.File.WriteAllLines(testfilepath, lines)
                Console.WriteLine("Words and Definitions successfully added!")
                Console.ReadLine()
            Case "6"
                Dim testfilepath As String = "N:\Computer Science\Tests\Year 6\Week " + week.ToString + " Test.csv"
                Dim lines(10) As String
                For i = 0 To 9
                    Console.WriteLine("Enter Word: ")
                    Dim word As String = Console.ReadLine()
                    Console.WriteLine("Enter Defintion: ")
                    Dim definition As String = Console.ReadLine()

                    lines(i) = "" & word.ToString & "," & definition.ToString & ""
                Next
                System.IO.File.WriteAllLines(testfilepath, lines)
                Console.WriteLine("Words and Definitions successfully added!")
                Console.ReadLine()
        End Select
    End Sub
End Module