This is a vb.net app for a quiz I've been working on. It is not, I stress, not a homework assignment as I am 20+ years out of school. My question, how would I code a submit button to check the answer when someone clicks a RadioButton. I have a quiz that gives 4 options for answers, 1 is correct. This is my format in a txt file: 1,question1, answer1|answer2|answer3|answer4, correct answer
This is my variable
Public Property CorrectAnswer As String
This is my form1_load
Using sr As New StreamReader("C:\Quiz\questions.txt")
While Not sr.EndOfStream
Dim data() = sr.ReadLine.Split(","c)
Dim qAndA As New QuestionWithAnswers
qAndA.ItemNumber = Integer.Parse(data(0))
qAndA.Question = data(1)
Dim answers() = data(2).Split("|"c)
For Each answer In answers
qAndA.Answers.Add(New QuestionWithAnswers.Answer With {.AnswerText = answer, .AnswerChecked = False})
Next
qAndA.CorrectAnswer = data(3)
AllQuestions.Add(qAndA)
LoadQuestion()
UpdateLabel()
End While
End Using
This is my Radiobutton (Handles all 4)
If Not updatingQuestion Then
Dim rb = DirectCast(sender, RadioButton)
Dim qandaAnswer = curQandA.Answers.Where(Function(a) a.AnswerText = rb.Text).FirstOrDefault
If Not qandaAnswer Is Nothing Then qandaAnswer.AnswerChecked = True
For Each ans In curQandA.Answers
If ans Is qandaAnswer Then
ans.AnswerChecked = True
Else
ans.AnswerChecked = False
End If
Next
End If
This is my sub LoadQuestion()
Private Sub LoadQuestion()
If AllQuestions.Count = 0 Then Exit Sub
updatingQuestion = True
curQandA = AllQuestions.ElementAt(qIndex)
TextBox1.Text = curQandA.Question
TextBox2.Text = curQandA.Answers.ElementAt(0).AnswerText
TextBox3.Text = curQandA.Answers.ElementAt(1).AnswerText
TextBox4.Text = curQandA.Answers.ElementAt(2).AnswerText
TextBox5.Text = curQandA.Answers.ElementAt(3).AnswerText
RadioButton1.Checked = curQandA.Answers.ElementAt(0).AnswerChecked
RadioButton2.Checked = curQandA.Answers.ElementAt(1).AnswerChecked
RadioButton3.Checked = curQandA.Answers.ElementAt(2).AnswerChecked
RadioButton4.Checked = curQandA.Answers.ElementAt(3).AnswerChecked
updatingQuestion = False
This is my next button (my previous button is similiar)
curQandA = AllQuestions.ElementAt(qIndex)
If qIndex < 3 Then ' is it safe to increment
qIndex += 1 'it is, 'then set the current question here since we are using an index
LoadQuestion()
End If
If _myIndex < 4 Then
_myIndex += 1
UpdateLabel()
End If
Now I just need to code my submit button to check answer in variable CorrectAnswer! Any help in the right direction appreciated!
New to vb.net!