Contoh exception program kalkulator dan pengertian error handling pada visual basik atau pemrograman basis data

Program source code dan hasil program error handling dan pengertian serta macam error handling pada visual basik pada pemrograman basis data yang berorientasi objek 

ERROR HANDLING

·           Pendahuluan

Penanganan error sering disebut dengan error handling. Dalam visual basic ada beberapa penanganan error .  Fungsi error  handling dalam sebuah aplikasi adalah agar ketika aplikasi dijalankan kemudian terjadi error, maka program tidak langsung tertutup, tapi bisa di abaikan atau di arahkan ke bagian program lainnya. Error handling yang sering di gunakan adalah On Error Resume next dan On Error Goto.

1.  On Error Resume next

Perintah ini akan menyebabkan jika terjadi error pada baris tertentu, maka akan di abaikan (di anggap tidak terjadi error) dan akan menuju ke baris berikutnya.
2. On Error Goto

Perintah ini akan menyebabkan jika terjadi error pada baris tertentu, maka akan diproses langsung  menuju ke blok tertentusesuai yang di definisikan sebelumnya, kemudian menuju baris berikutnya.

·           Percobaan 1

Pada percobaan pertama, dibuat sebuah program untuk pembagian nilai dengan menggunakan bahasa pemrograman visual basic.  Data yang akan ditampilkan antara lain :  Nilai 1, Nilai 2, dan Hasil.

Source code :

contoh source code 1

·           Hasil Percobaan dan Pembahasan 1

Hasil output adalah sebagai berikut :

 

output program 1

                                                               

Baris 1      : Private Sub cmdhitung_Click()

                         Baris kode tersebut difungsikan untuk memberikan aksi pada tombol hitung (cmdhitung) saat di klik.

Baris 2      : On Error Resume Next

                         Baris kode tersebut adalah pendeklarasian dari jenis error handling yang kita gunakan.

Baris 3      :     Dim n1, n2 As Integer

         Dim hasil As Single

                         Baris kode tersebut adalah pendeklarasian variabel n1,n2 sebagai integer dan hasil sebagai single.

Baris 4      : n1 = Val(txtAngka1.Text)

        n2 = Val(txtAngka2.Text)

                         Baris kode tersebut difungsikan untuk mengkonfersi nilai dari n1 dan n2 yang awalnya di baca sebagi string menjadi angka agar dapa di hitung secara akurat.

Baris 5      : hasil = n1 / n2

                         Baris kode tersebut difungsikan untuk penugasan bahwa variabel data dari variabel hasil di hasilkan dari n1 dibagi n2.

Baris 6      : txtHasil.Text = hasil

                         Baris kode tersebut difungsikan untuk mengisikan nilai ke txtHasil  yang di ambil dari variabel hasil.

Program di atas mempunyai kesalahan karena suatu bilangan tidak boleh di bagi dengan

Nol (0) seperti terlihat pada gambar 3. Jika kita berikan error handling pada program

Tersebut maka tidak menampilkan pesan error sepeti gambar 2, walaupun sebenarnya

terjadi kesalahan . Hal tersebut terjadi karena baris kode tersebut di lewati.

·           Percobaan 2

 

contoh program 2 error handling

·           Hasil Percobaan dan Pembahasan 2

                    

output program 2 error handling

Baris 1      : Private Sub cmdhitung_Click()

                         Baris kode tersebut difungsikan untuk memberikan aksi pada tombol hitung (cmdhitung) saat di klik.

Baris 2      : On Error GoTo Err_Handle1

                         Baris kode tersebut adalah pendeklarasian dari jenis error handling yang kita gunakan. Saat terjadi error maka baris yang terjadi error akan di lewati dan langsung melompat ke err_Handle1

Baris 3      :     Dim n1, n2 As Integer

         Dim hasil As Single

                         Baris kode tersebut adalah pendeklarasian variabel n1,n2 sebagai integer dan hasil sebagai single.

Baris 4      : n1 = Val(txtAngka1.Text)

        n2 = Val(txtAngka2.Text)

                         Baris kode tersebut difungsikan untuk mengkonfersi nilai dari n1 dan n2 yang awalnya di baca sebagi string menjadi angka agar dapa di hitung secara akurat.

Baris 5      : hasil = n1 / n2

                         Baris kode tersebut difungsikan untuk penugasan bahwa variabel data dari variabel hasil di hasilkan dari n1 dibagi n2.

Baris 6      : txtHasil.Text = hasil

                         Baris kode tersebut difungsikan untuk mengisikan nilai ke txtHasil  yang di ambil dari variabel hasil.

Baris 7             :  Err_Handle1:

        MsgBox "Ada kesalahan", vbInformation

        MsgBox "Pembagi tidak boleh angka 0", vbCritical

                       Baris kode tersebut difungsikan untuk penjelasan dari fungsi err_Handle1. Pada baris tersebut di jelaskan bahwa err_Handle1 akan menampilkan informasi bahwa ada kesalah dan pemberitahuan letak kesalahannya seperti gambar 2 .   Jika tidak di beri error hadling tersebut maka hasilnya saat pembaginya nol adalah seperti gambar 3 pada percobaan 1.

 kesimpulan :

dalam membuat pogram pada visual basic sebaiknya di beri error handling agar saat terjadi kesalahan dari program akan lebih mudah di ketahui oleh user.

·           Daftar Pustaka

[1] Andi Sunyoto (2007). Pemrograman  Database dengan Visual Basic dan Microsoft SQL. Yogyakarta : ANDI 

artikel lain cara membangun web server di debian