Array Pada Visual Basic 6.0

Vb 6.0 Pemula : Mengenal Object Array di Visual Basic 6.0

Level : Pemula / dasar

Component : Shape, Timer, Button

Materi : Control Array

Array adalah Variabel yang memiliki lebih dari satu ruang untuk meyimpan nilai.

Contoh :

Dim Arr(3) as Integer

Artinya variabel Arr memiliki 4 ruang (0…3) untuk meyimpan nilai yang berbeda yaitu :

Arr(0)=20

Arr(1)=10

Arr(2)=5

Arr(3)=10

Di visual basic 6.0 array juga bisa di buat untuk object / component

Caranya adalah dengan melakukan copy - paste componen tersebut. sebagai contoh saya buat dengan menggunakan komponen shape 2008-09-22_213804.

1. Letakkan komponen shape ke form, kemudian tekan CTRL+C di lanjutkan CTRL + V sehingga akan menampilkan dialog di bawah ini

2008-09-22_214305

Klik Yes, Kemudian perhatikan Window Properties object shape1 akan berubah nama menjadi shape1(0);shape1(1);….
angka-angka tersebut akan di simpan ke dalam properties index
2008-09-22_214858

keuntungannya adalah setiap object array akan di letakkan dalam SUB yang sama, sedangkan untuk memilih object mana yang akan di tuju anda cukup mengarahkan dengan menggunakan index.Agar lebih mudah lagi anda memahami index pada komponen mari kita buat program animasi sederhana dengan menggunakan FORM,SHAPE, TIMER,CommandButton

1. Buat dengan menggunakan Standard EXE

2. letakkan komponen shape1 ke Form kemudian rubah properties berikut ini
Name = sh; Shape = Circle

3.Buat komponen shape menjadi array. copy-paste sehingga menjadi 5 shape, rubah properties fillcolor sh(0) menjadi warna merah sedangkan yang lain warna kuning.
sehingga hasilnya seperti di bawah ini

2008-09-22_220557

4. Kemudian tambahkan array commandbutton 2 dan timer 2. Untuk timer buat object dengan name berbeda bukan array dan masing masing properties enabled=false.dan interval=100. Hasilnya seperti gambar berikut ini.

2008-09-22_221314untuk properties lainnya silahkan anda cari dan sesuaikan dengan gambar di samping

5. Event Form_load

Dim i As Integer
Dim maju As Boolean
Private Sub Form_Load()
maju = True
i = 0
End Sub

6. Event Timer1_Timer

Private Sub Timer1_Timer()
Me.Sh(i).FillColor = RGB(255, 255, 0)
If i < 4 Then i = i + 1 Else i = 0
Me.Sh(i).FillColor = RGB(255, 0, 0)
End Sub

7. Event Timer2_timer

Private Sub Timer2_Timer()
Me.Sh(i).FillColor = RGB(255, 255, 0)

If i = 0 Then maju = True
If i = 4 Then maju = False

If maju = True Then i = i + 1
If maju = False Then i = i - 1

Me.Sh(i).FillColor = RGB(255, 0, 0)
End Sub

8. Command_click

Private Sub Command1_Click(Index As Integer)
If Index = 0 Then ’ masksudnya adalaha jika index 0 di klik
Me.Timer1.Enabled = True
Me.Timer2.Enabled = False
Else
Me.Timer1.Enabled = False
Me.Timer2.Enabled = True
End If
End Sub