EXCEPTION HANDLING
Penanganan Kesalahan (Exception Handling)
Mengenal Exception Handling (Penanganan Kesalahan)
Perintah penanganan kesalahan yang sering dikenal dengan istilah Exception Handling. Perintah ini digunakan untuk menangani suatu kesalahan dalam menjalankan aplikasi dengan adanya perintah ini setiap kesalahan akan diatasi secara otomatis sesuai dengan perintah kesalahan yang telah kita buat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan.
Struktur Exception Handling atau penanganan kesalahan di Visual Basic Net 2010 antara lain :
- Menggunakan Try...Catch..Finally...End Try
Contoh penulisan :
Try
[Perintah yang akan dijalankan]
Catch nama_variabel As Exception
[Tangkap Kesalahan]
Finally
[Perintah setelah try dan Catch, tetapi ini Optional, Boleh iya boleh juga tidak dibuat]
EndTry
Contoh :
Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angkasaja”)
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angkasaja”)
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try
Contoh penggunaan Didalam Visual Basic .Net : Dengan menggunakan perintah try-catch ini sangat memudahkan kita dalam memanajemen program yang kita buat dan dengan menggunakan perintah ini kita sangat dibantu dalam mencari kesalahan terhadap program yang dibuat.
- Menggunakan Throw
Contoh Penulisan :
Try
[Perintah ]
Catch Ex As Exception
[Tangkap Kesalahan]
Throw Ex
// Mengembalikan ke Kode Pemanggil Finally
[Kode Program setelah Try-Catch] //Kode ini Optional, Boleh dibuat boleh juga tidak
EndTry
Contoh :
Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angkasaja”)
Throw ex
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angkasaja”)
Throw ex
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try
Contoh Penggunaan Pada Visual Basic .Net : Perintah throw ini hanya digunakan untuk mengembalikan kode ke pemanggil awalnya, jadi dengan menggunakan perintah ini kesalahan tetap bisa diatasi dan program tidak akan berhenti secara langsung ketika program dijalankan.
- On Error Resume Next On Error Resume Next
merupakan perintah penanganan kesalahan yang apabila terjadi kesalahan terhadap suatu baris tertentu maka baris tersebut akan di abaikan.
Contoh Penggunaan : On Error Resume Next
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
MsgBox(ex.ToString)
MsgBox(“AbaikanKesalahan”)
- On Error Goto On Error Goto
Contoh Penggunaan : On Error GotoPesan
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
Exit Sub
Pesan :
MsgBox(“AbaikanKesalahan”)
LATIHAN-1
Aplikasi Buka Gambar Desain Form Awal
Object
|
Properties
|
Perubahan
|
Form1
|
Name
Text
|
Form1
AplikasiBukaGambar
|
OpenFileDialog1
|
Name
|
OFDbuka
|
PictureBox1
|
Name
|
PCBgambar
|
Button1
|
Name
Text
|
BtnBuka
Buka
|
Button2
|
Name
Text
|
BtnExit
Exit
|
Double Klick tombol Button1
Public Class Form3
Private Sub BtnBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuka.Click
If OFDbuka.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
PCBgambar.Image = Image.FromFile(OFDbuka.FileName)
Me.Text = "Membuka File " + OFDbuka.FileName
Catch ex As Exception
MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
Private Sub BtnBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuka.Click
If OFDbuka.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
PCBgambar.Image = Image.FromFile(OFDbuka.FileName)
Me.Text = "Membuka File " + OFDbuka.FileName
Catch ex As Exception
MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
Double klick button2
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Dim Tutup As String
Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Tutup = MsgBoxResult.Yes Then
End
Else
Exit Sub
End If
End Sub
End Class
Jalankan program/Debugging, maka hasilnya seperti berikut
LATIHAN -2
Penanganan Kesalahan
Desain Awal
Pengaturan Properties Masing-masing Objek sebagai berikut:
Object
Properties
Perubahan
Form1
Name
Text
Form1
PenangananKesalahan
TexBox1
Name
TxtAngka
Button1
Name
Text
BtnProses
Proses
Object
Properties
Perubahan
Form1
Name
Text
Form1
PenangananKesalahan
TexBox1
Name
TxtAngka
Button1
Name
Text
BtnProses
Proses
isi coding berikut ini
Double Klick tombol Button1
Public Class Form4
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Try
Dim X As Integer
X = TxtAngka.Text
Do
X = X Mod 2
If X = 0 Then
MessageBox.Show("Bilangan Genap", "Informasi")
Exit Do
ElseIf X = 1 Then
MessageBox.Show("Bilangan Ganjil", "Informasi")
Exit Do
End If
Loop While Not (X)
Catch ex As Exception
MsgBox("Salah menginput data / input angka")
Finally
TxtAngka.Text = ""
TxtAngka.Focus()
End Try
End Sub
End Class
Jalankan program/Debugging, maka hasilnya seperti berikut
