PERTEMUAN 9 : MATERI ARRAY/LARIK

LARIK (ARRAY)

Pengenalan Array

Array merupakan sekumpulan data yang memiliki tipe data yang sama,

jumlah yang tetap , serta disusun secara terstruktur dan disimpan dalam suatu

variabel yang sama dan diurutkan dengan index. Array juga terbagi atas dua

bagian yaitu Array Satu Dimensi dan Array Multidimensi, akan dibahas dibawah

ini:

Array Satu Dimensi

Suatu array yang nilai dan ukurannya sudah ditetapkan terlebih dahulu

dan memiliki dimensi satu.

Bentuk umum penulisan array :

Dim Array [indeks] As Type Data

Contoh Penggunaan di dalam Visual Basic Net :

Penjelasan kode:

Kode diatas dimulai dengan sebuag sub program dengan nama

PenggunaanArray(). Didalam sub program tersebut didefinisikan sebuah variabel

array dengan nama arr, serta panjang data array adalah 5 buah. Setiap data array

bisa diberikan nilai sesuai dengan indek yang ada. Indek array akan dimulai dari

0 (nol).

Selanjutnya atur properties seperti gambar dibawah ini:

Form array satu dimensi yang sudah di edit

Saatnya untuk koding program diatas berikan event FormLoad Caranya

Double Click Form Akan diberikan event Form_load  Ketikkan Program

dibawah ini:

Selanjutnya Ketikkan Kode Program Untuk Tombol Tambah Kode Dibawah Ini:

ARRAY 1 DIMENSI

Public Class FormArray1Dimensi

    Private Sub FormArray1Dimensi_Load(ByVal sender As System.Object, ByVal e As System.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)

        TxtNirm.Text = 1

        TxtNama.Focus()

    End Sub

    Private Sub ButtonTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTambah.Click

        Dim Arr(2) As String

        Arr(0) = TxtNirm.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))

        TxtNirm.Text = TxtNirm.Text + 1

        TxtNama.Text = ""

        TxtProdi.Text = ""

        TxtNama.Focus()

    End Sub

    Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click

        End

    End Sub

End Class

Array Multi dimensi

Suatu array yang fungsinya hampir sama dengan array satu dimensi

hanya saja pada array multidimensi ini mewakili nilai-nilai tabel yang terdiri dari

informasi yang diatur dalam baris dan kolom. Untuk mengidentifikasi elemenelemen

tabel tertentu. Kita harus menentukan dua indeks.

Pertama untuk mengidentifikasi elemen baris dan yang kedua

mengidentifikasi elemen-elemen kolom. Array multidimensi memiliki lebih dari

dua dimensi.

Bentuk Penulisan Array Multi Dimensi:

Dim nama_array [indeks, indeks] As Tipe_Data

Atau

Dim nama_array [indeks,indeks,indeks] As Tipe_Data

Contoh Penggunaan :

Praktek Penggunaan Array Multidimensi :

Buatlah project dengan nama Desain form seperti dibawah ini :

Selanjutnya Atur Properties dari form diatas seperti berikut ini :

Form Multidimensi Selesai di Edit

Selanjutnya Ketikkan Kode dibawah ini di Form_load Double Click Form

Ketikkan Program Berikut :

Selanjutnya Kita Akan Koding Program pada tombol Proses

Ketikkan Program Berikut ini :

                                      ARRAY MULTI DIMENSI

Public Class FormArrayMultiDimensi

    Private Sub FormArrayMultiDimensi_Load(ByVal sender As System.Object, ByVal e As System.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) = "Sistem Komputer"

        Arr(3, 1) = "Sistem Informasi"

        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

                ComboBoxJenisKelamin.Items.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

        For Baris = 3 To 3

            For Kolom = 0 To 1

                ComboBoxProdi.Items.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

    End Sub

    Private Sub ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click

        Dim Arr(3) As String

        Arr(0) = TxtNirm.Text

        Arr(1) = TxtNama.Text

        Arr(2) = ComboBoxJenisKelamin.Text

        Arr(3) = ComboBoxProdi.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))

        TxtNirm.Text = TxtNirm.Text + 1

        TxtNama.Text = ""

        ComboBoxJenisKelamin.Text = ""

        ComboBoxProdi.Text = ""

        TxtNama.Focus()

    End Sub

    Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click

        End

    End Sub

End Class