[VB 6.0] Mengantisipasi Error pada program

Pernahkah program anda mengalami error saat dijalankan?dan anda tidak tahu dimana letak error itu dan tidak tahu cara mengatasinya?solusi cepat dan singkatnya adalah memakai fungsi On Error Resume Next.Dan juga saya coba memberikan 2 tips lainnya termasuk menggunakan fungsi built-in pada VB 6

Misalnya program anda error saat pertama kali dijalankan,yang harus anda lakukan adalah mengetik fungsi On Error Resume Next pada Form_Load,contoh :

Private sub Form_Load()
On Error Resume Next
Me.caption = “Program Saya”
Call setting
End sub

Hal yang sama juga berlaku pada setiap fungsi atau prosedur.

Mengatasi Error dengan Notifikasi


Jika pada bagian sebelumnya kita mengatasi error dengan perintah On error resume next,maka kali ini akan dibahas penanganan error yang lebih baik lagi.
Ikuti contoh berikut :

Buat 1 Project VB dengan Standard EXE
Buat 1 Form
Pada Form,buat 2 textbox,1 label dan 1 Commandbutton
Ketikkan kode dibawah ini:

Private sub Command1_click()
On Error goto Salah
Dim A As string
Dim B As string
Dim C As string
A=Text1.text
B=Text2.text
C=Val(A/B)
Label1.caption = C
Exit sub
Salah:
Msgbox “Maaf,bilangan yang anda masukkan salah”,vbexclamation,”Informasi”
End sub

Jalankan Program dengan menekan F5 atau klik tombol Start pada menubar
Masukkan angka 2 pada textbox1 (text1.text) lalu angka 0 pada textbox2 (text2.text),kemudian klik Command1

Jika benar,maka pesan Error akan muncul..Berhasil kan????Masih bingung?coba lagi deh..Coba Masukkan angka 2 pada textbox1 (text1.text) lalu angka 1 pada textbox2 (text2.text),kemudian klik Command1..apa yang terjadi??Label1 akan menampilkan angka 2 dan program tidak mengalami error atau menampilkan pesan error,berbeda dengan sebelumnya.

Mengetahui Jenis Error dengan Fungsi Built-In VB 6.0
caranya coba buat 1 Command Button lalu ketik kode berikut:

Private Sub Command1_Click()
On Error GoTo salah
Dim a As Integer
a = 100000
Text1.Text = a
salah:
MsgBox Err.Description
End Sub

pada kode MsgBox Err.Description adalah fungsi built-in pada VB 6 untuk menampilkan deskripsi error pada program anda,sehingga program tidak "close" dengan sendiri tapi menampilkan error dalam bentuk pesan atau message box, juga akan dijelaskan letak salahnya yaitu Type Mismatch yaitu data yang di pakai atau di input tidak sesuai jenis variabelnya yaitu jumlah 100000 tidak bisa ditangani oleh tipe data integer, jika diganti dengan tipe data Long maka pesan error tersebut tidak akan muncul

Semoga tehnik ini berguna untuk anda..

Artikel ini dibuat oleh Yudha Tri Putra,segala macam bentuk pengcopyan atau menyalin sebagian atau seluruh halaman ini,dapat dikenakan sanksi dan melanggar Hak Cipta Yudha Tri Putra sebagai Blogger