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 nama Prak9.

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 .