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 Net 2015
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) = "Sistem Informasi"
Arr(3, 1) = "Informatika"
D. PRAKTIKUM
Array Satu Dimensi
1. Buat project baru, dengan nama Latihan 16.
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 Project baru, dengan nama Latihan 17.
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) = "Sistem Informasi"
Arr(3, 1) = "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.