# 5 Re: Project Help!
The following is the original code without the timer.
Option Explicit On
Option Strict On
Imports System.Globalization
Public Class QuizForm
Public score As String
Public qnsAttempted As String
' If user does not want to continue the quiz,
' a message would pop up to confirm.
Private Sub endQuizButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles endQuizButton.Click
Dim button As DialogResult
button = MessageBox.Show("Are you sure you want to end quiz?", "Quit", _
MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, _
MessageBoxDefaultButton.Button2)
' If the user clicks yes on the message box,
' the particulars form, the instructions form and the quiz form would close.
' This would ensure a proper exit of the entire program.
If button = Windows.Forms.DialogResult.Yes Then
Me.Visible = False
ResultsForm.ShowDialog()
End If
End Sub
Private Sub QuizForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'TODO: This line of code loads data into the 'VbQuizDataSet.Questions' table. You can move, or remove it, as needed.
Me.QuestionsTableAdapter.Fill(Me.VbQuizDataSet.Questions)
' shows the instructions dialog box when quiz form loads.
InstructionsForm.ShowDialog()
End Sub
Private Sub submitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submitButton.Click
Dim recPtrPos As Integer
Dim userAnswer As String = ""
Static numCorrect As Integer
Static numIncorrect As Integer
Dim questionsAttempted As Integer
Dim randomGenerator As New Random
Dim randomNumber1 As Integer
Dim randomNumber2 As Integer
Dim randomNumber3 As Integer
Dim randomNumber4 As Integer
Dim randomNumber5 As Integer
Dim randomNumber6 As Integer
Dim randomNumber7 As Integer
Dim randomNumber8 As Integer
Dim randomNumber9 As Integer
Dim randomNumber10 As Integer
Dim randomNumber11 As Integer
Dim randomNumber12 As Integer
Dim randomNumber13 As Integer
Dim randomNumber14 As Integer
Dim randomNumber15 As Integer
Dim randomNumber16 As Integer
Dim randomNumber17 As Integer
Dim randomNumber18 As Integer
Dim randomNumber19 As Integer
Dim randomNumber20 As Integer
' store position of record pointer
recPtrPos = QuestionsBindingSource.Position
' determines selected radio button, which
' represents the user's answer
If optionARadioButton.Checked = True Or optionBRadioButton.Checked = True Or _
optionCRadioButton.Checked = True Or optionDRadioButton.Checked = True Then
Select Case True
Case optionARadioButton.Checked
userAnswer = optionARadioButton.Text.Replace("&", "")
Case optionBRadioButton.Checked
userAnswer = optionBRadioButton.Text.Replace("&", "")
Case optionCRadioButton.Checked
userAnswer = optionCRadioButton.Text.Replace("&", "")
Case optionDRadioButton.Checked
userAnswer = optionDRadioButton.Text.Replace("&", "")
End Select
Else
MessageBox.Show("Please choose an option!", "Error", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End If
' Update number of correct answers
If userAnswer = _
VbQuizDataSet.Questions(recPtrPos).Answer Then
numCorrect = numCorrect + 1
Else
numIncorrect = numIncorrect + 1
End If
' Show number of correct answers in score textbox
score = Convert.ToString(numCorrect)
scoreTextBox.Text = score
' Show number of questions attempted in questions attempted textbox
questionsAttempted = numCorrect + numIncorrect
qnsAttempted = Convert.ToString(questionsAttempted)
questionsAttemptedTextBox.Text = qnsAttempted
' generates random numbers which are greater or equal to 0 and lesser than 8
randomNumber1 = randomGenerator.Next(0, 2)
randomNumber2 = randomGenerator.Next(2, 4)
randomNumber3 = randomGenerator.Next(4, 6)
randomNumber4 = randomGenerator.Next(6, 8)
randomNumber5 = randomGenerator.Next(8, 10)
randomNumber6 = randomGenerator.Next(10, 12)
randomNumber7 = randomGenerator.Next(12, 14)
randomNumber8 = randomGenerator.Next(14, 16)
randomNumber9 = randomGenerator.Next(16, 18)
randomNumber10 = randomGenerator.Next(18, 20)
randomNumber11 = randomGenerator.Next(20, 22)
randomNumber12 = randomGenerator.Next(22, 24)
randomNumber13 = randomGenerator.Next(24, 26)
randomNumber14 = randomGenerator.Next(26, 28)
randomNumber15 = randomGenerator.Next(28, 30)
randomNumber16 = randomGenerator.Next(30, 32)
randomNumber17 = randomGenerator.Next(32, 34)
randomNumber18 = randomGenerator.Next(34, 36)
randomNumber19 = randomGenerator.Next(36, 38)
randomNumber20 = randomGenerator.Next(38, 40)
' chooses the record from the database according to
' the random number that is created
' after 20 questions have been completed the dialog box appears
If questionsAttempted = 0 Then
QuestionsBindingSource.Position = randomNumber1
ElseIf questionsAttempted = 1 Then
QuestionsBindingSource.Position = randomNumber2
ElseIf questionsAttempted = 2 Then
QuestionsBindingSource.Position = randomNumber3
ElseIf questionsAttempted = 3 Then
QuestionsBindingSource.Position = randomNumber4
ElseIf questionsAttempted = 4 Then
QuestionsBindingSource.Position = randomNumber5
ElseIf questionsAttempted = 5 Then
QuestionsBindingSource.Position = randomNumber6
ElseIf questionsAttempted = 6 Then
QuestionsBindingSource.Position = randomNumber7
ElseIf questionsAttempted = 7 Then
QuestionsBindingSource.Position = randomNumber8
ElseIf questionsAttempted = 8 Then
QuestionsBindingSource.Position = randomNumber9
ElseIf questionsAttempted = 9 Then
QuestionsBindingSource.Position = randomNumber10
ElseIf questionsAttempted = 10 Then
QuestionsBindingSource.Position = randomNumber11
ElseIf questionsAttempted = 11 Then
QuestionsBindingSource.Position = randomNumber12
ElseIf questionsAttempted = 12 Then
QuestionsBindingSource.Position = randomNumber13
ElseIf questionsAttempted = 13 Then
QuestionsBindingSource.Position = randomNumber14
ElseIf questionsAttempted = 14 Then
QuestionsBindingSource.Position = randomNumber15
ElseIf questionsAttempted = 15 Then
QuestionsBindingSource.Position = randomNumber16
ElseIf questionsAttempted = 16 Then
QuestionsBindingSource.Position = randomNumber17
ElseIf questionsAttempted = 17 Then
QuestionsBindingSource.Position = randomNumber18
ElseIf questionsAttempted = 18 Then
QuestionsBindingSource.Position = randomNumber19
ElseIf questionsAttempted = 19 Then
QuestionsBindingSource.Position = randomNumber20
ElseIf questionsAttempted = 20 Then
Me.Visible = False
ResultsForm.ShowDialog()
End If
' unchecks all radio buttons when moving on to next question
optionARadioButton.Checked = False
optionBRadioButton.Checked = False
optionCRadioButton.Checked = False
optionDRadioButton.Checked = False
End Sub
End Class
I want to insert the timer such that each qn has a time limit of 30 secs. If the user has not checked any of the radio buttons and click the submit button and there is still time for the qn, an error message must pop up. If the user has not checked any of the radio button and the time is up, the qn should be cosidered as attempted and that qn should also be considered wrong.
Thanks!
