Visual Basic (Array)

Array dalam bahasa Indonesia adalah indeks, maka v

ariabel array adalah variabel ya

ng mempunyai indeks. Sehingga penulisannya adalah var(indeks). Array sangat penting di dalam pemrograman, karena array mampu menampung banyak data yang bertipe sama. Sebagai contoh variabel array x menampung nilai-nilai bilangan bulat {3, 6, 8, 7, 5, 1} berarti indeks untuk variabel x ini adalah 1 sampai dengan 6, dan ditulis sebagai x(1), x(2), x(3), x(4), x(5) dan x(6).

Array dapat diibaratkan sebagai kereta api dalam komputer, yang di dalamnya tedapat gerbong-gerbong memory yang berisi data-d

ata yang mempunyai tipe dan perlakuan yang sama. Untuk mengambil atau menampilkan nilai array dapat dianalogikan dengan mencari kursi dalam gerbong kereta api, maka pada karcis perlu dituliskan nomor gerbong, Array juga demikian, untuk menampilkan nilai array tinggal menyebutkan indeks-nya. Misalkan untuk menampilkan nilai variabel x yang ke 5 dituliskan dengan (5).

Penulisan :

Dim nama_variabel(jumlah_array) as Tipe_Data

Bila jumlah array sudah ditentukan 10 maka tidak boleh menggunakan data lebih dari 10, karena 10 menyatakan jumlah maksimum dari data yang akan ditampung dalam suatu array. Sebagai contoh:

Bilangan(4) = 100 : Perintah ini benar

Bilangan(12) = 8 : Perintah ini salah karena batasnya sudah ditentukan 10.

Contoh 1:

Memasukkan 6 nama sebagai berikut “Basuki”, “Achmad”, “Rizki”, “Widya”,

“Dian”, dan “Teguh” ke dalam

array dan menampilkan semua nama ke dalam List

saat form di panggil.

Dim nama(6) as String

Private Sub Form_Load()

nama(0) = ”Basuki”

nama(1) = ”Achmad”

nama(2) = ”Rizki”

nama(3) = ”Widya”

nama(4) = ”Dian”

nama(5) = ”Teguh”

List1.Clear

For i=0 To 5

List1.AddItem nama(i)

Next i

End Sub

Array pada Visual Basic dimulai dari indeks 0. Sehingga data pertama dituliskan dengan var(0).

Visual Basic juga mengenal array dinamis, dimana jumlahnya bisa tak terbatas. Untuk mendefinisikan array dinamis

dapat dilakukan dengan mendefinisikan array tanpa menuliskan jumlah maksimum arraynya sebagai berikut:

Dim variabel() as tipe_data

Untuk contoh nama di atas, dapat dituliskan dengan:

Dim nama() as string

Contoh Aplikasi

Membuat project untuk menuliskan data-data nama siswa dengan nomor dibuat otomatis, dengan jumlah data siswa maksimum adalah 20. Kemudian menampilkan semua data nama siswa yang sudah dimasukkan.

(1) Buat project baru dengan StandardEXE

(2) Tambahkan komponen-komponen:

1 label, 1 textbox, 1 listbox dan 2 command

Button

(3) Masukkan nilai property dari masing-masing komponen dan form seperti tabel di

bawah ini, dan atur penempatan setiap komponen seperti gambar

Gambar Tampilan

(4) Tambahkan kode program pada jendela kode sebagai berikut:

‘ Mendefinisikan variabel global nama sebagai array

‘ dan jumlah data

Dim nama(20) As String

Dim n As Integer

Private Sub Command1_Click()

‘ Menambah nomor array dan memindahkan isi text1

‘ ke array nama

n = n + 1

nama(n) = Trim(Text1.Text)

‘ Mengosongkan isi text1 dan menaruh kursor ke text1

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

‘ Menampilkan semua isi array nama

List1.Clear

For i = 1 To n

List1.AddItem nama(i)

Next i

End Sub

Private Sub Form_Load()

‘ Saat form dipanggil jumlah array diisi dengan nol

n = 0

End Sub