Imports System.Console
Imports System.IO
Module Module1
    Dim question1, question2, question3, question4, question5, question11, question21, question31, question41, question51 As String, ans1, ans12, ans13, ans14, ans15, ans2, ans22, ans23, ans24, ans25, ans3, ans32, ans33, ans34, ans35, Ans4, Ans42, Ans43, Ans44, Ans45, ans5, ans52, ans53, ans54, ans55 As String, ans11, ans121, ans131, ans141, ans151, ans21, ans221, ans231, ans241, ans251, ans31, ans321, ans331, ans341, ans351, Ans41, Ans421, Ans431, Ans441, Ans451, ans51, ans521, ans531, ans541, ans551 As String ' used for answers for the comp sci questions

    Public ReadOnly Property CSV_Format_Results
        Get
            Return username & "|" & score & "|" & difficulty & "|" & topic
        End Get

    End Property
    Structure TStudent
        Public name, tutorgroup, age, password, username As String

        Public ReadOnly Property CSVFormat As String

            Get
                Return name & "|" & tutorgroup & "|" & age & "|" & password & "|" & username ' makes a string containing all the varibles in Tstudent
            End Get
        End Property

    End Structure
    Private Sub questions()
        Dim csvFile As String = My.Application.Info.DirectoryPath & "\Questions.csv"
        Dim fileContents As List(Of String) = File.ReadAllLines(csvFile).ToList

        For Each item As String In fileContents
            Dim splitters As String() = item.Split("|")

            question1 = splitters(0)
            ans1 = splitters(1)
            ans12 = splitters(2)
            ans13 = splitters(3)
            ans14 = splitters(4)
            ans15 = splitters(5)

            question2 = splitters(6)
            ans2 = splitters(7)
            ans22 = splitters(8)
            ans23 = splitters(9)
            ans24 = splitters(10)
            ans25 = splitters(11)

            question3 = splitters(12)
            ans3 = splitters(13)
            ans32 = splitters(14)
            ans33 = splitters(15)
            ans34 = splitters(16)
            ans35 = splitters(17)

            question4 = splitters(18)
            Ans4 = splitters(19)
            Ans42 = splitters(20)
            Ans43 = splitters(21)
            Ans44 = splitters(22)
            Ans45 = splitters(23)

            question5 = splitters(24)
            ans5 = splitters(25)
            ans52 = splitters(26)
            ans53 = splitters(27)
            ans54 = splitters(28)
            ans55 = splitters(29)

            question11 = splitters(30)
            ans11 = splitters(31)
            ans121 = splitters(32)
            ans131 = splitters(33)
            ans141 = splitters(34)
            ans151 = splitters(35)

            question21 = splitters(36)
            ans21 = splitters(37)
            ans221 = splitters(38)
            ans231 = splitters(39)
            ans241 = splitters(40)
            ans251 = splitters(41)

            question31 = splitters(42)
            ans31 = splitters(43)
            ans321 = splitters(44)
            ans331 = splitters(45)
            ans341 = splitters(46)
            ans351 = splitters(47)

            question41 = splitters(48)
            Ans41 = splitters(49)
            Ans421 = splitters(50)
            Ans431 = splitters(51)
            Ans441 = splitters(52)
            Ans451 = splitters(53)

            question51 = splitters(54)
            ans51 = splitters(55)
            ans521 = splitters(56)
            ans531 = splitters(57)
            ans541 = splitters(58)
            ans551 = splitters(59)

        Next


    End Sub

    Dim lstStudents As New List(Of TStudent) ' this creates a list of students
    Private Sub importStudents() 'imports students to a list
        Dim csvFile As String = My.Application.Info.DirectoryPath & "\student.csv" ' file path for the csv file
        Dim fileContents As List(Of String) = File.ReadAllLines(csvFile).ToList ' looks at what is written in the file and takes each line and makes a list
        For Each item As String In fileContents 'does the code below for each item
            Dim stu As TStudent ' declares stu as a varible of Tstudent
            Dim splitters As String() = item.Split("|") ' declares the splitter

            With stu
                .name = splitters(0)
                .tutorgroup = splitters(1) ' breaks down the string and picks out the name, tutorgroup and age
                .age = splitters(2)
                .password = splitters(3)
                .username = splitters(4)
            End With
            lstStudents.Add(stu) ' adds the student
        Next

    End Sub
    Dim newStudent As TStudent
    Private Function registerstudent() As TStudent ' apart of the tstudent
        WriteLine("enter your name:") ' asks user for there name
        newStudent.name = ReadLine.Trim

        WriteLine("Enter your Tutor group:") ' asks for tutor group
        newStudent.tutorgroup = ReadLine.Trim ' gets rid of any extra spaces after the tutor group.

        WriteLine("Enter your age:") ' asks for age
        newStudent.age = ReadLine.Trim

        WriteLine("Enter your password:")
        newStudent.password = ReadLine.Trim
        If newStudent.password = "" Or newStudent.age = "" Or newStudent.age = "" Then
            WriteLine("Invalid input: Press enter to restart.")
            ReadLine()
            Clear()
            Main()
        End If
        newStudent.username = newStudent.name.Substring(0, 3) + newStudent.age ' this generates the unique username for the user
        SaveUserFile() ' saves the file
        ReadLine()
        Return newStudent

    End Function

    Private Sub studentselection()
        Clear()
        WriteLine()
        importStudents()
        questions()
        WriteLine("username = first 3 letters of your name and then your age e.g. jac15")
        WriteLine("Username:") ' asks user to enter username
        username = ReadLine.Trim 'gets rid of any extra spaces after there name

        WriteLine()
        WriteLine("password:") ' asks user to enter there password
        WriteLine()
        password = ReadLine.Trim ' gets rid of extra spaces

        For Each stu In lstStudents
            If stu.username = username Then ' this checksif the usernames match
                If stu.password = password Then ' this checks if the password matches the username
                    WriteLine("Account found ")
                    quiz()
                    Exit For
                Else
                    WriteLine("incorrect usename or password: ")
                    ReadLine()
                    Clear()
                    Main()
                End If
            End If
        Next

        WriteLine("invalid input")
        ReadLine()
        Clear()
        Main()
    End Sub
    Sub History()
        Dim csvFile As String = My.Application.Info.DirectoryPath & "\Results.csv", userans As String = "0", diffuculty_selected As String = "0" ' csvfile shows path of the results userans is used for selection of ans

        WriteLine()
        WriteLine("Please select the difficulty ")
        WriteLine()
        WriteLine("******************************")
        WriteLine()
        WriteLine("1. Easy (2 possible answers)")   ' this displays the possible difficulties and asks the user to select one by typing 1-3
        WriteLine("2. medium (3 possible answers")
        WriteLine("3. hard (5 possible answers)")
        WriteLine()
        WriteLine("******************************")

        diffuculty_selected = ReadLine()
        If diffuculty_selected = "1" Then
            difficulty = "easy"
        ElseIf diffuculty_selected = "2" Then '
            difficulty = "medium"
        ElseIf diffuculty_selected = "3" Then
            difficulty = "hard"
        Else
            WriteLine("please select a valid difficulty") ' this part makes sure that the input is valid and within range of the selection (1-3)
            ReadLine() ' if it is not then they will see this and then will be sent back to the quiz sub where they can pick it again
            quiz()
        End If

        WriteLine()
        WriteLine("Questions 1")
        WriteLine()
        WriteLine(question11) ' this displays question 1
        WriteLine()
        WriteLine("Please select an answer ")
        If difficulty = "easy" Then
            WriteLine()
            WriteLine("1:" & ans11) ' this displays 2 answers
            WriteLine("2:" & ans141)
            userans = ReadLine()

        ElseIf difficulty = "medium" Then
            WriteLine()
            WriteLine("1:" & ans11)
            WriteLine("2:" & ans121) ' this displays 3 answers
            WriteLine("3:" & ans151)
            userans = ReadLine()
        Else
            WriteLine()
            WriteLine("1:" & ans11)
            WriteLine("2:" & ans121)
            WriteLine("3:" & ans151) ' this displays 5 answers
            WriteLine("4:" & ans131)
            WriteLine("5:" & ans141)
            userans = ReadLine()
        End If
        If userans = "1" Then score = score + 1 'this checks if the user has got the question correct if they have they gain +1 to there score

        WriteLine()
        WriteLine("Questions 2")
        WriteLine()
        WriteLine(question21) ' displays question 2
        WriteLine()
        WriteLine("Please select an answer ")
        If difficulty = "easy" Then
            WriteLine()
            WriteLine("1: " & ans21) ' this displays 2 answers
            WriteLine("2: " & ans221)
            userans = ReadLine()
        ElseIf difficulty = "medium" Then
            WriteLine()
            WriteLine("1: " & ans231)
            WriteLine("2: " & ans221) ' this displays 3 answers
            WriteLine("3: " & ans251)
            userans = ReadLine()
        Else
            WriteLine()
            WriteLine("1: " & ans241)
            WriteLine("2: " & ans221)
            WriteLine("3: " & ans21) ' this displays 5 answers
            WriteLine("4: " & ans231)
            WriteLine("5: " & ans251)
            userans = ReadLine()
        End If
        If userans = "2" Then score = score + 1

        WriteLine()
        WriteLine("Questions 3")
        WriteLine()
        WriteLine(question31) ' this displays question 3
        WriteLine()
        WriteLine("Please select an answer ")
        If difficulty = "easy" Then
            WriteLine()
            WriteLine("1: " & ans31) ' this displays 2 answers
            WriteLine("2: " & ans351)
            userans = ReadLine()
        ElseIf difficulty = "medium" Then
            WriteLine()
            WriteLine("1: " & ans31)
            WriteLine("2: " & ans341) ' this displays 3 answers
            WriteLine("3: " & ans351)
            userans = ReadLine()
        Else
            WriteLine()
            WriteLine("1: " & ans31)
            WriteLine("2: " & ans331)
            WriteLine("3: " & ans321) ' this displays 5 answers
            WriteLine("4: " & ans341)
            WriteLine("5: " & ans351)
            userans = ReadLine()
        End If
        If userans = "1" Then score = score + 1

        WriteLine()
        WriteLine("Questions 4")
        WriteLine()
        WriteLine(question41) ' this displays question 4
        WriteLine()
        WriteLine("Please select an answer ")
        If difficulty = "easy" Then
            WriteLine()
            WriteLine("1: " & Ans41) ' this displays 2 answers
            WriteLine("2: " & Ans431)
            userans = ReadLine()
        ElseIf difficulty = "medium" Then
            WriteLine()
            WriteLine("1: " & Ans41)
            WriteLine("2: " & Ans431) ' this displays 3 answers
            WriteLine("3: " & Ans451)
            userans = ReadLine()
        Else
            WriteLine()
            WriteLine("1: " & Ans41)
            WriteLine("2: " & Ans431)
            WriteLine("3: " & Ans421) ' this displays 5 answers
            WriteLine("4: " & Ans441)
            WriteLine("5: " & Ans451)
            userans = ReadLine()
        End If
        If userans = "1" Then score = score + 1

        WriteLine()
        WriteLine("Questions 5")
        WriteLine()
        WriteLine(question51) ' this displays question 5
        WriteLine()
        WriteLine("Please select an answer ")
        If difficulty = "easy" Then
            WriteLine()
            WriteLine("1: " & ans51) ' this displays 2 answers
            WriteLine("2: " & ans531)
            userans = ReadLine()
        ElseIf difficulty = "medium" Then
            WriteLine()
            WriteLine("1: " & ans51)
            WriteLine("2: " & ans531)  ' this displays 3 answers
            WriteLine("3: " & ans551)
            userans = ReadLine()
        Else
            WriteLine()
            WriteLine("1: " & ans51)
            WriteLine("2: " & ans531)
            WriteLine("3: " & ans521) ' this displays 5 answers
            WriteLine("4: " & ans541)
            WriteLine("5: " & ans551)
            userans = ReadLine()
        End If
        If userans = "2" Then score = score + 1


        percentage = score * 20 ' this calculates the percentage.
        If percentage = 0 Then ' this if statment calculates the grade that the user has achived
            grade = "fail"

        ElseIf percentage = 20 Or percentage = 40 Then
            grade = "level 1"
        ElseIf percentage = 60 Or percentage = 80 Then
            grade = "level 2"
        ElseIf percentage = 100 Then
            grade = ("level 3")


        Else grade = ("There was a problem calculating your grade please try the quiz again") ' if the program cant do what is above then they are displayed an error message

        End If

        WriteLine()
        WriteLine("you got a score of: " & score) ' tells user there score
        WriteLine("you got " & percentage & " % of questions right") ' tells user the percentage of question right
        WriteLine("You gotten the grade: " & grade) ' tells user there grade they achived
        ReadLine()

        If Not File.Exists(csvFile) Then ' checks if file exists if it doesnt it will create it
            Using sw As StreamWriter = File.CreateText(csvFile)
                sw.WriteLine(CSV_Format_Results) ' this rights CSV_Format_Results to the file called results
            End Using
        Else
            Using sw As StreamWriter = File.AppendText(csvFile)
                sw.WriteLine(CSV_Format_Results) ' this rights CSV_Format_Results to the file called results
            End Using
        End If
        End
    End Sub
    Sub quiz()

        Dim csvFile As String = My.Application.Info.DirectoryPath & "\Results.csv", userans As String = "0", Selected_Topic As String = "0" ' csvfile shows path of the results userans is used for selection of ans

        Clear()
        WriteLine()
        WriteLine("please pick a topic")
        WriteLine()
        WriteLine("*******************") ' this lets the user select a  topic
        WriteLine("1. Computer science")
        WriteLine("2. Maths")
        WriteLine("*******************")
        Selected_Topic = ReadLine()

        If Selected_Topic = "1" Then
            topic = "computer science"
        ElseIf Selected_Topic = "2" Then
            topic = "Maths"
        Else
            WriteLine("The topic you have selected is not valid please try again") ' this makes sure that the user only enters a valid number and that it is within range
            ReadLine()
            quiz()
        End If

        If topic = "Maths" Then ' if the topic picked is maths then they are sent to the maths sub
            History()
        End If

        Dim diffuculty_selected As String = "0"     ' ********** The below hasnt been commented as it is the same as the code in the sub called "History"
        WriteLine()
        WriteLine("Please select the difficulty ")
        WriteLine()
        WriteLine("******************************")
        WriteLine()
        WriteLine("1. Easy (2 possible answers)")
        WriteLine("2. medium (3 possible answers")
        WriteLine("3. hard (5 possible answers)")
        WriteLine()
        WriteLine("******************************")

        diffuculty_selected = ReadLine()
        If diffuculty_selected = "1" Then
            difficulty = "easy"
        ElseIf diffuculty_selected = "2" Then
            difficulty = "medium"
        ElseIf diffuculty_selected = "3" Then
            difficulty = "hard"
        Else
            WriteLine("please select a valid difficulty")
            ReadLine()
            quiz()
        End If

        If topic = "computer science" Then
            WriteLine()
            WriteLine("Questions 1")
            WriteLine()
            WriteLine(question1)
            WriteLine()
            WriteLine("Please select an answer ")
            If difficulty = "easy" Then
                WriteLine()
                WriteLine("1:" & ans1)
                WriteLine("2:" & ans14)
                userans = ReadLine()
            ElseIf difficulty = "medium" Then
                WriteLine()
                WriteLine("1:" & ans1)
                WriteLine("2:" & ans12)
                WriteLine("3:" & ans15)
                userans = ReadLine()
            Else
                WriteLine()
                WriteLine("1:" & ans1)
                WriteLine("2:" & ans12)
                WriteLine("3:" & ans15)
                WriteLine("4:" & ans13)
                WriteLine("5:" & ans14)
                userans = ReadLine()
            End If
            If userans = "1" Then score = score + 1

            WriteLine()
            WriteLine("Questions 2")
            WriteLine()
            WriteLine(question2)
            WriteLine()
            WriteLine("Please select an answer ")
            If difficulty = "easy" Then
                WriteLine()
                WriteLine("1: " & ans2)
                WriteLine("2: " & ans22)
                userans = ReadLine()
            ElseIf difficulty = "medium" Then
                WriteLine()
                WriteLine("1: " & ans23)
                WriteLine("2: " & ans22)
                WriteLine("3: " & ans25)
                userans = ReadLine()
            Else
                WriteLine()
                WriteLine("1: " & ans24)
                WriteLine("2: " & ans22)
                WriteLine("3: " & ans2)
                WriteLine("4: " & ans23)
                WriteLine("5: " & ans25)
                userans = ReadLine()
            End If
            If userans = "2" Then score = score + 1

            WriteLine()
            WriteLine("Questions 3")
            WriteLine()
            WriteLine(question3)
            WriteLine()
            WriteLine("Please select an answer ")
            If difficulty = "easy" Then
                WriteLine()
                WriteLine("1: " & ans3)
                WriteLine("2: " & ans35)
                userans = ReadLine()
            ElseIf difficulty = "medium" Then
                WriteLine()
                WriteLine("1: " & ans3)
                WriteLine("2: " & ans34)
                WriteLine("3: " & ans35)
                userans = ReadLine()
            Else
                WriteLine()
                WriteLine("1: " & ans3)
                WriteLine("2: " & ans33)
                WriteLine("3: " & ans32)
                WriteLine("4: " & ans34)
                WriteLine("5: " & ans35)
                userans = ReadLine()
            End If
            If userans = "1" Then score = score + 1

            WriteLine()
            WriteLine("Questions 4")
            WriteLine()
            WriteLine(question4)
            WriteLine()
            WriteLine("Please select an answer ")
            If difficulty = "easy" Then
                WriteLine()
                WriteLine("1: " & Ans4)
                WriteLine("2: " & Ans43)
                userans = ReadLine()
            ElseIf difficulty = "medium" Then
                WriteLine()
                WriteLine("1: " & Ans4)
                WriteLine("2: " & Ans43)
                WriteLine("3: " & Ans45)
                userans = ReadLine()
            Else
                WriteLine()
                WriteLine("1: " & Ans4)
                WriteLine("2: " & Ans43)
                WriteLine("3: " & Ans42)
                WriteLine("4: " & Ans44)
                WriteLine("5: " & Ans45)
                userans = ReadLine()
            End If
            If userans = "2" Then score = score + 1

            WriteLine()
            WriteLine("Questions 5")
            WriteLine()
            WriteLine(question5)
            WriteLine()
            WriteLine("Please select an answer ")
            If difficulty = "easy" Then
                WriteLine()
                WriteLine("1: " & ans5)
                WriteLine("2: " & ans53)
                userans = ReadLine()
            ElseIf difficulty = "medium" Then
                WriteLine()
                WriteLine("1: " & ans5)
                WriteLine("2: " & ans53)
                WriteLine("3: " & ans55)
                userans = ReadLine()
            Else
                WriteLine()
                WriteLine("1: " & ans5)
                WriteLine("2: " & ans53)
                WriteLine("3: " & ans52)
                WriteLine("4: " & ans54)
                WriteLine("5: " & ans55)
                userans = ReadLine()
            End If
        End If
        If userans = "1" Then score = score + 1

        percentage = score * 20
        If percentage = 0 Then
            grade = "fail"
        ElseIf percentage = 20 Or percentage = 40 Then
            grade = "level 1"
        ElseIf percentage = 60 Or percentage = 80 Then
            grade = "level 2"
        ElseIf percentage = 100 Then
            grade = ("level 3")

        Else
            grade = ("There was a problem calculating your grade please try the quiz again")
        End If


        WriteLine()
        WriteLine("you got a score of: " & score)
        WriteLine("you got " & percentage & " % of questions right")
        WriteLine("You gotten the grade: " & grade)
        ReadLine()

        If Not File.Exists(csvFile) Then ' checks if file exists if it doesnt it will create it
            Using sw As StreamWriter = File.CreateText(csvFile)
                sw.WriteLine(CSV_Format_Results)
            End Using
        Else
            Using sw As StreamWriter = File.AppendText(csvFile)
                sw.WriteLine(CSV_Format_Results)
            End Using
        End If
    End Sub
    Private Sub SaveUserFile()
        Dim csvFile As String = My.Application.Info.DirectoryPath & "\student.csv" ' declares file path of student.csv
        If Not File.Exists(csvFile) Then ' checks if file exists if it doesnt it will create it
            Using sw As StreamWriter = File.CreateText(csvFile)
                sw.WriteLine(newStudent.CSVFormat)
            End Using
        Else
            Using sw As StreamWriter = File.AppendText(csvFile)
                sw.WriteLine(newStudent.CSVFormat)
            End Using
        End If
        WriteLine("student added ") ' tells the user they have been added
        Main()
    End Sub
    Dim topic As String, grade As String, difficulty As String, username As String, password As String, answer As Boolean, score As Integer, percentage As Integer = score * 20
    Sub Main()

        Dim registerd As String ' this is used to ask the user if they are registered


        WriteLine("***************************")
        WriteLine()
        WriteLine("Have you registered? (Y/N) ") ' asks user if they registered
        WriteLine()
        WriteLine("***************************")
        WriteLine()
        registerd = ReadLine()

        If registerd = "Y" Or registerd = "y" Or registerd = "yes" Or registerd = "Yes" Or registerd = "YES" Then
            studentselection() ' if they have registered they are sent to the login sub

        ElseIf registerd = "N" Or registerd = "n" Or registerd = "No" Or registerd = "NO" Or registerd = "no" Then
            registerstudent() ' if they are not registered then they are sent to the register sub
        Else
            WriteLine("Invalid selection, Please restart the program by pressing enter: ")
            ReadLine()
            Clear()
            Main()

        End If

    End Sub

End Module