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:

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

• 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

• 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

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

Latihan 2

• Tambahkan Form baru, dengan nama Form2.
• 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	Form1
	Text	Penanganan Kesalahan
TexBox1	Name	TxtAngka
Button1	Name	BtnProses
	Text	Proses

• Double klik pada tombol BtnProses, kemudian ketik kode Program berikut ini:

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

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