questforpower

Public Class frmMaaltafels
    Dim getal As Decimal
    Dim ok As Boolean = False
    Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
        Dim teller As Short = 1
        Dim uitkomst As Decimal

        If radOptie_1.Checked Or radOptie_2.Checked Or radOptie_3.Checked Then
            If radOptie_1.Checked Then
                txtResultaat.Text = ""
                For teller = 1 To 10
                    uitkomst = getal * teller
                    txtResultaat.Text = txtResultaat.Text & uitkomst & vbCrLf
                Next
            ElseIf radOptie_2.Checked Then
                txtResultaat.Text = ""
                Do Until uitkomst >= 50
                    uitkomst = getal * teller
                    teller = teller + 1
                    txtResultaat.Text = txtResultaat.Text & uitkomst & vbCrLf
                Loop
            ElseIf radOptie_3.Checked Then
                txtResultaat.Text = ""
                Do While uitkomst < 50
                    uitkomst = getal * teller
                    teller = teller + 1
                    txtResultaat.Text = txtResultaat.Text & uitkomst & vbCrLf
                    uitkomst = getal * teller
                Loop
            End If
        Else
            MessageBox.Show("Maak een keuze!", "Geen keuze", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Do Until ok = True
            Try
                getal = CDec(InputBox("Voer een getal in:", "Invoer"))
                ok = True
            Catch ex As InvalidCastException
                MessageBox.Show("Je voert geen getal in!", "Foute invoer", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Loop
    End Sub

    Private Sub btnStoppen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStoppen.Click
        End
    End Sub

    Private Sub btnOpnieuw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpnieuw.Click
        ok = False
        Do Until ok = True
            Try
                getal = CDec(InputBox("Voer een getal in:", "Invoer"))
                ok = True
            Catch ex As InvalidCastException
                MessageBox.Show("Je voert geen getal in!", "Foute invoer", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Loop

        txtResultaat.Text = ""
        radOptie_1.Checked = False
        radOptie_2.Checked = False
        radOptie_3.Checked = False
    End Sub
End Class