Pemrograman Visual:Exception Handling
Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling. Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan.
Struktur Exception Handling
Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain :
Try … Catch … Finally … End Try
Merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan dalam
menjalankan aplikasi. Bentuk penulisan :
Try
[ Perintah ]
Catch
[Tampilkan kesalahan]
Finally
[ Kode program setelah perintah Try dan Catch ]
End Try
Contoh
Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angka saja”)
FinallyTxtAngka.Text=””
TxtAngka.Focus()
End Try
Throw
Throw merupaka perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan apabila perintah try…catch … Finally … End. Try tidak dapat menangani suatu kesalahan dari jawaban aplikasi.
Contoh penulisan:
Try
[ Perintah ]
Catch ex As Exception
[Tampilkan kesalahan]
Throw ex
// mengembalikan ke kode pemanggil
Finally
[ Kode program setelah perintah Try dan Catch ]
Perintah ini bersifat optional bias dibuat bias tidak
End Try
Contoh
Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angka saja”)
Throw ex
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try
On Error Resume Next
Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka baris tersebut akan di abaikan.
Contoh
On Error Resume Next
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
MsgBox(ex.ToString)
MsgBox(“Abaikan Kesalahan”)
On Error Goto
Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka perintah akan melompat ke baris yang dituju akan dijalankan.
Contoh
On Error Goto Pesan
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
Exit Sub
Pesan :
MsgBox(“Abaikan Kesalahan”)
Praktikum
Latiahan 1
- Buat project baru, dengan nama Prak12.
- Desain Tampilan form seperti gambar berikut ini :
- Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: