PERTEMUAN 11 EXCEPTION HANDLING

EXCEPTION HANDLING

Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, 

Struktur Exception Handling

Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain :

Try … Catch … Finally … End Try

 yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi

Try, Catch, Finally dan Throw.

§  Try : mengidentifikasi blok kode yang berisi kode-kode tertentu yang diharapkan untuk dilaksanakan oleh program atau  aplikasi.

 Catch :Saat terjadi kesalahan padablok Try, maka blok ini akan menangkap kesalahan dengan yang isi nya 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 eksepsidi lempar kan atau tidak. 

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

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(“AbaikanKesalahan”)

On Error Goto

Merupakan perintah penanganan kesalahan apabila  terjadi kesalahan terhadap suatu baris tertentu maka perintah akan melompat kebaris   yang dituju akan dijalankan.

Contoh :

On Error GotoPesan
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
Exit Sub
Pesan :
MsgBox(“AbaikanKesalahan”)

CONTOH PRAKTIKUM:

1.      Buat project baru, dengan nama sendiri Desain Tampilan form seperti gambar berikut ini 

1.      Tambah kan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

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

1.      Klik ganda padaTombolBuka, kemudian ketikkode 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)

EndTry

EndIf

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

Dim Tutup AsString

Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",
        MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If Tutup = MsgBoxResult.Yes Then

End

Else

ExitSub

EndIf

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

     

       maka hasil dari programnya

1.      Tambahkan Formbaru, dengan nama Form2.Desain Tampilan form seperti gambar berikut ini 

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

Object	Properties	Nilai
Form1	Name Text	Form1 PenangananKesalahan
TexBox1	Name	TxtAngka
Button1	Name Text	BtnProses Proses

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

Try

Dim X AsInteger

            X = TxtAngka.Text

Do

                X = X Mod 2

If X = 0 Then

                    MessageBox.Show("Bilangan Genap", "Informasi")

ExitDo

ElseIf X = 1 Then

                    MessageBox.Show("Bilangan Ganjil", "Informasi")

ExitDo

EndIf

LoopWhileNot X

Catch ex As Exception

            MsgBox("Salah menginput data / input angka")

Finally

            TxtAngka.Text=””

            TxtAngka.Focus()

EndTry

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

d

h    hasil dari program

d

demikian lah yang bisa saya uraikan semoga bermanfaat"terimakasih"