EXCEPTION HANDLING - MODUL 11

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 

Memahami Penggunaan Try-Catch-Finall-EndTry Ini merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi. Dengan menggunakan try-catch ini sanagat memudahkan kita dalam melacak kesalahan yang terjadi didalam program yang sedang running. Blok Try akan dijalankan jika tidak adanya kesalahan yang terjadi didalam program yang kita buat. Namun terjadinya kesalahan didalam program maka akan menyebabkan terjadinya kesalahan dan runtime error, maka akan dijalankan perintah yang ada didalam blok catch, tetapi blok catch yang akan dijalankan sesuai juga dengan tipe kesalahan yang akan kita berikan, sangat banyak tipe kesalahan yang ada didalam program, misalnya kesalahan secara umum,kita bisa buat dengan tipe Exception, atau kesalahan database MySQl bisa kita buat MySQLException, dan lain sebagainya.
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

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

merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan apabila perintah Try-Catch-Finally-End Try tidak dapat menangani suatu kesalahan jalannya aplikasi.
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

          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 

merupakan perintah penanganan kesalahan yang apabila terjadi kesalahan terhadap suatu baris tertentu maka perintah untuk melompat kebaris yang dituju akan dijalankan.
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 

 Pengaturan Properties Masing-masing Objek sebagai berikut:

Object	Properties	Perubahan
Form1	Name Text	Form1 AplikasiBukaGambar
OpenFileDialog1	Name	OFDbuka
PictureBox1	Name	PCBgambar
Button1	Name Text	BtnBuka Buka
Button2	Name Text	BtnExit Exit

 

isi coding berikut ini
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

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

   

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