Perintah Visual Basic untuk Array

Visual Basic menyediakan berbagai perintah khusus untuk pengolahan Array sebagai berikut ::

Perintah ReDim

Perintah ReDim digunakan untuk mendefinisi ulang jumlah elemen pada Array dengan atau tanpa mempertahankan data array sebelumnya.

ReDim [ Preserve ] name(boundlist)

Preserve

Sifatnya optional, jika digunakan maka data pada array tersebut akan dipertahankan pada array ukuran baru

Contoh :

Pada contoh berikut menggunakan perintah ReDim untuk mengalokasi ualang ukuran variabel array.

Dim I, MyArray() As Integer   ' Declare variable and array variable. ReDim MyArray(5)               ' Allocate 6 elements. For I = 0 To UBound(MyArray)    MyArray(I) = I              ' Initialize array. Next I

Perintah berikut mengubah ukuran array tanpa mempertahankan isi elemennya..

ReDim MyArray(10) ' Resize to 11 elements. For I = 0 To UBound(MyArray)    MyArray(I) = I   ' Initialize array. Next I

Perintah berikut mengubah ukuran dari array dengan mempertahankan isi elementnya.

ReDim Preserve MyArray(15) ' Resize to 16 elements.

Contoh berikut mengalokasi ulang array sesuai dengan data yang dimasukan pemakai :

Option Explicit On Imports System Module DoLoop    Sub Main()        Dim Dat() As Integer        Dim Jd,DTemp As Integer        Jd = 0        Do          Console.Write("Data Ke-{0} :", Jd+1)          DTemp = Console.ReadLine()          If DTemp <> 0 Then             ReDim Preserve Dat(Jd)             Dat(Jd) = DTemp             Jd+=1          End If        Loop Until DTemp = 0         'Ulangi sampai Dtemp diisi 0        For I As Integer = 0 To Jd-1            Console.WriteLine("Data Ke-{0} adalah {1}",I+1, Dat(I))        Next I    End Sub End Module

Perintah Erase

Perintah Erase digunakan untuk membebaskan array dan memory yang digunakan elemennya, dengan tata cara penulisan sebagai berikut :

Erase arraylist

Catatan : Perintah Erase akan memberikan nilai Nothing ke variabel array.

Contoh

Pada contoh berikut menggunakan perintah Erase untuk membebaskan memori dua array (1000 dan 100 tempat elemen yang bersesuaian). Kemudian menggunakan  perintah ReDim untuk memberikan ukuran baru untuk ketiga dimensi dari array.

Dim Int3DArray(9, 9, 9), Int2DArray(9, 9) As Integer ' ... Erase Int3DArray, Int2DArray ' ... ReDim Int3DArray(4, 4, 9)

Module Array pada Namespace Microsoft.VisualBasic

Pengolahan data array dapat juga menggunakan beberapa fungsi bantu yang berkaitan dengan array yang tersedia pada Namespace Microsoft.VisualBasic, berikut ini adalah beberapa fungsi bantu tersebut :

Fungsi IsArray

Mengembalikan nilai Boolean yang menunjukan apakah suatu variabel menunjuk pada suatu array.
Pada contoh ini fungsi IsArray memeriksa apakah variabel-variabel mengacu pada suatu array.

Dim MyArray(4), YourArray(3) As Integer       ' Declare array variables. Dim MyString As String Dim MyCheck As Boolean MyCheck = IsArray(MyArray)                    ' Returns True. MyCheck = IsArray(YourArray)                  ' Returns True. MyCheck = IsArray(MyString)                   ' Returns False.

LBound Function

Mengembalikan index terendah untuk dimensi tertentu dari suatu array
Pada contoh berikut menggunakan fungsi LBound untuk mendapatkan index terendah  suatu dimensi dari array.

Dim Lowest, MyArray(10, 15, 20), AnyArray(6) as Integer Lowest = LBound(MyArray, 1)    ' Returns 0. Lowest = LBound(MyArray, 3)    ' Returns 0. Lowest = LBound(AnyArray)      ' Returns 0.

Suatu Exception/Error akan terjadi kalau kondisi berikut ini ditemukan :

Exception type	Error number	Condition
ArgumentNullException	9	Array is Nothing.
RankException	9	Rank < 1 or Rank is greater than the rank of Array.

Fungsi UBound

Mengembalikan index yang terbesar dari suatu dimensi pada array.

Pada contoh berikut menggunakan fungsi Ubound untuk menentukan index yang terbesar dari suatu dimensi pada array.

Dim Highest, MyArray(10, 15, 20), AnyArray(6) as Integer Highest = UBound(MyArray, 1)                  ' Returns 10. Highest = UBound(MyArray, 3)                  ' Returns 20. Highest = UBound(AnyArray)                    ' Returns 6.

Catatan : Untuk memanfaatkan fungsi IsArray, Lbound dan Ubound anda perlu mencantumkan Imports Microsoft.VisualBasic Pada awal program