Initial commit

StudentForms/NoughtsandCrosses/frmNaCHotseat.vb

@@ -0,0 +1,780 @@
+Imports MySql.Data.MySqlClient
+
+Public Class frmNaCHotseat
+
+    'Declares the array containing the coordinates of the squares of the grid and what condition they are currently in
+    Dim theGrid(9) As String
+
+    'Declares the class used for both players
+    Public Class NaCPlay
+        'Declares the variables used for storing the details of the Noughts and Crosses player
+        Public Letter, Username, Fname, lname As String
+    End Class
+    'Declares the class used for both players' scores
+    Public Class Score
+        'Declares the variable used for storing score of the player
+        Public ScoreNum As Integer
+        'This subroutine runs when a player wins a game
+        Public Sub Increase()
+            'Increases the score by 1
+            ScoreNum = ScoreNum + 1
+        End Sub
+    End Class
+    'Creates two objects of the score class, one for each player
+    Dim XScore As New Score
+    Dim OScore As New Score
+    'Creates two objects of the C4Play class, one for each player
+    Dim XPlayer As New NaCPlay
+    Dim OPlayer As New NaCPlay
+
+    'Declares the variable used to store the primary key of the question record in the database
+    Dim QuestionID As Integer
+    'Declares the y-coords for moving the current player label
+    Dim StudentCurrLocationY As Integer = 35
+    Dim OppStudentCurrLocationY As Integer = 140
+    'Declares the variable used to determine if a question was answered correctly
+    Dim QCorrect As Boolean = False
+
+    'Subroutine runs on form load
+    Private Sub frmNaCHotseat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        'Runs the OpenDB subroutine
+        OpenDB()
+
+        'Hides the reset button
+        btnReset.Visible = False
+
+        'If the logged-in student is X...
+        If LoggedInStudent.NaCPlayer = "X" Then
+            'Populate the XPlayer object with the logged-in student's details
+            With XPlayer
+                .Letter = "X"
+                .Username = LoggedInStudent.Username
+                .Fname = LoggedInStudent.Fname
+                .lname = LoggedInStudent.Lname
+            End With
+
+            'Populate the OPlayer object with the opponent student's details
+            With OPlayer
+                .Letter = "O"
+                .Username = OppStudent.Username
+                .Fname = OppStudent.Fname
+                .lname = OppStudent.Lname
+            End With
+            'But if the logged-in student is yellow...
+        Else
+            'Populate the XPlayer object with the logged-in student's details
+            With XPlayer
+                .Letter = "X"
+                .Username = OppStudent.Username
+                .Fname = OppStudent.Fname
+                .lname = OppStudent.Lname
+            End With
+
+            'Populate the OPlayer object with the opponent student's details
+            With OPlayer
+                .Letter = "O"
+                .Username = LoggedInStudent.Username
+                .Fname = LoggedInStudent.Fname
+                .lname = LoggedInStudent.Lname
+            End With
+        End If
+
+        'Runs the AccountSection subroutine
+        AccountSection()
+
+        'Sets the scores to the defaults
+        XScore.ScoreNum = 0
+        OScore.ScoreNum = 0
+
+        'Sets the current player, runs the ChangePlayer and CurrPlayer subroutines
+        NaCPlayer = "O"
+        ChangePlayer()
+        CurrPlayer()
+    End Sub
+
+    'Subroutines run when their respective buttons are clicked
+    Private Sub btntopleft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntopleft.Click
+        'Sets the chosen square to the current player
+        btntopleft.Text = NaCPlayer
+        theGrid(1) = NaCPlayer
+
+        'Runs the ChangePlayer subroutine
+        ChangePlayer()
+        'Disables the button
+        btntopleft.Enabled = False
+        'Runs the CheckForAWinner subroutine
+        CheckForAWinner()
+    End Sub
+    Private Sub btntop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntop.Click
+        btntop.Text = NaCPlayer
+        theGrid(2) = NaCPlayer
+
+        ChangePlayer()
+        btntop.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btntopright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntopright.Click
+        btntopright.Text = NaCPlayer
+        theGrid(3) = NaCPlayer
+
+        ChangePlayer()
+        btntopright.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btnleft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnleft.Click
+        btnleft.Text = NaCPlayer
+        theGrid(4) = NaCPlayer
+
+        ChangePlayer()
+        btnleft.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btnmiddle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmiddle.Click
+        btnmiddle.Text = NaCPlayer
+        theGrid(5) = NaCPlayer
+
+        ChangePlayer()
+        btnmiddle.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btnright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnright.Click
+        btnright.Text = NaCPlayer
+        theGrid(6) = NaCPlayer
+
+        ChangePlayer()
+        btnright.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btnbottomleft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbottomleft.Click
+        btnbottomleft.Text = NaCPlayer
+        theGrid(7) = NaCPlayer
+
+        ChangePlayer()
+        btnbottomleft.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btnbottom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbottom.Click
+        btnbottom.Text = NaCPlayer
+        theGrid(8) = NaCPlayer
+
+        ChangePlayer()
+        btnbottom.Enabled = False
+        CheckForAWinner()
+    End Sub
+    Private Sub btnbottomright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbottomright.Click
+        btnbottomright.Text = NaCPlayer
+        theGrid(9) = NaCPlayer
+
+        ChangePlayer()
+        btnbottomright.Enabled = False
+        CheckForAWinner()
+    End Sub
+
+    'Subroutine runs when called in button click subroutines
+    Private Sub CheckForAWinner()
+        'Declares the variable used to store the winner
+        Dim WhoWon As String = ""
+
+        'Checks top row to see if there are three Xs or Os in a row
+        If theGrid(1) = theGrid(2) And theGrid(2) = theGrid(3) And theGrid(1) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(1)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks middle row to see if there are three Xs or Os in a row
+        If theGrid(4) = theGrid(5) And theGrid(5) = theGrid(6) And theGrid(4) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(4)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks bottom row to see if there are three Xs or Os in a row
+        If theGrid(7) = theGrid(8) And theGrid(8) = theGrid(9) And theGrid(7) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(7)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks left column to see if there are three Xs or Os in a row
+        If theGrid(1) = theGrid(4) And theGrid(4) = theGrid(7) And theGrid(1) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(1)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks middle column to see if there are three Xs or Os in a row
+        If theGrid(2) = theGrid(5) And theGrid(5) = theGrid(8) And theGrid(2) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(2)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks right column to see if there are three Xs or Os in a row
+        If theGrid(3) = theGrid(6) And theGrid(6) = theGrid(9) And theGrid(3) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(3)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks top-left to bottom-right diagonal to see if there are three Xs or Os in a row
+        If theGrid(1) = theGrid(5) And theGrid(5) = theGrid(9) And theGrid(1) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(1)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Checks top-right to bottom-left diagonal to see if there are three Xs or Os in a row
+        If theGrid(3) = theGrid(5) And theGrid(5) = theGrid(7) And theGrid(3) <> "" Then
+            'Declares the player who has claimed the three squares the winner
+            WhoWon = theGrid(3)
+            If WhoWon = "X" Then
+                XScore.Increase()
+            Else
+                OScore.Increase()
+            End If
+            DatabaseDetails()
+
+            'Disables grid
+            btntopleft.Enabled = False
+            btntop.Enabled = False
+            btntopright.Enabled = False
+            btnleft.Enabled = False
+            btnmiddle.Enabled = False
+            btnright.Enabled = False
+            btnbottomleft.Enabled = False
+            btnbottom.Enabled = False
+            btnbottomright.Enabled = False
+        End If
+
+        'Declares the variables used to count the number of blank squares
+        Dim n As Integer
+        Dim Blanks As Integer
+
+        'For each square...
+        For n = 1 To 9
+            'If the square isn't blank, increment blanks
+            If theGrid(n) = "" Then Blanks = Blanks + 1
+        Next
+
+        'If there is a winner...
+        If WhoWon <> "" Then
+            'Makes buttons invisible
+            btnReset.Visible = True
+            lblQuestion.Visible = False
+            lblCurrPlayer.Visible = False
+            grpQuestion.Visible = False
+            txtAnswer.Visible = False
+            btnSubmit.Visible = False
+            'Declares winner
+            MsgBox(WhoWon & " wins.")
+            'Stops game
+            Exit Sub
+        End If
+
+        'Declares the StreamWriter used to write to the game breakdown text files
+        Dim writer As System.IO.StreamWriter
+        Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+
+        'If there a draw...
+        If Blanks = 0 Then
+
+            If OPlayer.Username = LoggedInStudent.Username Then
+                'Builds SQL query to execute
+                sql = "UPDATE  `tblstudents` SET  `Draws`=`Draws`+1 WHERE `Username`='" & OPlayer.Username & "';"
+
+                dbcomm = New MySqlCommand(sql, DBConn)
+                dbread = dbcomm.ExecuteReader()
+                dbread.Close()
+
+                'Sets the path to where the log shall be generated, and the filename
+                writer = My.Computer.FileSystem.OpenTextFileWriter(OPlayer.Username & ".txt", True)
+
+                'Writes the relevant data to the log
+                writer.WriteLine(OPlayer.Fname & " " & OPlayer.lname & " drew with " & XPlayer.Fname & " " & XPlayer.lname & " in Noughts and Crosses - " & TimeOfDay & " " & DateValue(Now))
+                'Saves the log file
+                writer.Close()
+            ElseIf XPlayer.Username = LoggedInStudent.Username Then
+                'Builds SQL query to execute
+                sql = "UPDATE  `tblstudents` SET  `Draws`=`Draws`+1 WHERE `Username`='" & XPlayer.Username & "';"
+
+                dbcomm = New MySqlCommand(sql, DBConn)
+                dbread = dbcomm.ExecuteReader()
+                dbread.Close()
+
+                'Sets the path to where the log shall be generated, and the filename
+                writer = My.Computer.FileSystem.OpenTextFileWriter(XPlayer.Username & ".txt", True)
+
+                'Writes the relevant data to the log
+                writer.WriteLine(XPlayer.Fname & " " & XPlayer.lname & " drew with " & OPlayer.Fname & " " & OPlayer.lname & " in Noughts and Crosses - " & TimeOfDay & " " & DateValue(Now))
+                'Saves the log file
+                writer.Close()
+            End If
+
+            'Declares draw
+            MsgBox("Draw")
+            'Makes buttons invisible
+            btnReset.Visible = True
+            grpQuestion.Visible = False
+            lblQuestion.Visible = False
+            txtAnswer.Visible = False
+            btnSubmit.Visible = False
+            lblCurrPlayer.Visible = False
+        End If
+    End Sub
+
+    'Subroutine runs when called in winner detection subroutine
+    Sub DatabaseDetails()
+        'Declares the StreamWriter used to write to the game breakdown text files
+        Dim writer As System.IO.StreamWriter
+        Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+
+        'If the O player is the winner...
+        If OScore.ScoreNum = 1 Then
+            If OPlayer.Username = LoggedInStudent.Username Then
+                'Builds SQL query to execute
+                sql = "UPDATE  `tblstudents` SET  `Wins`=`Wins`+1 WHERE `Username`='" & OPlayer.Username & "';"
+
+                dbcomm = New MySqlCommand(sql, DBConn)
+                dbread = dbcomm.ExecuteReader()
+                dbread.Close()
+
+                'Sets the path to where the log shall be generated, and the filename
+                writer = My.Computer.FileSystem.OpenTextFileWriter(OPlayer.Username & ".txt", True)
+
+                'Writes the relevant data to the log
+                writer.WriteLine(OPlayer.Fname & " " & OPlayer.lname & " beat " & XPlayer.Fname & " " & XPlayer.lname & " in Noughts and Crosses - " & TimeOfDay & " " & DateValue(Now))
+                'Saves the log file
+                writer.Close()
+            ElseIf XPlayer.Username = LoggedInStudent.Username Then
+                'Builds SQL query to execute
+                sql = "UPDATE  `tblstudents` SET  `Losses`=`Losses`+1 WHERE `Username`='" & XPlayer.Username & "';"
+
+                dbcomm = New MySqlCommand(sql, DBConn)
+                dbread = dbcomm.ExecuteReader()
+                dbread.Close()
+
+                'Sets the path to where the log shall be generated, and the filename
+                writer = My.Computer.FileSystem.OpenTextFileWriter(XPlayer.Username & ".txt", True)
+
+                'Writes the relevant data to the log
+                writer.WriteLine(XPlayer.Fname & " " & XPlayer.lname & " was beaten by " & OPlayer.Fname & " " & OPlayer.lname & " in Noughts and Crosses - " & TimeOfDay & " " & DateValue(Now))
+                'Saves the log file
+                writer.Close()
+            End If
+
+            'Resets the O score back to its default
+            OScore.ScoreNum = 0
+        End If
+        'However, if the X player is the winner...
+        If XScore.ScoreNum = 1 Then
+            If XPlayer.Username = LoggedInStudent.Username Then
+                'Builds SQL query to execute
+                sql = "UPDATE  `tblstudents` SET  `Wins`=`Wins`+1 WHERE `Username`='" & XPlayer.Username & "';"
+
+                dbcomm = New MySqlCommand(sql, DBConn)
+                dbread = dbcomm.ExecuteReader()
+                dbread.Close()
+
+                'Sets the path to where the log shall be generated, and the filename
+                writer = My.Computer.FileSystem.OpenTextFileWriter(XPlayer.Username & ".txt", True)
+
+                'Writes the relevant data to the log
+                writer.WriteLine(XPlayer.Fname & " " & XPlayer.lname & " beat " & OPlayer.Fname & " " & OPlayer.lname & " in Noughts and Crosses - " & TimeOfDay & " " & DateValue(Now))
+                'Saves the log file
+                writer.Close()
+            ElseIf OPlayer.Username = LoggedInStudent.Username Then
+                'Builds SQL query to execute
+                sql = "UPDATE  `tblstudents` SET  `Losses`=`Losses`+1 WHERE `Username`='" & OPlayer.Username & "';"
+
+                dbcomm = New MySqlCommand(sql, DBConn)
+                dbread = dbcomm.ExecuteReader()
+                dbread.Close()
+
+                'Sets the path to where the log shall be generated, and the filename
+                writer = My.Computer.FileSystem.OpenTextFileWriter(OPlayer.Username & ".txt", True)
+
+                'Writes the relevant data to the log
+                writer.WriteLine(OPlayer.Fname & " " & OPlayer.lname & " was beaten by " & XPlayer.Fname & " " & XPlayer.lname & " in Noughts and Crosses - " & TimeOfDay & " " & DateValue(Now))
+                'Saves the log file
+                writer.Close()
+            End If
+            'Resets the O score back to its default
+            XScore.ScoreNum = 0
+        End If
+
+        grpQuestion.Visible = False
+
+        btnReset.Location = New Point(331, 206)
+        btnReset.Visible = True
+    End Sub
+
+    'Subroutine runs when called in the ChangePlayer subroutine
+    Sub CurrPlayer()
+        'If the logged-in player is the same as the current player, which is X...
+        If LoggedInStudent.NaCPlayer = "X" Then
+            If NaCPlayer = "X" Then
+                'Places the current player label pointing to the logged-in student
+                lblCurrPlayer.Top = StudentCurrLocationY
+                'However if the current player is O...
+            Else
+                'Places the current player label pointing to the opponent student
+                lblCurrPlayer.Top = OppStudentCurrLocationY
+            End If
+            'However, if the opponent student is the same as the current player, which is O...
+        Else
+            If NaCPlayer = "O" Then
+                'Places the current player label pointing to the logged-in student
+                lblCurrPlayer.Top = StudentCurrLocationY
+                'However if the current player is yellow...
+            Else
+                'Places the current player label pointing to the opponent student
+                lblCurrPlayer.Top = OppStudentCurrLocationY
+            End If
+        End If
+    End Sub
+
+    'Subroutine runs when called in form load subroutine
+    Sub AccountSection()
+        'Populates the player name labels with data and get a picture of each player
+        lblStudentName.Text = LoggedInStudent.Fname & " " & LoggedInStudent.Lname
+        picStudent.ImageLocation = OPlayer.Username & ".jpg"
+
+        lblOppStudentName.Text = OppStudent.Fname & " " & OppStudent.Lname
+        picOppStudentPic.ImageLocation = XPlayer.Username & ".jpg"
+    End Sub
+
+    'Subroutine runs when reset button is clicked
+    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
+        'This re-enables all of the buttons, removes the Xs and 0s from them as well as resetting the array
+        btntopleft.Enabled = True
+        btntop.Enabled = True
+        btntopright.Enabled = True
+        btnleft.Enabled = True
+        btnmiddle.Enabled = True
+        btnright.Enabled = True
+        btnbottomleft.Enabled = True
+        btnbottom.Enabled = True
+        btnbottomright.Enabled = True
+
+        btntopleft.Text = ""
+        btntop.Text = ""
+        btntopright.Text = ""
+        btnleft.Text = ""
+        btnmiddle.Text = ""
+        btnright.Text = ""
+        btnbottomleft.Text = ""
+        btnbottom.Text = ""
+        btnbottomright.Text = ""
+
+        Dim n As Integer
+
+        For n = 1 To 9
+            theGrid(n) = ""
+        Next
+
+        'Resets the current player
+        NaCPlayer = "X"
+        CurrPlayer()
+
+        'Runs the Question subroutine
+        Question()
+
+        'Makes the controls visible
+        lblCurrPlayer.Visible = True
+        grpQuestion.Visible = True
+        lblQuestion.Visible = True
+        txtAnswer.Visible = True
+        btnSubmit.Visible = True
+        btnReset.Visible = False
+        btnReset.Location = New Point(19, 90)
+    End Sub
+
+    'Subroutine runs when back button is clicked
+    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
+        'Shows the Noughts and Crosses menu
+        frmNoughtsandCrossesMenu.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+    'Subroutine runs when called in ChangePlayer and btnReset_Click subroutines
+    Sub Question()
+        Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+
+        sql = "SELECT * FROM tblquestions WHERE SubjectID='" & NaCSubject & "' AND Difficulty='" & NaCDifficulty & "' AND Topic='" & NaCTopic & "' ORDER BY RAND() LIMIT 1;"
+        dbcomm = New MySqlCommand(sql, DBConn)
+        dbread = dbcomm.ExecuteReader()
+
+        While dbread.Read
+            'Sets the QuestionID variable to that of the selected question
+            QuestionID = dbread("QuestionID")
+
+            'Makes the question controls visible
+            grpQuestion.Visible = True
+            lblQuestion.Visible = True
+            txtAnswer.Visible = True
+            btnSubmit.Visible = True
+
+            'Displays the selected question
+            lblQuestion.Text = dbread("Question")
+        End While
+        'Closes the recordset
+        dbread.Close()
+    End Sub
+
+    'Subroutine runs when called in form load and button click subroutines
+    Sub ChangePlayer()
+        'Changes the current player
+        If NaCPlayer = "X" Then
+            NaCPlayer = "O"
+            CurrPlayer()
+        Else
+            NaCPlayer = "X"
+            CurrPlayer()
+        End If
+
+        'Hides the buttons
+        btntopleft.Enabled = False
+        btntop.Enabled = False
+        btntopright.Enabled = False
+        btnleft.Enabled = False
+        btnmiddle.Enabled = False
+        btnright.Enabled = False
+        btnbottomleft.Enabled = False
+        btnbottom.Enabled = False
+        btnbottomright.Enabled = False
+
+        'Runs the Question subroutine
+        Question()
+    End Sub
+
+    'Subroutine runs then answer submit button is clicked
+    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
+        Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+        Dim foob As Integer = 0
+        'Hides the question controls
+        grpQuestion.Visible = False
+        lblQuestion.Visible = False
+        txtAnswer.Visible = False
+        btnSubmit.Visible = False
+
+        sql = "SELECT * FROM tblquestions WHERE QuestionID='" & QuestionID & "';"
+        dbcomm = New MySqlCommand(sql, DBConn)
+        dbread = dbcomm.ExecuteReader()
+        While dbread.Read
+            'If the answer is correct...
+            If txtAnswer.Text = dbread("Answer") Then
+                'Display a message box
+                MsgBox("Correct!")
+
+                'Sets the question correct flag to true
+                QCorrect = True
+
+                'Makes the buttons visible
+                btntopleft.Enabled = True
+                btntop.Enabled = True
+                btntopright.Enabled = True
+                btnleft.Enabled = True
+                btnmiddle.Enabled = True
+                btnright.Enabled = True
+                btnbottomleft.Enabled = True
+                btnbottom.Enabled = True
+                btnbottomright.Enabled = True
+
+                'However if the answer if incorrect...
+            Else
+                'Display a message box
+                MsgBox("Incorrect!")
+
+                'Sets the question correct flag to false
+                QCorrect = False
+
+                foob = 1
+            End If
+        End While
+
+        dbread.Close()
+
+        'Runs the QDatabase subroutine
+        QDatabase()
+
+        If foob = 1 Then
+            'Runs the ChangePlayer subroutine
+            ChangePlayer()
+        End If
+
+        'Blanks the answer textbox for the next question
+        txtAnswer.Text = ""
+    End Sub
+
+    'Subroutine runs when called in btnSubmit_Click subroutine
+    Sub QDatabase()
+        Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+
+        If C4Player = "Red" Then
+            If OPlayer.Username = LoggedInStudent.Username Then
+                sql = "INSERT INTO `cl51-ben`.`tblattempted` (`SubjectID`, `QuestionID`, `StudentID`, `When`, `Correct`) VALUES ('" & NaCSubject & "', '" & QuestionID & "', '" & LoggedInStudent.StudentID & "', '" & TimeOfDay & " " & DateValue(Now) & "', "
+            Else
+                sql = "INSERT INTO `cl51-ben`.`tblattempted` (`SubjectID`, `QuestionID`, `StudentID`, `When`, `Correct`) VALUES ('" & NaCSubject & "', '" & QuestionID & "', '" & OppStudent.StudentID & "', '" & TimeOfDay & " " & DateValue(Now) & "', "
+            End If
+        Else
+            If XPlayer.Username = LoggedInStudent.Username Then
+                sql = "INSERT INTO `cl51-ben`.`tblattempted` (`SubjectID`, `QuestionID`, `StudentID`, `When`, `Correct`) VALUES ('" & NaCSubject & "', '" & QuestionID & "', '" & LoggedInStudent.StudentID & "', '" & TimeOfDay & " " & DateValue(Now) & "', "
+            Else
+                sql = "INSERT INTO `cl51-ben`.`tblattempted` (`SubjectID`, `QuestionID`, `StudentID`, `When`, `Correct`) VALUES ('" & NaCSubject & "', '" & QuestionID & "', '" & OppStudent.StudentID & "', '" & TimeOfDay & " " & DateValue(Now) & "', "
+            End If
+        End If
+        If QCorrect = True Then
+            sql = sql & "'1');"
+        Else
+            sql = sql & "'0');"
+        End If
+
+        dbcomm = New MySqlCommand(sql, DBConn)
+        dbread = dbcomm.ExecuteReader()
+
+        'Resets the question correct flag
+        QCorrect = False
+
+        dbread.Close()
+    End Sub
+
+    'Subroutine runs when view logged-in student's profile button is clicked
+    Private Sub btnViewProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewProfile.Click
+        'Sets viewed profile to logged-in student's
+        Viewing = 1
+        'Shows the student account form
+        frmStudentAccount.Show()
+    End Sub
+
+    'Subroutine runs when view opponent student's profile button is clicked
+    Private Sub btnOppViewProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOppViewProfile.Click
+        'Sets viewed profile to opponent student's
+        Viewing = 2
+        'Shows the student account form
+        frmStudentAccount.Show()
+    End Sub
+End Class

StudentForms/NoughtsandCrosses/frmNaCHotseatLogin.vb

@@ -0,0 +1,74 @@
+Imports MySql.Data.MySqlClient
+
+Public Class frmNaCHotseatLogin
+
+    'Declares the variables used to log in
+    Dim EnteredUsername, EnteredPassword As String
+
+    'Subroutine runs when the form loads
+    Private Sub frmNaCHotseatLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        'Runs the OpenDB subroutine
+        OpenDB()
+    End Sub
+
+    'Subroutine runs when the okay button is clicked
+    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+        'Runs the Login subroutine
+        Login()
+    End Sub
+
+    'Subroutine runs when called in btnOK_Click subroutine
+    Sub Login()
+        'Sets the EnteredUsername and EnteredPassword variables to the entered username and password
+        EnteredUsername = txtUsername.Text
+        EnteredPassword = txtPassword.Text
+
+        If EnteredUsername <> LoggedInStudent.Username Then
+            Dim sql As String
+            Dim dbcomm As MySqlCommand
+            Dim dbread As MySqlDataReader
+            Dim foo As Integer = 0
+            sql = "SELECT * FROM tblstudents WHERE Username='" & EnteredUsername & "' AND Password='" & EnteredPassword & "';"
+            dbcomm = New MySqlCommand(sql, DBConn)
+            dbread = dbcomm.ExecuteReader()
+            While dbread.Read
+                'Fills the various properties of the OppStudent object with their respective values from the database
+                OppStudent.Fname = dbread("Fname")
+                OppStudent.Lname = dbread("Lname")
+                OppStudent.Form = dbread("FormNum") & dbread("FormLetter")
+                OppStudent.Wins = dbread("Wins")
+                OppStudent.Losses = dbread("Losses")
+                OppStudent.Draws = dbread("Draws")
+                OppStudent.Username = dbread("Username")
+                OppStudent.StudentID = dbread("StudentID")
+                foo = 1
+            End While
+            If foo = 1 Then
+                'Opens the Noughts and Crosses subject selection form
+                frmNaCHotseatSubject.Show()
+                'Closes this form
+                Me.Close()
+                dbread.Close()
+                Exit Sub
+            End If
+            'If the login details were invalid an error message will appear and the username and password textboxes will be blanked out
+            MsgBox("Invalid: Incorrect username or password.")
+            txtUsername.Text = ""
+            txtPassword.Text = ""
+        Else
+            'If the login details where the same as those of the currently logged-in student, an error message will appear and the username and password textboxes will be blanked out
+            MsgBox("Invalid: That's you.")
+            txtUsername.Text = ""
+            txtPassword.Text = ""
+        End If
+    End Sub
+
+    'Subroutine runs when the cancel button is clicked
+    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+        'Opens the Noughts and Crosses menu form
+        frmNoughtsandCrossesMenu.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+End Class

StudentForms/NoughtsandCrosses/frmNaCHotseatPlayerSelect.vb

@@ -0,0 +1,89 @@
+Public Class frmNaCHotseatPlayerSelect
+
+    'Subroutine runs on form load
+    Private Sub frmNACHotseatPlayerSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        'Populates the player name labels with data
+        lblLoggedInStudent.Text = LoggedInStudent.Fname & " " & LoggedInStudent.Lname
+        lblOppStudent.Text = OppStudent.Fname & " " & OppStudent.Lname
+    End Sub
+
+    'Subroutines run when the counter selection buttons are clicked
+    Private Sub btnOSX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOSX.Click
+        'Sets the opponent student's counter to X
+        OppStudent.NaCPlayer = "X"
+        'Updates the appearance of the form
+        picOSX.Image = My.Resources.x
+        'Disables changing the counter and the logged-in student also picking X
+        btnOSX.Enabled = False
+        btnOSO.Enabled = False
+        btnLISX.Enabled = False
+        With picX
+            .Image = Nothing
+            .Tag = "None"
+        End With
+        'Runs the CheckBoth subroutine
+        CheckBoth()
+    End Sub
+    Private Sub btnOSO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOSO.Click
+        OppStudent.NaCPlayer = "O"
+        picOSO.Image = My.Resources.o
+        btnOSO.Enabled = False
+        btnOSX.Enabled = False
+        btnLISO.Enabled = False
+        With picO
+            .Image = Nothing
+            .Tag = "None"
+        End With
+        CheckBoth()
+    End Sub
+    Private Sub btnLISX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLISX.Click
+        LoggedInStudent.NaCPlayer = "X"
+        picLISX.Image = My.Resources.x
+        btnLISX.Enabled = False
+        btnLISO.Enabled = False
+        btnOSX.Enabled = False
+        With picX
+            .Image = Nothing
+            .Tag = "None"
+        End With
+        CheckBoth()
+    End Sub
+    Private Sub btnLISO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLISO.Click
+        LoggedInStudent.NaCPlayer = "O"
+        picLISO.Image = My.Resources.o
+        btnLISO.Enabled = False
+        btnLISX.Enabled = False
+        btnOSO.Enabled = False
+        With picO
+            .Image = Nothing
+            .Tag = "None"
+        End With
+        CheckBoth()
+    End Sub
+
+    'Subroutine runs when called in the counter selection button click subroutines
+    Sub CheckBoth()
+        'If both players have chosen...
+        If picO.Tag = "None" And picX.Tag = "None" Then
+            'Enables the button to leave the form
+            btnContinue.Enabled = True
+        End If
+    End Sub
+
+    'Subroutine runs when the continue button is clicked
+    Private Sub btnContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContinue.Click
+        'Shows the Noughts and Crosses hotseat form
+        frmNaCHotseat.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+    'Subroutine runs when the cancel button is clicked
+    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+        'Shows the Noughts and Crosses hotseat question selection form
+        frmNaCHotseatSubject.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+End Class

StudentForms/NoughtsandCrosses/frmNaCHotseatSubject.vb

@@ -0,0 +1,92 @@
+Imports MySql.Data.MySqlClient
+
+Public Class frmNaCHotseatSubject
+    'Declares the variable used to store the chosen SubjectID
+    Dim SubjectID As Integer
+
+    'Subroutine runs on form load
+    Private Sub frmNaCHotseatSubject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        'Runs the OpenDB subroutine
+        OpenDB()
+
+        'Runs the Populate subroutine
+        Populate()
+    End Sub
+
+    'Subroutine runs then the okay button is clicked
+    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+        'If everything has been selected...
+        If (cmboDifficulty.SelectedItem <> "") And (cmboSubject.SelectedItem <> "") And (cmboTopic.SelectedItem <> "") Then
+
+            'Sets the chosen subject, difficulty and topic variables
+            NaCSubject = SubjectID
+            NaCDifficulty = cmboDifficulty.SelectedItem
+            NaCTopic = cmboTopic.SelectedItem
+
+            'Shows the Connect Four hotseat player selection form
+            frmNaCHotseatPlayerSelect.Show()
+            'Closes this form
+            Me.Close()
+        Else
+            'Otherwise display an error message
+            MsgBox("Incorrect values")
+        End If
+    End Sub
+
+    'Subroutine runs when called at form load
+    Sub Populate()
+       Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+
+        sql = "SELECT * FROM tblsubjects;"
+        dbcomm = New MySqlCommand(sql, DBConn)
+        dbread = dbcomm.ExecuteReader()
+        While dbread.Read
+            cmboSubject.Items.Add(dbread("Subject"))
+        End While
+        dbread.Close()
+    End Sub
+
+    'Subroutine runs when the selected item of the subject combobox is changed
+    Private Sub cmboSubject_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmboSubject.SelectedIndexChanged
+        'Declares the StreamReader used to read the topic text file
+        Dim Reader As System.IO.StreamReader
+
+        'Enables the topic combobox and clears it of any data
+        cmboTopic.Enabled = True
+        cmboTopic.Items.Clear()
+
+        'Sets the path to where the file is
+        Reader = My.Computer.FileSystem.OpenTextFileReader(cmboSubject.SelectedItem & "Topics.txt")
+        'Whilst not at the end of the text file...
+        While Not Reader.EndOfStream
+            'Add the topic to the combobox
+            cmboTopic.Items.Add(Reader.ReadLine)
+        End While
+
+        'Closes the streamreader
+        Reader.Close()
+
+        Dim sql As String
+        Dim dbcomm As MySqlCommand
+        Dim dbread As MySqlDataReader
+
+        sql = "SELECT * FROM tblsubjects WHERE Subject='" & cmboSubject.SelectedItem & "';"
+        dbcomm = New MySqlCommand(sql, DBConn)
+        dbread = dbcomm.ExecuteReader()
+        While dbread.Read
+            SubjectID = dbread("SubjectID")
+        End While
+        dbread.Close()
+    End Sub
+
+    'Subroutine runs when the cancel button is clicked
+    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+        'Shows the Noughts and Crosses hotseat login form
+        frmNaCHotseatLogin.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+End Class

StudentForms/NoughtsandCrosses/frmNoughtsandCrossesMenu.vb

@@ -0,0 +1,19 @@
+Public Class frmNoughtsandCrossesMenu
+
+    'Subroutine runs when the hotseat game button is clicked
+    Private Sub btnHotseat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHotseat.Click
+        'Shows the Noughts and Crosses hotseat login form
+        frmNaCHotseatLogin.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+    'Subroutine runs when the back button is clicked
+    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
+        'Shows the student home form
+        frmStudentHome.Show()
+        'Closes this form
+        Me.Close()
+    End Sub
+
+End Class