VB6 : Array
Array
Pengertian Koleksi Objek
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
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
Dim nama_variabel (n1,n2) As tipe_variabel (n1=baris, n2=kolom)
Pembuatan Program Array
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
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.
Settinglah nama objek dan caption objek dengan Fomat di bawah ini:
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.
MATERI VB6
Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :
Materi ke-2 : Membuat Form
Materi ke-3 : Variabel dan Konstanta
Materi ke-4 : Operator
Materi ke-5 : Fungsi Operator
Materi ke-6 : Fungsi Standar Visual Basic
Materi ke-7 : Percabangan
Materi ke-8 : Percabangan Lanjutan
Materi ke-9 : Procedure dan Function
Materi ke-10 : Module
Materi ke-11 : Array
Materi ke-12 : Efek Form dan Control Componen
Materi ke-13 : Database Form Barang
Materi ke-14 : Database Form Kasir
Materi ke-15 : Transaksi One To One
Materi ke-16 : Laporan Dengan Data Report