Array

ARRAY

Array atau bisa di sebut sebagai larik adalah konseksi data atau kumpulan data yang memiliki nama variable dan jenis tipe data yang sama dan memiliki index, index tersebut digunakan untuk mengakses element atau isi array. ciri dari variable array adalah:

1. memiliki nama, 
2. memiliki index
3. memiliki tipe data dan
4. memiliki elemen 

Array ada 2 jenis yaitu:

1.      Array 1 Dimensi

Pengertian Array 1 dimensi adalah sekelompok data yang memiliki nama variable dan tipe data yang sama yang dapat diakses menggunakan 1 buah index saja.

           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.

Berikut ini adalah contoh Programnya:

Public Class Array1dimensi     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", 155)         ListView1.Columns.Add("Prodi", 110)         txtnim.Text = 1         txtnama.Focus()     End Sub     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 End Class

Hasil run:

2. Array Multi Dimensi

Pengertian Array dua dimensi adalah kumpulan data yang memiliki nama dan tipe data yang sama dimana elemennya dapat diakses menggunakan 2 buah index, bisa juga disebut sebagai index baris dan index kolom. Array 2 dimensi bisa di gambarkan sebagai table, yang memiliki index baris dan index kolom, index tersebut digunakan untuk mengakses elemen aray 2 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. Format deklarasi variable array 2 dimens di dalam algoritma adalah sebagai berikut:

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) = "MANAJEMENT INFORMATIKA"

            Arr(3, 1) = "TEKNIK INFORMATIKA"

Contoh dari array multidimensi:

Public Class Arraymultidimensi     Private Sub Arraymultidimensi_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) = "Teknik Informatika"         Arr(3, 1) = " Teknik Industri Pertanian"         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                 cbojenis.Items.Add(Arr(Baris, Kolom))             Next Kolom         Next Baris         For Baris = 3 To 3             For Kolom = 0 To 1                 cboprodi.Items.Add(Arr(Baris, Kolom))             Next Kolom         Next Baris     End Sub     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) = cbojenis.Text         Arr(3) = cboprodi.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 = ""         cbojenis.Text = ""         cboprodi.Text = ""         txtnama.Focus()     End Sub End Class

Hasil dari array multidimensi: