Menentukan Asal (Source) Kesalahan di Visual Basic 6.0

Kita dapat menentukan lokasi baris timbulnya kesalahan menggunakan fungsi Intrinsik Erl jika setiap baris kode program memiliki nomor baris.

Fungsi Erl akan mengembalikan nomor baris kode program tersebut jika terjadi error fungsi Erl akan mengembalikan menjadi 0.

Berikut  dibawah ini adalah output dari hasil percobaan untuk menentukan asal kesalahan dengan sebuah perhitungan matematika sedehana:

Untuk membuatnya desainlah Form seperti gambar dibawah ini :

Kemudian ketik kode dibawah ini :

Private Sub Command1_Click()

On Error GoTo tampilerror

10    Label2.Caption = Text1.Text * Text2.Text ' 10 adalah nomor baris program

20    Label4.Caption = Text3.Text * Text4.Text ' 20 adalah nomor baris program

Exit Sub

tampilerror:

MsgBox "Terjadi kesalahan dengan nomor kesalahan :" + Str(Err.Number) + " pada baris ke " + Str(Erl) + " dengan deskripsi kesalahan " + Err.Description + " yang berasal dari " + Err.Source, vbOKOnly + vbCritical, "Perhatian"

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Jalankan project Anda, sekarang kita akan mulai mengujinya dengan 2 langkah

1. Masukan setiap textbox dengan angka dan tekan tombol (=) maka hasilnya sesuai dengan perkalian dan program berjalan tanpa error.
2. Masukan salah satu textbox atau lebih dengan karakter dan tekan tombol (=) maka akan muncul pesan error yang sudah kita buat denga kode tadi.

Demikian artikel pada hari ini tentang cara Menentukan Asal (Source) Kesalahan di Visual Basic 6.0.

Semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil

Related Post: Uncategories