Hallo allemaal,
Ik ben bezig met het maken van een quiz met 10 vragen en mogelijke antwoorden (steeds 2 of 3 opties)
Ik wil dat deze vragen en antwoorden van de volgende vraag in het formulier gezet worden als ik klik op een mogelijk antwoord. Nu lukt dit, tot het moment dat hij bij vraag 10 is en dan start hij weer bij vraag 1. Ik wil dat ie na vraag 10 doorgaat naar het scoreformulier (de scoring enzo moet ik nog invoegen hoor), maar nu geeft ie steeds aan dat de index exception out of bounds is en dat begrijp ik, maar weet niet hoe ik het anders moet doen. Iemand een idee??
Alvast bedankt.
Ik ben bezig met het maken van een quiz met 10 vragen en mogelijke antwoorden (steeds 2 of 3 opties)
Ik wil dat deze vragen en antwoorden van de volgende vraag in het formulier gezet worden als ik klik op een mogelijk antwoord. Nu lukt dit, tot het moment dat hij bij vraag 10 is en dan start hij weer bij vraag 1. Ik wil dat ie na vraag 10 doorgaat naar het scoreformulier (de scoring enzo moet ik nog invoegen hoor), maar nu geeft ie steeds aan dat de index exception out of bounds is en dat begrijp ik, maar weet niet hoe ik het anders moet doen. Iemand een idee??
Alvast bedankt.
Code:
Public Class frmQuestions
Dim strQuestion(9) As String
Dim strAnswer1(9) As String
Dim strAnswer2(9) As String
Dim strAnswer3(9) As String
Dim intPosition As Integer = 0
Private Sub frmQuestions_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'vullen van de vragen (as string)
strQuestion(0) = "1. Als hoeveelste gaf de mol de jarige een cadeau?"
strAnswer1(0) = "1"
strAnswer2(0) = "4"
strAnswer3(0) = "De mol gaf geen cadeau"
strQuestion(1) = "2. Schreef de mol tijdens de fietstocht?"
strAnswer1(1) = "Ja"
strAnswer2(1) = "Nee"
strQuestion(2) = "3. Wat voor soort fiets had de mol vandaag bij zich?"
strAnswer1(2) = "Mountainbike"
strAnswer2(2) = "Omafiets"
strAnswer3(2) = "Anders"
strQuestion(3) = "4. Heeft de mol tijdens de vlaggenopdracht letters uitgebeeld met de vlag?"
strAnswer1(3) = "Ja"
strAnswer2(3) = "Nee"
strQuestion(4) = "5. Was de mol dirigent bij het zingen van Vader Jacob?"
strAnswer1(4) = "Ja"
strAnswer2(4) = "Nee"
strQuestion(5) = "6. Verdiende de kandidaten in de groep van de mol een joker?"
strAnswer1(5) = "Ja"
strAnswer2(5) = "Nee"
strQuestion(6) = "7. Is de mol een meisje?"
strAnswer1(6) = "Ja"
strAnswer2(6) = "Nee"
strQuestion(7) = "8. Waar stond de Mol bij het boogschieten?"
strAnswer1(7) = "Naast Lucas"
strAnswer2(7) = "Naast Jonathan"
strAnswer3(7) = "Naast Marije"
strQuestion(8) = "9. Welke kleur jas heeft de mol?"
strAnswer1(8) = "Groen"
strAnswer2(8) = "Blauw"
strAnswer3(8) = "Zwart"
strQuestion(9) = "10. In welke groep zit de Mol?"
strAnswer1(9) = "Groep 6"
strAnswer2(9) = "Groep 7"
strAnswer3(9) = "Groep 8"
NextQuestion(0)
End Sub
'volgende vraag na de index
Private Sub NextQuestion(index As Integer)
intPosition += index
If intPosition < 0 Then
intPosition = 9
ElseIf intPosition > 9 Then
frmScore.Show()
End If
txtQuestion.Text = strQuestion(intPosition)
rbAnswer1.Text = strAnswer1(intPosition)
rbAnswer2.Text = strAnswer2(intPosition)
rbAnswer3.Text = strAnswer3(intPosition)
End Sub
Private Sub rbAnswer1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbAnswer1.CheckedChanged
If rbAnswer1.Checked Then
NextQuestion(1)
End If
rbAnswer1.Checked = False
End Sub
Private Sub rbAnswer2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbAnswer2.CheckedChanged
If rbAnswer2.Checked Then
NextQuestion(1)
rbAnswer2.Checked = False
End If
End Sub
Private Sub rbAnswer3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbAnswer3.CheckedChanged
If rbAnswer3.Checked Then
NextQuestion(1)
rbAnswer3.Checked = False
End If
End Sub
End Class
Laatst bewerkt door een moderator: