ARRAY
A. Pengertian Array
Array
merupakan variabel memori yang berisi sekumpulan data dalam tipe yang sejenis. Data-data
pada array disimpan dalam urutan tertentu yang dinamakan index. Sehingga untuk
merujuk pada lokasi tertentu atau elemen array tertentu maka kita menentukan
nama array dan posisi elemen array yang diidentifikasi menggunakan index.
Setiap
nomor index dalam array dialokasikan dalam ruang memori tertentu, sehingga
pengguna harus menghindari pernyataan array yang ukurannya lebih besar daripada
yang dibutuhkan.
B. Macam-Macam Array
1.
Array Satu
Dimensi
Array
satu dimensi merupakan 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
2.
Array
Mullti Dimensi
Array
multi dimensi merupakan suatu array yang berfungsi hampir sama dengan array
satu dimensi hanya saja pada array multi dimensi ini mewakili nilai tabel yang
terdiri dari informasi yang diatur dalam baris dan kolom. Untuk mendefinisikan
elemen tabel tertentu, kita harus menentukan dua indeks, pertama
mengidentifikasi elemen baris dan yang mengedintifikasi elemen kolom. Array multi
dimensi 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"
TUTORIAL
PRAKTIKUM ARRAY
A. Alat dan Bahan
Alat
dan bahan yang perlu digunakan dalam praktikum form dan objek kontrol kedua ini
adalah sebagai berukut.
1.
Laptop
2.
Software
Visual Studio Community 2013
B. Langkah-Langkah Praktikum Array
Berikut ini adalah
langkah-langkah praktikum array :
Array Satu Dimensi
1.
Buat projek
baru dengan nama Prak6, sama dengan
praktikum sebelumnya. Maka akan tampil pada tampilan form seperti berikut.
2.
Klik Form1
untuk mengatur properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Form1 |
Nama
|
Form1 |
|
Text |
Array
Satu Dimensi |
Sehingga judul pada
tampilan form sebagai berikut.
3.
Selanjutnya
pada Toolbox, cari Label. Kemudian double klik Label
tersebut. Disini kita menggunakan 3 label.
4.
Sehingga tampilannya
sebagai berikut.
5.
Atur properti-propertinya
sebagai berikut.
|
Object |
Properties |
Nilai |
|
Label1 |
Text |
NIM |
|
Label2 |
Text |
Nama |
|
Label3 |
Text |
Prodi |
Sehingga judul pada
label berubah seperti berikut.
6.
Pada Toolbox, cari TextBox. Kemudian double
klik TextBox tersebut. Disini kita
menggunakan 3 textbox.
7.
Sehingga tampilannya
sebagai berikut.
Lalu atur
properti-propertinya berikut.
|
Object |
Properties |
Nilai |
|
TextBox1 |
Name |
TxtNIM |
|
TextBox2 |
Name |
TxtNama |
|
TextBox3 |
Name |
TxtNama |
8.
Pada Toolbox, cari ListView. Kemudian double klik ListView
tersebut.
9.
Sehinggan tampilannya
sebagai berikut.
Lalu atur
properti-propertinya berikut.
|
Object |
Properties |
Nilai |
|
ListView1 |
Name |
ListView1 |
10.
Pada Toolbox, cari Button. Kemudian double klik Button
tersebut.
11.
Sehinggan tampilan
button seperti berikut.
12.
Atur propertinya
sebagai berikut.
|
Object |
Properties |
Nilai |
|
Button1 |
Name |
btnTambah |
|
Text
|
Tambah |
Sehingga tampilannya
sebagai berikut.
13.
Selanjutnya
kita memulai untuk memasukkan codingan agar Form tersebut dapat dijalankan saat
di running. Klik ganda pada Form1, masukkan kode berikut.
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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()
End Sub |
14.
Klik ganda
pada btnTambah, masukkan kode berikut.
|
Private Sub BtnTambah_Click(sender
As Object, e As EventArgs) Handles BtnTambah.Click 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()
End Sub |
15.
Klik Start untuk menjalankan program, dan
hasilnya seperti berikut. Saat kita mengisikan data pada kolom, maka ketika
kita klik button Tambah, hasilnya
akan keluar pada tabel.
16.
Hasil data
yang ditambahkan sebelumnya.
Array Multi Dimensi
1.
Buat form
baru sama dengan seperti sebelumnya dengan nama Form2. Maka akan tampil pada tampilan sebagai berikut.
2.
Klik Form2
untuk mengatur properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Form2 |
Nama
|
Form2 |
|
Text |
Array
Multi Dimensi |
Sehingga judul pada
tampilan form sebagai berikut.
3.
Selanjutnya
pada Toolbox, cari Label. Kemudian double klik Label
tersebut. Disini kita menggunakan 4 label.
4.
Sehingga tampilannya
sebagai berikut.
5.
Atur properti-propertinya
sebagai berikut.
|
Object |
Properties |
Nilai |
|
Label1 |
Text |
NIM |
|
Label2 |
Text |
Nama |
|
Label3 |
Text |
Kelamin |
|
Label4 |
Text |
Prodi |
Sehingga judul pada
label berubah seperti berikut.
6.
Pada Toolbox, cari TextBox. Kemudian double
klik TextBox tersebut. Disini kita
menggunakan 2 textbox.
7.
Sehingga tampilannya
sebagai berikut.
Lalu atur
properti-propertinya berikut.
|
Object |
Properties |
Nilai |
|
TextBox1 |
Name |
TxtNIM |
|
TextBox2 |
Name |
TxtNama |
8.
Pada Toolbox, cari ComboBox. Kemudian double klik ComboBox
tersebut. Disini kita menggunakan 2 combobox.
9.
Sehinggan tampilannya
sebagai berikut.
Lalu atur
properti-propertinya berikut.
|
Object |
Properties |
Nilai |
|
ComboBox1 |
Name |
CmbKelamin |
|
ComboBox2 |
Name |
CmbProdi |
10.
Pada Toolbox, cari ListView. Kemudian double
klik ListView tersebut.
11.
Sehinggan tampilannya
seperti berikut.
12.
Atur propertinya
sebagai berikut.
|
Object |
Properties |
Nilai |
|
ListView1 |
Name |
ListView1 |
13.
Pada Toolbox, cari Button. Kemudian double
klik Button tersebut.
14.
Sehingga tampilan
button seperti berikut.
15.
Atur propertinya
sebagai berikut.
|
Object |
Properties |
Nilai |
|
Button1 |
Name |
btnProses |
|
Text
|
Proses |
Sehingga tampilannya
sebagai berikut.
16.
Selanjutnya
kita memulai untuk memasukkan codingan agar Form tersebut dapat dijalankan saat
di running. Klik ganda pada Form2, masukkan kode berikut.
|
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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
End Sub |
17.
Klik ganda
pada btnProses, masukkan kode berikut.
|
Private Sub BtnProses_Click(sender
As Object, e As EventArgs) Handles BtnProses.Click 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()
End Sub |
18.
Setelah itu,
pindahkan terlebih dahulu Signing
nya ke Form2, sama seperti
sebelumnya. Karena jika tidak dipindahkan maka saat di running tetap akan
berfungsi di Form1. Klik kanan pada My Project terlebih dahulu. Lalu klik Open. Pada Signing ganti Form1 nya
menjadi Form2.
19.
Klik Start untuk menjalankan program, dan
hasilnya seperti berikut. Saat kita mengisikan data pada kolom, maka ketika
kita klik button Proses, hasilnya
akan keluar pada tabel.
20.
Hasil data
yang ditambahkan sebelumnya.
Komentar
Posting Komentar