EXCEPTION HANDLING

EXCEPTION HANDLING

Perintahpenanganankesalahanatau yang lebihdikenaldengansebutan Exception Handling Perintahinidigunakanuntukmenanganikesalahandalammenjalankanaplikasi, denganadanyaperintahinisetiapkesahanakandiatasisecaraotamatissesuaidenganperintahpenanganankesalahan yang telahdibuat, sehinggatidakterjadikemacetanaplikasi yang sedangberjalan.

Struktur Exception Handling

Struktur Exception Handling ataupenanganankesalahanpada visual basic 2008 antaralain :

Try … Catch … Finally … End Try

Merupakanperintahpenanganankesalahan yang berfungsiuntukmenanganikesalahandalammenjalankanaplikasi.

Bentukpenulisan :

Try

      [ Perintah ]

Catch

      [Tampilkankesalahan]

Finally

      [ Kode program setelahperintah Try dan Catch ]

End Try

Try, Catch, Finally dan Throw.

§  Try : mengidentifikasiblokkode yang berisikode-kode tertentu yang diharapkanuntukdilaksanakanoleh program atauaplikasi. Blok Try diikutiolehsatuataulebihblok Catch.

§  Catch :Saatterjadikesalahanpadablok Try, makablokiniakanmenangkapkesalahan dengan yang isinyabiasanyamenampilkanpesantertentuatau menujukeblok lain untukmengeksekusiperintah yang diinginkan. Kata kunci Catch menunjukkanpenangkapanpengecualian.

§  Finally : blokinidigunakanuntukmenjalankansatu set pernyataan, apakaheksepsidilemparkanatautidak. Misalnya, jikakita membuka file, ituharusditutupapakaheksepsidimunculkanatautidak, atausaatoperasidengan database padablokiniditambahkanperintahuntukmenutupkoneksi yang telahdibukapadablok Try.

§  Throw : Suatu program melemparpengecualianketikamasalahmuncul. Hal inidilakukandenganmenggunakan kata kunci Throw.

Try

'Kode-kode yang diharapkandalamsuatu proses disimpandisini

Catchex as Exception

'Kode-kodejikaterjadikesalahandalamblokdiatasdisimpandisini.

Messagebox.Show(ex.Message)

Finally

'Kode-kodeuntukmelakukansesuatujikaterjadi exception atautidak.Kode-kodepadablokinipastidijalankan.

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

Throw

Throw merupakanperintahpenanganankesalahan yang berfungsiuntukmenanganikesalahanapabilaperintah try…catch … Finally … End. Try tidakdapatmenanganisuatukesalahandarijawabanaplikasi.

Contohpenulisan :

Try

      [ Perintah ]

Catch ex As Exception

      [Tampilkankesalahan]

Throw ex

      // mengembalikankekodepemanggil

Finally

      [ Kode program setelahperintah Try dan Catch ]

      Perintahinibersifat optional bias dibuat bias tidak

End Try

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

On Error Resume Next

Merupakanperintahpenanganankesalahanapabilaterjadikesalahanterhadapsuatubaristertentumakabaristersebutakan 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

Merupakanperintahpenanganankesalahanapabilaterjadikesalahanterhadapsuatubaristertentumakaperintahakanmelompatkebaris yang ditujuakandijalankan.

Contoh :

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

       A.     PRAKTIKUM

Latihan 1

1.      Buatproject baru, dengannamaPrak12.

2.      DesainTampilan form sepertigambarberikutini :

3.      Tambahkankontrolke form sepertipadagambardiatasdanaturpropertinyasepertitabelberikut:

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

4.      KlikgandapadaTombolBuka, kemudianketikkode programberikutini :

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

5.      KlikgandapadatombolBtnExit, Kemudianketikkankode program berikutini :

Dim Tutup AsString

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

If Tutup = MsgBoxResult.Yes Then

End

Else

ExitSub

EndIf

6.      JalankanaplikasidenganmenekantombolF5 (di keyboard), ataumelalui icon Start Debugging di toolbar, ataumelalui menu Debug > Start Debuging.

7.      SimpanaplikasiAnda.

Latihan 2

1.      TambahkanFormbaru, dengannamaForm2.

2.      DesainTampilan form sepertigambarberikutini :

3.      Tambahkankontrolke form sepertipadagambardiatasdanaturpropertinyasepertitabelberikut:

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

4.      Double klikpadatombolBtnProses, kemudianketikkode Program berikutini :

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

5.      JalankanaplikasidenganmenekantombolF5 (di keyboard), ataumelalui icon Start Debugging di toolbar, ataumelalui menu Debug > Start Debuging.

6.      SimpanaplikasiAnda