ARRAY
A.
TUJUAN
-
Memahami
dan mengenal Array (array satudi mensi dan array multi dimensi)
-
Dapat
membuat aplikasi sederhana dengan menggunakan array satudi mensi 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
SatuDimensi
Suatu array yang
nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan memiliki satu dimensi.
BentukUmum :
Dim Array[indeks] As Tipe_Data
Contoh :
Dim Arr(2) As
String
Arr(0) = TxtNim.Text
Arr(1) =
TxtNama.Text
Arr(2) = TxtProdi.Text
2.
Array Multi
Dimensi
Suatu array yang
fungsinya hamper sama dengan array satu dimensi hanyasaja pada array multi dimensi ini mewakili nilai table yang
terdiri dari informasi yang diatur dalambaris dan kolom. Untuk mendefenisikan elemen
table tertentu, kita harus menentukan dua indeks, pertama mengidentifikasi elemen
baris dan yang mengidentifikasi elemen kolom.Array multi dimensi memiliki lebih
dari dua dimensi.
BentukUmum :
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"Contoh Array Satu Dimensi
1.
Tambahkankontrolke
form sepertipadagambardiatasdanaturpropertinyasepertitabelberikut:
Object
|
Properties
|
Nilai
|
Form1
|
Name
Text
|
Form1
Array
SatuDimensi
|
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
|
2.
Klikgandapada
Form Load, kemudianketikkankode program berikutini :
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()
3.
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()
4.
Jalankan aplikasi dengan menekan tombolF5 (di keyboard), atau melalui icon
Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
5.
Simpan aplikasi Anda.
1.
Contoh Array Dua
Dimensi1.
Tambahkan kontrol ke
form seperti pada gambardiatasdanatur propertinya seperti tabel berikut:
Object
|
Properties
|
Nilai
|
Form1
|
Name
Text
|
Form1
Array
SatuDimensi
|
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
|
2.
Klikgandapada
Form Load, kemudianketikkankode program berikutini :
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()
3.
KlikgandapadaBtnTambah,
kemudianketikkankode program berikutini :
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()
4.
JalankanaplikasidenganmenekantombolF5 (di keyboard), ataumelalui icon
Start Debugging di toolbar, ataumelalui menu Debug > Start Debuging.
5.
SimpanaplikasiAnda.
1.
Contoh Array Dua
Dimensi
Langka-Langkah
nya :
1.
Tambahkankontrolke
form sepertipadagambardiatasdanaturpropertinyasepertitabelberikut:
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
|
2.
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
3.
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()
4.
Jalankan
aplikasi dengan menekan tombol F5
(di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
5.
Simpan
aplikasi Anda.
Tidak ada komentar:
Posting Komentar