ARRAY

	On Error Resume Next	On Error Goto
Definisi	Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka baris tersebut akan di abaikan.	Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka perintah akan melompat ke baris yang dituju akan dijalankan.
Bentuk penulisan
Contoh	On Error Resume Next Dim A As Integer X = TextBox1.Text TextBox1.Text=”String” MsgBox(ex.ToString) MsgBox(“Abaikan Kesalahan”)	On Error Goto Pesan Dim A As Integer X = TextBox1.Text TextBox1.Text=”String” Exit Sub Pesan : MsgBox(“Abaikan Kesalahan”)

	Try,Catch,Finally,End Try.	Throw
Definisi	Merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi.	Throw merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan apabila perintah try…catch … Finally … End. Try tidak dapat menangani suatu kesalahan dari jawaban aplikasi.
Bentuk penulisan	Try                 [ Perintah ] Catch                 [Tampilkan kesalahan] Finally                 [ Kode program setelah perintah Try dan Catch ] End Try	Try                 [ Perintah ] Catch ex As Exception                 [Tampilkan kesalahan] Throw ex                 // mengembalikan ke kode pemanggil Finally                 [ Kode program setelah perintah Try dan Catch ]                 Perintah ini bersifat optional bias dibuat bias tidak End Try
Contoh	Try Dim X% X = TxtAngka.Text Catch ex As Exception MsgBox(ex.ToString) MsgBox(“Input angka saja”) Finally TxtAngka.Text=”” TxtAngka.Focus() End Try	Try Dim X% X = TxtAngka.Text Catch ex As Exception MsgBox(ex.ToString) MsgBox(“Input angka saja”) Throw ex Finally TxtAngka.Text=”” TxtAngka.Focus() End try                                                                   1.Desain Awal

2.Pengaturan Properties

Object	Properties	Nilai
Form1	Name Text	Form1 Penanganan Kesalahan
TexBox1	Name	TxtAngka
Button1	Name Text	BtnProses Proses

3.Tampilan setelah pengaturan properties

4.Pemberian perintah/intruksi program

Perintah pada objek Button1 (Proses) :

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

        Try

            Dim X As Integer

            X = Txtangka.Text

            Do

                X = X Mod 2

                If X = 0 Then

                    MessageBox.Show("Bilangan Genap", "Informasi")

                    Exit Do

                ElseIf X = 1 Then

                    MessageBox.Show("Bilangan Ganjil", "Informasi")

                    Exit Do

                End If

            Loop While Not X

        Catch ex As Exception

            MsgBox("Salah menginput data / input angka")

        Finally

            Txtangka.Text = "  "

            Txtangka.Focus()

        End Try

    End Sub

Tampilan saat program dijalankan :

1.Jika kita menginput bilangan genap akan muncul pemberitahuan 

2.Begitu sebaliknya jika menginput bilangan ganjil