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

Postingan populer dari blog ini

Input dan Output pada Bahasa Pemrograman C++

Pengenalan DFD

DIAGRAM DEPLOYMENT