Penggunaan
Kontrol Array
1.1
Apa itu Kontrol Array ?
Kontrol array merupakan sekumpulan kontrol yang “dikelompokkan” dengan nama yang
sama di dalam sebuah Form. Kontrol array digunakan bila ada beberapa kontrol
yang sama dan akan mendapat perlakuan yang sama pula. Misalnya, ada 5 buah
TextBox di dalam sebuah Form dan akan deprogram dengan cara yang sama, maka
akan lebih mudah jika membuat sebuah TextBox sebagai kontrol array dibandingkan
bila membuat 5 buah TextBox yang berbeda. Setiap object di dalam kontrol array masingmasing
dibedakan dengan nomer indeksnya.
1.2
Membuat Kontrol Array
Untuk membuat kontrol array (misalnya TextBox) sebanyak 5 buah di
dalam sebuah form, lakukan langkah berikut ini :
1.
Buatlah
sebuah TextBox di dalam sebuah Form.
2.
Aturlah
property TextBox tersebut sebagai berikut :
Name
: txtData
Index
: 0 (nol)
Perhatikan
: kontrol
TextBox-nya akan menjadi object txtData(0) (lihat bagian Object Selector
pada Jendela Properties).
3.
Klik
object txtData(0) pada Form, kemudian klik tombol Copy pada bagian Toolbar.
4.
Untuk
membuat TextBox kedua, klik tombol Paste pada bagian Toolbar. TextBox kedua
akan muncul di pojok kiri Form sebagai object txtData(1), aturlah posisinya di
dalam Form.
5.
Lakukan
langkah ke-4 di atas sebanyak 4 kali (sesuai dengan jumlah TextBox yang
dibutukan).
6.
Di dalam Form akan ada 5 buah TextBox dengan
nama yang sama (yaitu txtData) dan masingmasing menjadi object txtData yang
dibedakan nomer indexnya (mulai dari 0 s/d 4). Selanjutnya object-object yang
dibuat dengan kontrol array bisa diprogram dengan lebih mudah. Misalnya untuk
“mengosongkan” object txtData, bisa menggunakan struktur kontrol For…Next :
For i = 0 To 4
txtData(i).Text = “”
Next i
Cara ini lebih mudah bila
dibandingkan cara “konvensional” berikut :
Text1.Text = “”
Text2.Text = “”
…
Text4.Text = “”
1.3 Contoh Program : Kalkulator
Aktifkan VB 6 melalui tombol
Start.
Buka kembali project Latihan.vbp.
Tambahkan Form baru ke dalam
Project.
(Gunakan komponen TextBox dan CommandButton)
Objrct
|
Properties
|
|
Form9
|
BorderStyle
Caption
StartUpPosition
|
1 – Fixed Single
Kalkulator
2 – Center Screen
|
Text1
|
Alignment
Text
|
1 – Right Justify
<kosong>
|
Command1
|
Name
Caption
Index
|
cmdAngka
1
0
|
Command2
|
Name
Caption
|
cmdHapus
C
|
Command3
|
Name
Caption
Index
|
cmdOperator
+
0
|
Command4
|
Name
Caption
|
cmdHitung
=
|
Buat kontrol array dari cmdAngka (sebanyak 10 buah)
dan dari cmdOperator (sebanyak 2buah). Kemudian atur property caption
masing-masing sebagai berikut :
Object
|
Caption
|
cmdAngka(1)
cmdAngka(2)
…
cmdAngka(10)
|
2
3
…
,
|
cmdOperator(1)
cmdOperator(2)
cmdOperator(3)
|
-
*
/
|
Tidak ada komentar:
Posting Komentar