Konsep Array dan Aplikasi Array

Array dalam bahasa Indonesia adalah indeks, maka variabel array adalah variabel yang 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-data 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 x(5).

Untuk dapat membuat variabel array maka terlebih dahulu harus didefinisikan nama variabel array dan berapa jumlah maksimalnya dengan cara:

Dim nama_variabel(jumlah_array) as Tipe_Data

Perintah ini diletakkan sesuai kebutuhan apakah array ini hanya untuk subroutine (event) lokal atau pada seluruh event di form. Sebagai contoh untuk membuat array bilangan bulat yang dapat menampung 10 bilangan dapat dituliskan dengan:

Dim bilangan(10) as integer

Bila jumlah array sudah ditentukan 10 maka tidak boleh menggunakan data lebih dari 10, karena 10 menyatakan jumlah maksimum dari data yang akan ditampung adalan 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 array-nya sebagai berikut:

Dim variabel() as tipe_data

Untuk contoh nama di atas, dapat dituliskan dengan:

Dim nama() as string

Contoh Aplikasi 1:

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.

• Buat project baru dengan StandardEXE.

• Tambahkan komponen-komponen: 1 label, 1 textbox, 1 listbox dan 2 command button. 

• Masukkan nilai property dari masing-masing komponen dan form seperti tabel di bawah ini, dan atur penempatan.

Komponen	Property	Nilai
Form1	Name Caption StartUpPosition	formLatihan1
Label1	Caption	Masukkan Nama
Text1	Text	(Kosong)
Command1	Caption	Simpan
Command2	Caption	Tampilkan

(Gambar 1)

• 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

• Simpan project dengan nama projectLatihan1.

Contoh Aplikasi 2:

Membuat project untuk memasukkan data-data penjualan yang berisi jumlah produk penjualan dalam satu bulan. Kemudian dihitung rata-rata penjualan, bulan yang mengalami penjualan tertinggi dan bulan yang mengalami penjualan terendah.

• Buat project baru dengan StandardEXE.

• Tambahkan komponen-komponen: 2 buah label, 2 textbox, 1 listbox dan 4 command button.

• Isi property dari setiap komponen seperti tabel di bawah ini dan atur posisi tiap komponen seperti gambar 2.

Komponen Property	Nilai	Komponen Property
Form1	Name Caption StartUpPosition	formLatihan2 Latihan Array 2 2-CenterScreen
Label1	Caption	Masukkan Nama
Text1	Text	(Kosong)
Command1	Caption	Simpan
Command2	Caption	Rata-rata
Command3	Caption	Nilai Maksimal
Command4	Caption	Nilai Minimal

(Gambar 2)

• Pada jendela kode, tambahkan kode program berikut:

'Mendefinisikan array data penjualan jual(n)

'Dan jumlah data penjualan n

Dim jual(100) As Single

Dim n As Integer

Private Sub Command1_Click()

'Jumlah data bertambah dan ambil data dari text1

n = n + 1

jual(n) = Val(Text1)

'Tampilkan ke list

List1.AddItem jual(n)

End Sub

Private Sub Command2_Click()

'Menghitung nilai rata-rata dari data jumlah = 0

For i = 1 To n

jumlah = jumlah + jual(i)

Next i

rata2 = jumlah / n

List1.AddItem ""

List1.AddItem "Rata-rata = " & rata2

End Sub

Private Sub Command3_Click()

'Menghitung nilai maksimal dari data

jualMaks = jual(1)

For i = 2 To n

If jual(i) > jualMaks Then jualMaks = jual(i) Next

List1.AddItem ""

List1.AddItem "Penjualan maksimum = " & jualMaks End Sub

Private Sub Command4_Click()

'Menghitung nilai minimal dari data

jualMin = jual(1)

For i = 2 To n

If jual(i) < jualMin Then jualMin = jual(i) Next

List1.AddItem ""

List1.AddItem "Penjualan maksimum = " & jualMin End Sub

Private Sub Form_Load()

'Nilai awal jumlah data diberi nol

n = 0

List1.Clear

End Sub

• Simpan project dengan nama projectLatihan2.