Posted by: justienadam | November 12, 2007

Exception

1. InvalidCastException
InvalidCastException adalah menangkap kemungkinan terjadinya error karena kesalahan tipe data ke dalam variabel.
Contoh :

Try
Dim a As Integer
a = "tipe string"
Catch ex As InvalidCastException
MsgBox("Kesalahan Input Data")
End Try

2. IndexOutOfRangeException
IndexOutOfRangeException adalah menangkap kemungkinan terjadinya error karena index telah melebihi batas. Misalnya array yang telah di deklarasi mempunyai index sampai dengan 3, tapi pengaksesannya lebih dari index yang telah ditentukan.
Contoh :

Try
Dim a(4) As String
For i As Int16 = 0 To 5
a(i) = CStr(i)
Next
Catch ex As IndexOutOfRangeException
MsgBox("Index melebihi batas")
End Try

3. OverflowException
OverflowException adalah menangkap kesalahan yang terjadi karena kelebihan nilai dari suatu variabel dengan tipe data tertentu. Misalnya Integer mempunyai range data mulai -2147483648 sampai +2147483647
Contoh :

Try
Dim a As Integer = 2147483647
a += 1
Catch ex As OverflowException
MsgBox("Nilai melebihi batas")
End Try


Leave a response

Your response:

Categories