Ověření platnosti pořízených hodnot

Aby uživatel nemohl zadat do textových polí nesmysly, což by komplikovalo další běh aplikace, přidáte
do formulář nějaký kód, který zadané hodnoty ověří. Nechcete-li se s tím příliš párat, v podstatě stačí, když
veškeré kontroly provedete jen tehdy a až tehdy, když uživatel klepne na tlačítko Pokračovat (tlačítkem Konec
má možnost uživatel aplikaci okamžitě ukončit, pro případ, že by si hraní v posledním okamžiku rozmyslel).
Protože hodnoty zadané do textového pole jsou svou povahou řetězce, mělo by se otestovat, zda uživatel
zapsal číslo a zda je kredit větší než částka (nemůžete hrát o víc peněz než máte v peněžence). Událostní procedura
Click tlačítka s názvem btnPokračovat by proto mohla vypadat takto:
Public Sub btnPokračovat_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles btnPokračovat.Click
If Not IsNumeric(txtKredit.Text) Or Not IsNumeric(txtSázka.Text) Then
' Následující dva řádky tvoří jediný příkaz
MessageBox.Show("Kredit a sázka musejí být čísla. Automat Vám nabídne výchozí
hodnoty.", "Chyba v zadání", MessageBox.IconExclamation)
txtKredit.Text = "1000"
txtSázka.Text = "10"
TxtKredit.Focus()
ElseIf Val(txtKredit.Text) < Val(txtSázka.Text) Or Val(txtSázka.Text) <= 0 Then
' Následující tři řádky tvoří jediný příkaz
MessageBox.Show("Sázka musí být číslo větší než nula a menší než Kredit.
Automat Vám nabídne výchozí hodnoty.", "Chyba v zadání", MessageBox.
IconExclamation)
txtKredit.Text = "1000"
txtSázka.Text = "10"
TxtKredit.Focus()
Else
txtKredit.Text = CStr(System.Math.Abs(CInt(txtKredit.Text)))
txtSázka.Text = CStr(System.Math.Abs(CInt(txtSázka.Text)))
Me.Close()
End If
End Sub