Mengenal dan Memahami Control Array

Pada visual Basic, array tidak hanya berlaku untuk variabel tetapi juga berlaku untuk komponen. Pemakaian array pada komponen ini dinamakan dengan control array. Control array ini banyak terjadi ketika membuat komponen dengan cara meng-copy dari komponen yang sudah ada, misalkan untuk membuat command button dengan meng-copy command1 akan muncul konfirmasi “You already have a control named command1. Do you want to create a control array ?”. Bila pertanyaan ini djawab dengan Yes, maka hasil command yang kedua mempunyai nama command1(1), sedangkan command yang pertama mempunyai nama command1(0). Control array ini sangat berguna bila membuat suatu project dengan banyak komponen yang mempunyai model dan kegunaan yang sama. Control array juga berguna untuk membuat project dengan komponen serupa yang sangat banyak misalkan untuk lampu indikator yang menyatakan volume atau kekuatan.

Contoh Aplikasi 1 :

Membuat kalkulator dengan kemampuan penjumlahan dan pengurangan, dapat dilakukan dengan memanfaatkan control array pada tombol-tombol yang digunakan.

1.       Buat project baru dengan StandardEXE. Untuk form, isi porperty [Name] dengan formLatihan1.

2.    Tambahkan komponen TextBox, atur property [Font] dengan size 18 dan bold, atur property alignment dengan 1-Right Justify. Isi property [Text] dengan 0 (nol).

3.    Tambahkan command Button, atur property [Font] dengan size 14 dan bold. Buatlah 14 buah command button dengan cara meng-copy dan jadikan control array sehingga menjadi command1(0), command1(1), command1(2) sampai dengan command1(13).

4.       Atur posisinya seperti gambar berikut :

(Latihan membuat kalkulator)

5.       Pada jendela code, tambahkan kode program sebagai operasi kalkulator sebagai berikut:

%  Definisi variabel global

Dim kal, operasi As String

Dim bil As Integer

Private Sub Command1_Click(Index As Integer)

%  Penambahan kerakter setiap tombol angka ditekan

kal = kal + Trim(Str(Index))

Text1 = kal

End Sub

Private Sub Command2_Click()

%  Membersihkan memory dan text1

Text1 = "0"

kal = ""

End Sub

Private Sub Command3_Click(Index As Integer) Select Case Index

Case 0:

%  Operasi perhitungan bila tombol = ditekan

bil2 = Val(kal)

If operasi = "+" Then bil = bil + bil2

If operasi = "-" Then bil = bil - bil2 Text1 = bil

kal = Trim(Str(bil))

Case 1:

%Penampungan variabel dan operator untuk penjumlahan

bil = Val(kal)

operasi = "+"

kal = ""

Case 2:

%Penampungan variabel dan operator untuk pengurangan

bil = Val(kal)

operasi = "-"

kal = ""

End Select

End Sub

6.       Simpan project dengan nama projectLatihan1. Cobalah lakukan proses perhitungan seperti kalkulator biasa. Kalkulator ini memang masih sederhana, dan bisa ditambah fasilitasnya dengan menambah command button dan setiap eventnya.

Contoh Aplikasi 2:

Membuat indikator proses dengan  memanfaatkan control array. Lakukan pengulangan 1 sampai dengan 20, setiap pengulangan lakukan pengulangan lagi sebanyak 1000000 dn lakukan proses perhitungan sederhana misalkan x=2*j+1. Buatlah indikator yang menunjukkan sudah berapa pengulangan pertama yang selesai dengan indikator dibuat memanfaatkan property [Visible] pada shape. Untu membuat program ini lakukan langkah-langkah sebagai berikut:

1.   Buat project baru dengan StandardEXE. Untuk form1, isi property [Name] dengan formLatihan2.

2.   Tambahkan komponen Command, isi property [Caption] dengan Proses.

3. Tambahkan komponen shape, isi property [FillColor] dengan Pallete Merah, dan isi property [FillStyle] dengan 0-Solid. Copy komponen shape ini sebanyak 19 kali sehingga totalnya adalah 20 shape dan letakkan berjajar, seperti pada gambar  berikut :

(Membuat indikator proses)

4.  Pada jendela code, tambahkan kode  program untuk menampilkan indikator pengulangan sebagai berikut:

Private Sub Command1_Click()

'Hilangkan semua shape dengan mengatur visible

For i = 0 To 19

Shape1(i).Visible = False

Next i

'Lakukan pengulangan

For i = 1 To 20

'Lakukan pengulangan sebanyak 1000000

For j = 1 To 1000000

'Lakukan proses perhitungan sederhana

x = 2 * i + 1

Next j

'Tampilkan shape ke i-1

Shape1(i - 1).Visible = True

Shape1(i - 1).Refresh

Next i

End Sub

5.       Simpan project dengan nama projectLatihan2.