PRAKTIKUM
PERTEMUAN 9
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 2008
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.
1. 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) = TxtNim.Text
Arr(1) = TxtNama.Text
Arr(2) = TxtProdi.Text
1. 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"
A. PRAKTIKUM
1. Array Satu Dimensi
1. Buat project baru, dengan namaPrak9.
Desain Tampilan form seperti gambar berikut ini
1. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Object
|
Properties
|
Nilai
|
Form1
|
Name
Text
|
Form1
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
Text
|
BtnTambah
Tambah
|
1. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :
ListView1.GridLines = True
ListView1.View = View.Details
ListView1.Columns.Add("NIM")
ListView1.Columns.Add("NAMA", 115)
ListView1.Columns.Add("PRODI", 110)
TxtNim.Text = 1
TxtNama.Focus()
Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :
Dim Arr(2) As String
Arr(0) = TxtNim.Text
Arr(1) = TxtNama.Text
Arr(2) = TxtProdi.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(Arr(0))
listitem.SubItems.Add(Arr(1))
listitem.SubItems.Add(Arr(2))
TxtNim.Text = TxtNim.Text + 1
TxtNama.Text = ""
TxtProdi.Text = ""
TxtNama.Focus()
1. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
2. Simpan aplikasi Anda.
2. Array Multi Dimensi
1. Tambahkan Form baru, dengan nama Form2.
2. Desain Tampilan form seperti gambar berikut ini :
1. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Object
|
Properties
|
Nilai
|
Form1
|
Name
Text
|
Form1
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
Text
|
BtnProses
Proses
|
1. 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"
ListView1.GridLines = True
ListView1.View = View.Details
For Baris = 0 To 1
For Kolom = 0 To 1
ListView1.Columns.Add(Arr(Baris, Kolom), 100)
Next Kolom
Next Baris
For Baris = 2 To 2
For Kolom = 0 To 1
CmbKelamin.Items.Add(Arr(Baris, Kolom))
Next Kolom
Next Baris
For Baris = 3 To 3
For Kolom = 0 To 1
CmbProdi.Items.Add(Arr(Baris, Kolom))
Next Kolom
Next Baris
1.
Klik ganda pada BtnProses, kemudian ketikkan kode program berikut ini :
Dim Arr(3) As String
Arr(0) = TxtNIM.Text
Arr(1) = TxtNAMA.Text
Arr(2) = CmbKelamin.Text
Arr(3) = CmbProdi.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(Arr(0))
listitem.SubItems.Add(Arr(1))
listitem.SubItems.Add(Arr(2))
listitem.SubItems.Add(Arr(3))
TxtNIM.Text = TxtNIM.Text + 1
TxtNAMA.Text = ""
CmbKelamin.Text = ""
CmbProdi.Text = ""
TxtNAMA.Focus()
1.
Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
2. Simpan aplikasi Anda.
Apa itu Array ?
Array merupakan sebuah tipe data yang mampu menampung banyak data dalam satu variabel.
1. Larik (Array) Statis Satu dimensi yaitu jenis Larik dimana elemen elemnya hanya satu dimensi dan telah di tentukan jumlah elemennya.
2. Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah elemenya bersifat Dinamis
3. Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi .
