Public Class Milionairs
Private Vragen(15, 5) As String
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Vul de vragenlijst.
Vragen(0, 0) = "Waar ligt de toren van pisa?"
Vragen(0, 1) = "Italie"
Vragen(0, 2) = "Nederland"
Vragen(0, 3) = "Frankrijk"
Vragen(0, 4) = "Spanje"
Vragen(0, 5) = "A"
Vragen(1, 0) = "Wie is verkozen tot beste dj van de wereld, afgelopen jaar?"
Vragen(1, 1) = "Tiesto"
Vragen(1, 2) = "Paul van Dyk"
Vragen(1, 3) = "Armin van Buuren"
Vragen(1, 4) = "Sidney Samson"
Vragen(1, 5) = "C"
Vragen(2, 5) = "C"
Vragen(3, 5) = "C"
Vragen(4, 5) = "C"
Vragen(5, 5) = "C"
Vragen(6, 5) = "C"
Vragen(7, 5) = "C"
Vragen(8, 5) = "C"
Vragen(9, 5) = "C"
Vragen(10, 5) = "C"
Vragen(11, 5) = "C"
Vragen(12, 5) = "C"
Vragen(13, 5) = "C"
Vragen(14, 5) = "C"
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
Private Sub ButtonA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonA.Click
Antwoord("A")
End Sub
Private Sub ButtonB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonB.Click
Antwoord("B")
End Sub
Private Sub ButtonC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonC.Click
Antwoord("C")
End Sub
Private Sub ButtonD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonD.Click
Antwoord("D")
End Sub
Private Sub BigButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BigButton.Click
ToonKnoppen(True)
Start()
End Sub
Private Sub ButtonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStop.Click
VraagBox.Text = "U bent gestopt. U heeft "
VraagBox.Text += GeldLadder.GetItemText(GeldLadder.SelectedItem())
VraagBox.Text += " fruitsleutels verdiend."
ToonKnoppen(False)
End Sub
Private Function Start()
GeldLadder.SelectedIndex() = 15
GaNaarVraag(1)
End Function
Private Function Antwoord(ByVal Knop As String)
Dim Juist = Vragen(15 - GeldLadder.SelectedIndex(), 5)
Dim Vraag = 16 - GeldLadder.SelectedIndex()
' Controleer of het antwoord juist is.
If Knop = Juist Then
' Controleer of dit de laatste vraag was.
If Vraag < 15 Then
GaNaarVraag(Vraag + 1)
Else
' Selecteer de juiste prijs in de GeldLadder.
GeldLadder.SelectedIndex() = 0
' Verberg de vraag knoppen.
ToonKnoppen(False)
' Verander de tekst van de grote knop.
BigButton.Text = "Nogmaals spelen"
' Toon de "Gefeliciteerd, bla bla" tekst.
VraagBox.Text = "Gefeliciteerd!!! U heeft 1.000.000 fruitsleutels verdiend."
End If
Else
' Toon de "Helaas, bla bla" tekst.
VraagBox.Text = "Helaas, dat is niet het juiste antwoord. Het juiste antwoord was: "
' Toon het juiste antwoord.
Select Case Juist
Case "A"
VraagBox.Text += ButtonA.Text
Case "B"
VraagBox.Text += ButtonB.Text
Case "C"
VraagBox.Text += ButtonC.Text
Case "D"
VraagBox.Text += ButtonD.Text
End Select
' Val terug naar het laatste veilige punt.
GeldLadder.SelectedIndex() += (Vraag - 1) Mod 5
' Toon de tekst met het aantal verdiende fruitsleutels.
VraagBox.Text += ". U heeft "
VraagBox.Text += GeldLadder.GetItemText(GeldLadder.SelectedItem())
VraagBox.Text += " fruitsleutels verdiend."
' Verander de text van de grote knop.
BigButton.Text = "Begin overnieuw"
' Toon de enkele grote knop IPV de kleinere
ToonKnoppen(False)
End If
End Function
Private Function GaNaarVraag(ByVal Vraag As Integer)
' Selecteer de juiste prijs in de GeldLadder.
GeldLadder.SelectedIndex() = 16 - Vraag
' Toon de vraag.
VraagBox.Text = "Vraag " + String.Concat(Vraag) + ": " + Vragen(Vraag - 1, 0)
' Toon de antwoorden.
ButtonA.Text = "A: " + Vragen(Vraag - 1, 1)
ButtonB.Text = "B: " + Vragen(Vraag - 1, 2)
ButtonC.Text = "C: " + Vragen(Vraag - 1, 3)
ButtonD.Text = "D: " + Vragen(Vraag - 1, 4)
End Function
Private Sub ToonKnoppen(Optional ByVal MeerdereKnoppen As Integer = False)
ButtonA.Visible() = MeerdereKnoppen
ButtonB.Visible() = MeerdereKnoppen
ButtonC.Visible() = MeerdereKnoppen
ButtonD.Visible() = MeerdereKnoppen
ButtonStop.Visible() = MeerdereKnoppen
BigButton.Visible() = Not MeerdereKnoppen
End Sub
End Class
)
. Denk dat het het makkelijkst is om met de hand te doen.
