VB6 : Array

Array

Pengertian Koleksi Objek

Objek-objek yang digunakan dalam form biasanya berdiri sendiri. Dengan demikian jika anda ingin mengubah property ke semua objek tersebut, hal tersebut menyebabkan listing menjadi panjang. Untuk itu digunakan koleksi dan array yang dapatmenghemat penulisan listing program.
Koleksi adalah suatu kumpulan kompenen yang dapat berfungsi sejalan. Hal ini sangat berguna saat akun mendefinisikan sebuah proses yang menyangkut kontrol-kontrol yang ada pada form.

Cara Mengakses Koleksi Objek

  • Koleksi Sementara : Dapat dilakukan dengan mengklik kontrol-kontrol pada form yang akan dijadikan sebagai satu grup koleksi sambil menekan tombol Ctrl. Koleksi sementara biasanya digunakan untuk memindahkan objek secara bersamaan hanya pada saat tersebut.
  • Koleksi dengan Controls : Untuk mempermudah koleksi semua objek dalam satu form digunakan property controls. sintaknya : [objek].controls . Dimana [objek] lebih umum dinyatakan sebagai nama form yang kontrol-kontrolnya dijadikan koleksi proses.

 

Array Satu Dimensi

Array adalah variabel yang berisi beberapa data sejenis. Data-data tersebut disimpan dengan nomor urut tertentu yang disebut index. Jika X adlah variable array, maka digambarkan sebagai berikut :
Variabel X
Data-1 Elemen/index ke-1
Data-2 Elemen/index ke-2
Data-3 Elemen/index ke-3
Data-n Elemen/index ke-n

Array Multi Dimensi

Array berdimensi 2 terdiri dari baris dan kolom, contohnya pada tabel atau matrik. Pendefinisiannya adalah sebagai berikut :
Dim nama_variabel (n1,n2) As tipe_variabel (n1=baris, n2=kolom)


Pembuatan Program Array

Array Satu Dimensi

Buat tampilan form seperti dibawah ini :


Settinglah nama objek dan caption objek dengan Fomat di bawah ini:



masukkan listing program seperti berikut pada form :

Private Sub Form_Load()
Dim hari(6) As String
hari(0) = "Senin"
hari(1) = "Selasa"
hari(2) = "Rabu"
hari(3) = "Kamis"
hari(4) = "Jum'at"
hari(5) = "Sabtu"
hari(6) = "Minggu"

For i = 0 To 6
MsgBox "Hari " & hari(i), , "Nama Hari"
Next i
End Sub

Penjelasan Coding :
Dim hari(6) As String ; membuat variabel hari yang berindex array 6 isi dan bertipe data String
hari(0) = "Senin" ; karna index pertama array itu angka 0 mangka index pertama dari hari adalah senin
For i = 0 To 6 ; membuat pengulangan variabel i dari 0 sampai 6
Msgbox "Hari " & hari(i),,"Nama Hari" ; Memunculkan messagebox yang bertulisan hari dan diikuti dari isi index array yang tercantum dikodingan mulai dari index 0 sampai 6.




Array Multi Dimensi

Buat tampilan form seperti dibawah ini :

Settinglah nama objek dan caption objek dengan Fomat di bawah ini:


masukkan listing program seperti berikut pada form :

Dim nama(10) As String
Dim nilai(5, 5) As Byte
Dim r As Byte
Dim m As Byte
Dim w As Byte
Dim i As Byte


Private Sub cmdclear_Click()
Dim ctrl As Control
For Each ctrl In Me
If TypeName(ctrl) = "ListBox" Then
ctrl.Clear
End If
Next
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdmultidimensi_Click()
List1.Clear
w = InputBox("Masukkan Jumlah Baris", "Input Baris", 0)
i = InputBox("Masukkan Jumlah Kolom", "Input Baris", 0)
For r = 1 To w
For m = 1 To i
nilai(r, m) = InputBox("Nilai Pada(" + Str(r) + "," + Str(m) + ")", "Input Nilai Matrik", 0)
Next
Next
For r = 1 To w
For m = 1 To i
List1.AddItem "Nilai(" + Str(r) + "," + Str(m) + ")=" + Str(nilai(r, m))
Next
Next
End Sub

Private Sub cmdsatudimensi_Click()
List1.Clear
m = InputBox("Masukkan Jumlah Data Teman Anda", "Input Jumlah Data", 0)
For r = 1 To m
nama(r) = InputBox("Masukkan nama teman anda yang ke-" + Str(r), "Input Jumlah Data", "Nama")
Next
For r = 1 To m
List1.AddItem UCase(nama(r))
Next r
End Sub

Private Sub Timer1_Timer()
ltgl.Caption = Format(Date, "dddd,dd-mmmm-yyyy")
ltime.Caption = Time
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = "Array Dimensi 1(Satu)" Then
Label1.Caption = "Array Multi Dimensi"
Label1.ForeColor = &HFF&
Else
Label1.Caption = "Array Dimensi 1(Satu)"
Label1.ForeColor = &HFF0000
End If
End Sub

Penjelasan Koding :
variabel w menampung untuk pembuatan baris dan bariabel i digunakan untuk membua kolom baru.
variabel r untuk menyimpan nilai pada baris dan m nilai pada kolom.

Unuk pertanyaan koding yang lain silakan melalui komentar :)

Lalu Klik Run - Start  atau tekan f5 :
* saat di run jika kita menekan input data array satu dimensi maka kita akan memasukkan jumlah data.a dan memasukkan isi dari data tersebut
* saat kiita menekan tombol input data array multi dimensi maka kita memasukkan jumlah kolom dan baris yang akan kita buat lalu kita memasukan data-datanya.









Artikel Terkait:
Disqus Comments