ARRAY
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) AsString
Arr(0) =
TxtNim.Text
Arr(1) =
TxtNama.Text
Arr(2) =
TxtProdi.Text
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) AsString
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"
Contoh Project Array
Satu Dimensi
1. project baru,
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
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
|
4. 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()
5. Klik
ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :
Dim
Arr(2) AsString
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()
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.
Contoh Project Array
Multi Dimensi
1. Tambahkan
Form baru, dengan namaForm2.
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
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
|
4. Klik
ganda pada Form Load, kemudian
ketikkan kode program berikut ini :
Dim Arr(3, 1) AsString
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
5. Klik
ganda pada BtnProses, kemudian ketikkan
kode program berikut ini :
Dim
Arr(3) AsString
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()
6. Jalankan
aplikasi dengan menekan tombol F5
(di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7
Tidak ada komentar:
Posting Komentar