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 diprogram 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 masing-masing dibedakan dengan nomer indeksnya.

1.2 Contoh Program : Kalkulator

-          Aktifkan VB 6 melalui tombol Start.

-          Buka kembali project Latihan.vbp.

-          Tambahkan Form baru ke dalam Project.

-          Pada Jendela Form buatlah UI seperti ini :

   (Gunakan komponen TextBox dan CommandButton)

 

Pengaturan property setiap object-nya adalah sebagai berikut :

Buat kontrol array dari cmdAngka (sebanyak 10 buah) dan dari cmdOperator (sebanyak

3 buah). Kemudian atur property caption masing-masing sebagai berikut :
 

Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut :

Dim angka(1 To 2) As Single

Dim operator As String

Private Sub cmdAngka_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka(Index).Caption

End Sub

Private Sub cmdOperator_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdOperator(Index).Caption

Text1.Text = ""

End Sub

Private Sub cmdHitung_Click()

Dim hasil As Single

If Text1.Text = "" Then Exit Sub

angka(2) = CSng(Text1.Text)

Select Case operator

Case "+"

hasil = angka(1) + angka(2)

Case "-"

hasil = angka(1) - angka(2)

Case "*"

hasil = angka(1) * angka(2)

Case "/"

hasil = angka(1) / angka(2)

End Select

Text1.Text = hasil

End Sub

Private Sub cmdHapus_Click()

Text1.Text = ""

End Sub