ARRAY
A. TUJUAN
- Memahami dan mengenal Array (array satu dimensi dan array multi dimensi)
- Dapat membuat aplikasi sederhana dengan menggunakan array satu dimensi dan array
multi dimensi
B. PERANGKAT LUNAK (SOFTWARE)
- Microsoft Visual Basic 2010
C. DASAR TEORI
Array adalah sekumpulan data yang memiliki tipe yang sama, sejumlah tetap, serta disusun
secara terstruktur dan disimpan dalam satu variabel yang sama, dan diurutkan dengan index.
Array Satu Dimensi
Suatu array yang nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan memiliki
satu dimensi.
Bentuk Umum :
Dim Array[indeks] As Tipe_Data
Contoh :
Dim Arr(2) As String
Arr(0) = [Link]
Arr(1) = [Link]
Arr(2) = [Link]
Array Multi Dimensi
Suatu array yang fungsinya hampir sama dengan array satu dimensi hanya saja pada array
multi dimensi ini mewakili nilai table yang terdiri dari informasi yang diatur dalam baris dan
kolom. Untuk mendefenisikan elemen table tertentu, kita harus menentukan dua indeks,
pertama mengidentifikasi elemen baris dan yang mengidentifikasi elemen kolom. Array
multidimensi memiliki lebih dari dua dimensi.
Bentuk Umum :
Dim Array[indeks,Indeks] As Tipe_Data
Dim Array[indeks,indeks,indeks] As Tipe_Data
Contoh :
Dim Arr(3, 1) As String
Arr(0, 0) = "NIM"
Arr(0, 1) = "NAMA"
Arr(1, 0) = "JENIS KELAMIN"
Arr(1, 1) = "PRODI"
Arr(2, 0) = "Laki-laki"
Arr(2, 1) = "Perempuan"
Arr(3, 0) = "Manajemen Informatika"
Arr(3, 1) = "Teknik Informatika"
D. PRAKTIKUM
Array Satu Dimensi
1. Buat project baru, dengan nama Array1.
2. Desain Tampilan form seperti gambar berikut ini :
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel
berikut:
Object Properties Nilai
Form1 Name Form1
Text Array Satu Dimensi
Label1 Text NIM
Label2 Text Nama
Label3 Text Prodi
TexBox1 Name TxtNIM
TexBox2 Name TxtNama
TexBox3 Name TxtProdi
ListView1 Name ListView1
Button1 Name BtnTambah
Text Tambah
4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :
[Link] = True
[Link] = [Link]
[Link]("NIM")
[Link]("NAMA", 115)
[Link]("PRODI", 110)
[Link] = 1
[Link]()
5. Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :
Dim Arr(2) As String
Arr(0) = [Link]
Arr(1) = [Link]
Arr(2) = [Link]
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = [Link](Arr(0))
[Link](Arr(1))
[Link](Arr(2))
[Link] = [Link] + 1
[Link] = ""
[Link] = ""
[Link]()
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start
Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi Anda.
Array Multi Dimensi
1. Tambahkan Form baru, dengan nama Form2.
2. Desain Tampilan form seperti gambar berikut ini :
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel
berikut:
Object Properties Nilai
Form1 Name Form1
Text Array Multi Dimensi
Label1 Text NIM
Label2 Text Nama
Label3 Text Kelamin
Label4 Text Prodi
TexBox1 Name TxtNIM
TexBox2 Name TxtNama
Combo1 Name CmbKelamin
Combo2 Name CmbProdi
ListView1 Name ListView1
Button1 Name BtnProses
Text Proses
4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :
Dim Arr(3, 1) As String
Arr(0, 0) = "NIM"
Arr(0, 1) = "NAMA"
Arr(1, 0) = "JENIS KELAMIN"
Arr(1, 1) = "PRODI"
Arr(2, 0) = "Laki-laki"
Arr(2, 1) = "Perempuan"
Arr(3, 0) = "Manajemen Informatika"
Arr(3, 1) = "Teknik Informatika"
[Link] = True
[Link] = [Link]
For Baris = 0 To 1
For Kolom = 0 To 1
[Link](Arr(Baris, Kolom), 100)
Next Kolom
Next Baris
For Baris = 2 To 2
For Kolom = 0 To 1
[Link](Arr(Baris, Kolom))
Next Kolom
Next Baris
For Baris = 3 To 3
For Kolom = 0 To 1
[Link](Arr(Baris, Kolom))
Next Kolom
Next Baris
5. Klik ganda pada BtnProses, kemudian ketikkan kode program berikut ini :
Dim Arr(3) As String
Arr(0) = [Link]
Arr(1) = [Link]
Arr(2) = [Link]
Arr(3) = [Link]
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = [Link](Arr(0))
[Link](Arr(1))
[Link](Arr(2))
[Link](Arr(3))
[Link] = [Link] + 1
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start
Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi Anda.