Install
Legacy Member
het is dus de bedoeling dat er een errormessage komt als iemand op berekenen klikt en het geen geheel getal is.
nu ik voer eht getal 3,5 is en dat berekent VB.NET heel raar dus
Nu als ik 3;5 intyp dan geeft hij wel de error.
kan ik dit verhelpen?
nu ik voer eht getal 3,5 is en dat berekent VB.NET heel raar dus
Nu als ik 3;5 intyp dan geeft hij wel de error.
kan ik dit verhelpen?
Code:
Public Class Form1
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDeler.TextChanged
End Sub
Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
Dim deeltal, deler, quotient As Integer
txtQuotient.Clear()
Try
deeltal = CType(txtDeeltal.Text, Integer)
deler = CType(txtDeler.Text, Integer)
quotient = deeltal / deler
txtQuotient.Text = quotient.ToString()
Catch ex As InvalidCastException
MessageBox.Show("Je moet twee gehele getallen invoeren", _
"Fout", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
