Dalam kehidupan sehari-hari, array dapat di ibaratkan seperti sebuah rak DVD. Seperti yang kita ketahui, rak DVD memiliki bentuk kotak persegi panjang yang memiliki slot untuk memasukkan DVD, masing-masing berurutan, DVD yang satu berada diatas DVD yang lain.
Dalam Visual Basic Dot Net terdapat dua jenis array, yaitu array yang memiliki ukuran tetap (Fixed-Size Arrays) dan array yang bersifat dinamis (Dynamic Arrays).
Fixed-Size Arrays
Array yang memiliki ukuran tetap (Fixed-Size Arrays) sangat cocok jika dianalogikan sebagai sebuah rak DVD. Terdapat sejumlah slot untuk memasukan DVD. Anggap saja kita memiliki 3 buah DVD Film yaitu DVD “James Bond”, DVD “The God Father”, dan DVD “Toy Story”. Agar semua DVD dapat masuk ke dalam rak DVD, maka rak DVD tersebut setidaknya harus memiliki paling sedikit 3 slot DVD.
Sintaks penulisan variabel array untuk rak DVD dengan 3 slot adalah sebagai berikut :
Dim strRakDVD (0 to 2) as string
Anda baru saja membuat variabel array 'strRakDVD' yang berisi tiga slot (#0, #1, dan #2) dan memiliki tipe data String. Sekarang Anda dapat memasukkan DVD Anda ke dalamnya, sebagai berikut:
Dim strRakDVD(0 to 2) As String
strRakDVD(0) = "James Bond"
strRakDVD(1) = "The God Father"
strRakDVD(2) = "Toy Story"
Perhatikan bahwa masing-masing dari ketiga baris tersebut dimulai dengan nama variabel dan kemudian memberikan nomor elemen sebelum diberikan nilai yang ditetapkan. Ini sama halnya dengan memberikan nomor slot pada rak DVD Anda yang mulai dari angka 0 hingga angka 2, kemudian memasukkan DVD tersebut ke setiap slot yang sudah dibuat.
Format untuk mendeklarasikan array dalam Visual Basic.Net adalah sebagai berikut:
Dim|Public|Private NamaArray(Subscript) As TipeData
- Dim, Publik, dan Private mendeklarasikan array dan ruang lingkupnya. Menggunakan Dim dalam suatu prosedur berfungsi agar array tersebut hanya berlaku dalam prosedur itu sendiri. Jika Dim digunakan pada bagian umum, maka akan berlaku untuk semua prosedur dalam modul itu. Private memiliki fungsi yang sama dengan Dim namun harus digunakan pada level modular. Sedangkan Publik berfungsi agar array dapat digunakan di seluruh project.
- NamaArray untuk memberikan nama variabel array.
- Subscript adalah dimensi array.
- TipeData adalah tipe data valid apapun yang digunakan untuk variabel array.
Dynamic Arrays
Misalkan terdapat sebuah DVD film baru yang berjudul “Forest Gump” yang akan dimasukan kedalam rak DVD, namun anda hanya memiliki 3 slot DVD. Tetapi anda tetap ingin menggunakan rak DVD tersebut tanpa harus membuangnya dan mengganti dengan rak DVD yang baru. Oleh karena itu maka cara pendeklarasian array nya adalah sebagai berikut :
Dim strRakDVD() As String
ReDim strRakDVD(0 to 2) As String
strRakDVD(0) = "James Bond"
strRakDVD(1) = "The God Father"
strRakDVD(2) = "Toy Story"
ReDim Preserve strRakDVD(0 to 3) As String
strRakDVD(3) = "Forest Gump"
Dari script diatas terdapat dua garis baru, yang pertama adalah mereduksi array satu elemen menjadi lebih besar dan baris yang kedua adalah menetapkan nilai dalam elemen ini. Perhatikan Preserve, perintah ini akan memaksa Visual Basic untuk mempertahankan nilai pada semua elemen yang ada. Tanpa kata kunci ini, maka semua nilai DVD lama Anda akan hilang dan hanya memiliki nilai DVD yang berisi “Forest gump”.
Sintaks kata kunci ReDim adalah:
ReDim [Preserve] NamaArray(Subscript) As TipeData
- ReDim adalah kata kunci / perintah untuk mereduksi sebuah array.
- Preserve adalah kata kunci / perintah opsional yang memaksa Visual Basic untuk mempertahankan nilai semua elemen yang sebelumnya ada. Tanpa adanya preserve maka semua elemen sebelumnya akan hilang. (Tipe data numerik ke 0, panjang variabel string “ “ (nol), string panjang tetap diisi dengan nol, dan varian kosong.)
- NamaArray untuk memberikan nama variabel array.
- Subscript adalah dimensi array.
- TipeData adalah tipe data valid apapun yang digunakan untuk variabel array. Tipe data tidak dapat diubah berdasarkan pada deklarasi awal saat kata kunci ReDim digunakan. (Kecuali jika pada awalnya dinyatakan sebagai Varian.)
Setelah Kita mengetahui cara mendeklarasikan array dan mengisi nilai pada setiap elemen array, berikutnya adalah bagaimana cara mengambil / menampilkan isi dari nilai array.
Misalkan kita memiliki 7 nilai array sebagai berikut :
Dim strMahasiswa(0 to 6) As String
strMahasiswa(0) = "Dewi"
strMahasiswa(1) = "Lenny"
strMahasiswa(2) = "Ahmad"
strMahasiswa(3) = "Dian"
strMahasiswa(4) = "Herman"
strMahasiswa(5) = "Yuli"
strMahasiswa(6) = "Mira"
Untuk mengambil dan menampilkan isi nilai array, dapat menggunakan perintah pengulangan yaitu :
For i = LBound (strMahasiswa) To UBound (strMahasiswa)
MsgBox strMahasiswa (i)
Next i
Sehingga script keseluruhan untuk menampilkan data array adalah sebagai berikut :
Terdapat dua fungsi baru dalam script diatas yaitu LBound dan UBound. Keduanya digunakan untuk menentukan batas bawah dan batas atas dari array. Array strMahasiswa memiliki batas bawah 0 dan batas atas 6. Setiap iterasi i pada loop tersebut , variabel i akan menghitung mulai dari 0 sampai 6. Dengan mengakses array strMahasiswa (i)maka looping akan mengurangi jumlah kode yang seharusnya ditulis.
Menambahkan Elemen Baru pada Array
Adakalanya kita perlu menambahkan elemen array pada saat array tersebut digunakan, dan kita tidak tahu batas akhir elemen array yang harus disediakan. Berikut ini adalah sebuah contoh penggunaan array untuk penambahan DVD baru pada rak DVD
Dim strMovie() As String 'Array untuk data film
Dim blDimensioned As Boolean 'Untuk memeriksa array berdimensi?
Dim strText As String 'Variabel temporary untuk menyimpan judul Movie
Dim i As Long 'pengulangan
blDimensioned = Salah
Do
strText = InputBox ("Masukan sebuah judul film:")
If strText <> " " Then
If blDimensioned = True Then
'Jika ya, Perluas array satu elemen lebih besar jumlah elemen sebelumnya.
'Tanpa kata kunci "Preverse" di bawah ini, maka elemen sebelumnya dalam array
ReDim Preserve strMovie (0 To UBound (strMovie) + 1) As String
Else
'Jika tidak, beri tanda sebagai dimensi.
ReDim strMovie (0 To 0) As String
blDimensioned = true
End If
'Tambahkan judul film baru ke elemen terakhir dari array.
strMovie (UBound (strMovie)) = strText
End If
Loop Until strText = ""
'Tampilkan judul lagu yang dimasukkan:
For i = LBound (strMovie) To UBound (strMovie)
MsgBox strMovie (i)
Next i
'Hapus array
erase strMovie
Ada baiknya ketika kita selesai menggunakan array dalam sebuah aplikasi / sistem, array tersebut kita hapus kembali. Terutama ketika kita menggunakan array tipe dinamis. Contoh scriptnya adalah sebagai berikut :
Dim strMahasiswa (0 to 2) As String
strMahasiswa(0) = "Dewi"
strMahasiswa(1) = "Lenny"
strMahasiswa(2) = "Ahmad"
erase strMahasiswa
0 Response to "Penggunaan Array pada Visual Basic .Net"
Posting Komentar