EXCEPTION HANDLING

EXCEPTION HANDLING

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

Try, Catch, Finally dan Throw.

§  Try : mengidentifikasi blok kode yang berisi kode-kode tertentu yang diharapkan untuk dilaksanakan oleh program atau aplikasi. Blok Try diikuti oleh satu atau lebih blok Catch.

§  Catch : Saat terjadi kesalahan pada blok Try, maka blok ini akan menangkap kesalahan dengan yang isinya biasanya menampilkan pesan tertentu atau menuju ke blok lain untuk mengeksekusi perintah yang diinginkan. Kata kunci Catch menunjukkan penangkapan pengecualian.

§  Finally : blok ini digunakan untuk menjalankan satu set pernyataan, apakah eksepsi dilemparkan atau tidak. Misalnya, jika kita membuka file, itu harus ditutup apakah eksepsi dimunculkan atau tidak, atau saat operasi dengan database pada blok ini ditambahkan perintah untuk menutup koneksi yang telah dibuka pada blok Try.

§  Throw : Suatu program melempar pengecualian ketika masalah muncul. Hal ini dilakukan dengan menggunakan kata kunci Throw.

Try

'Kode-kode yang diharapkan dalam suatu proses disimpan disini

Catch ex as Exception

'Kode-kode jika terjadi kesalahan dalam blok diatas disimpan disini.

Messagebox.Show(ex.Message)

Finally

'Kode-kode untuk melakukan sesuatu jika terjadi exception atau tidak. Kode-kode pada blok ini pasti dijalankan.

End Try

Contoh :

Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angka saja”)
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try

Throw

Throw merupakan 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”)

Membuat project Baru

1                Desain Tampilan form seperti gambar berikut ini :

       Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Aplikasi Buka Gambar
OpenFileDialog1	Name	ofdBuka
PictureBox1	Name	PcbGambar
Button1	Name Text	BtnBuka Buka
Button2	Name Text	BtnExit Exit

2.      Klik ganda pada Tombol Buka, kemudian ketik kode program berikut ini :

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

3.      Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikut ini :

        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

4.      Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

5