Miscellany

Dim Cijferrij() As Single
Private Sub cmd_controle_Click()
Dim getallijst() As Single
gegeven_antwoord = txt_antwoord.Text
controle_antwoord = lbl_variable_fix
lbl_status = controle_antwoord
    If controle_antwoord = gegeven_antwoord Then
        cmd_kiezen.Visible = True
        cmd_controle.Visible = False
        cmd_next.Visible = False
        lbl_status = " Goed "
        
                i = UBound(Cijferrij)
                ReDim Preserve Cijferrij(0 To (i + 1)) As Single
                Cijferrij(i + 1) = lbl_nummer.Caption


            Else
            lbl_status = " fout "
            cmd_controle.Visible = False
            cmd_next.Visible = True
    End If
End Sub

Private Sub cmd_kiezen_Click()
nummer2 = Int(12 * Rnd())
    Select Case nummer2
        Case Is = 0
                If Command1.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command1.Visible = False
                End If
        Case Is = 1
                If Command2.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command2.Visible = False
                End If
        Case Is = 2
                If Command3.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command3.Visible = False
                End If
        Case Is = 3
                If Command4.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command4.Visible = False
                End If
        Case Is = 4
                If Command5.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command5.Visible = False
                End If
        Case Is = 5
                If Command6.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command6.Visible = False
                End If
        Case Is = 6
                If Command7.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command7.Visible = False
                End If
        Case Is = 7
                If Command8.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command8.Visible = False
                End If
        Case Is = 8
                If Command9.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command9.Visible = False
                End If
        Case Is = 9
                If Command10.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command10.Visible = False
                End If
        Case Is = 10
                If Command11.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command11.Visible = False
                End If
        Case Is = 11
                If Command12.Visible = False Then
                    Call cmd_kiezen_Click
                        Else
                        Command12.Visible = False
                End If
                
    End Select
cmd_kiezen.Visible = False
cmd_next.Visible = True
End Sub

Private Sub cmd_next_Click()
nieuwe_informatie

        Dim aantal As Integer
        aantal = UBound(Cijferrij)
        For j = 1 To aantal
           check = Cijferrij(j)
            If check = lbl_nummer.Caption Then
                opnieuw = 1
            End If
        Next


                  If opnieuw = 1 Then
                     nieuwe_informatie
                     opnieuw = 0
                  End If
           
cmd_next.Visible = False
cmd_controle.Visible = True
End Sub

Private Sub cmd_raden_Click()
frm_raden.Show
End Sub

Private Sub Form_Load()
Randomize
cmd_kiezen.Visible = False
cmd_controle.Visible = False
cmd_next.Visible = False

        ReDim Cijferrij(0 To 0) As Single
        Cijferrij(0) = 0

End Sub


Private Function nieuwe_informatie()
Dim vraag(0 To 11), antwoord(0 To 11) As String
vraag(0) = "Dit Is vraag1"                                ' lijst met vragen
vraag(1) = "Dit is vraag2"
vraag(2) = "Dit is vraag3"
vraag(3) = "Dit is vraag4"
vraag(4) = "Dit is vraag5"
vraag(5) = "Dit is vraag6"
vraag(6) = "Dit is vraag7"
vraag(7) = "dit is vraag8"
vraag(8) = "Dit is vraag9"
vraag(9) = "Dit is vraag10"
vraag(10) = "Dit is vraag11"
vraag(11) = "Dit is vraag12"                              ' einde lijst met vragen

antwoord(0) = "1"                                         ' begin lijst antwoorden
antwoord(1) = "2"
antwoord(2) = "3"
antwoord(3) = "4"
antwoord(4) = "5"
antwoord(5) = "6"
antwoord(6) = "7"
antwoord(7) = "8"
antwoord(8) = "9"
antwoord(9) = "10"
antwoord(10) = "11"
antwoord(11) = "12"                                        ' einde lijst antwoorden

nummer = Int(12 * Rnd())
lbl_vraag = vraag(nummer)
lbl_variable_fix = antwoord(nummer)
lbl_nummer = nummer


End Function
Private Sub start_knop_Click()
nieuwe_informatie
cmd_controle.Visible = True
cmd_kiezen.Visible = False
cmd_next.Visible = False
cmd_raden.Visible = False
End Sub