(VB.NET) Error Trapping Part 2 - Error, Raise, GetException

Menyambung artikel sebelumnya mengenai Error Trapping. Sekarang saya akan melanjutkannya dengan fungsi lainnya yang masih berhubungna dengan masalah Error Trapping dan saya masih menggunakan Form dan Contoh kasus yang sama dengan artikel sebelumnya.

Selain Try..Catch..End Try  masih ada lagi beberapa fungsi yang digunakan untuk menjelaskan kesalahan yang terjadi yaitu Error, Raise dan GetException.

1. Error
   Error pasti terjadi secara alami jika proses berjalan tidak sesuai dengan prosedur. Pernyataan Error juga bisa kita ciptakan sendiri untuk memberitahukan kesalahan yang terjadi kepada pengguna program/aplikasi. Peringatan error bisa kita ciptakan dengan code seperti dibawah ini.
   

   Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click 

           Try
               Error 5
               Dim Hasil As Integer
               Dim Nilai As Integer
   
               Nilai = 100
               Hasil = Nilai * TextBox1.Text
   
               MessageBox.Show("Hasil Konversi ukuran " & TextBox1.Text & "Meter, Menjadi Centimeter = " & Str(Hasil) & "Centimeter", "PesanKu") 

           Catch salah As Exception
               MsgBox(salah.Message)
           End Try
       End Sub

   
   
   
   
   
2. Raise
   Raise memiliki fungsi yang sama dengan Pernyataan  Error. Penggunaan Raise bisa difungsikan dengan code seperti dibawah ini
   

   Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click 

           Try
               Err.Raise(8)
               Dim Hasil As Integer
               Dim Nilai As Integer
   
               Nilai = 100
               Hasil = Nilai * TextBox1.Text
   
               MessageBox.Show("Hasil Konversi ukuran " & TextBox1.Text & "Meter, Menjadi Centimeter = " & Str(Hasil) & "Centimeter", "PesanKu") 

           Catch salah As Exception
               MsgBox(salah.Message)
           End Try
       End Sub

   
3. GetException
   Perintah ini digunakan untuk memberikan informasi tentang ekspresi kesalahan apa yang sedang terjadi. Penggunaan GetException bisa difungsikan dengan code seperti dibawah ini
   

   Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click 

           Try
               Err.Raise(13) 

               Dim Hasil As Integer
               Dim Nilai As Integer
   
               Nilai = 100
               Hasil = Nilai * TextBox1.Text
   
               MessageBox.Show("Hasil Konversi ukuran " & TextBox1.Text & "Meter, Menjadi Centimeter = " & Str(Hasil) & "Centimeter", "PesanKu") 

           Catch salah As Exception
               Dim ekspresi_salah As Exception
               ekspresi_salah = Err.GetException
               MsgBox(ekspresi_salah.Message)
           End Try
       End Sub