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
[Tampilkankesalahan]
Finally
[ Kode program setelahperintah Try dan Catch ]
End Try
🔔 keterangan 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 di inginkan. 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 ataut idak, 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.
🔔 On Error Resume Next
Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka baris tersebutakan di abaikan.
🔔 On Error Goto
Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka perintahakan melompat kebaris yang dituju akan dijalankan.
🔔 Latihan:
1. Tambahkan Form baru, dengan nama Form2.
2. Desain Tampilan form seperti gambar berikut ini:
4. 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
5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan aplikasiAnda
0 komentar:
Posting Komentar