ARRAY

ARRAY

Array artinya adalah pendeklarasian sekelompok variabel yang bertipe data sama. Kegunaannya untuk mempersingkat penulisan kode yang bersifat satu per satu. Yang perlu Anda ketahui dari array adalah cara pendeklarasian yang kian berkembang.

Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun refresensi objek dalam jumlah banyak dan terindeks. Lebih jelasnya array berguna untuk memudahkan mendeklarasikan variable.

Setiap nilai data di dalam array disebut elemen array dan masing-masing dibedakan dengan nomor indeks. Array sendiri dideklarasikan dengan cara yang sama dengan variabel, yaitu menggunakan perintah Dim, kemudian diikuti tanda kurung dan jumlah elemennya dikurangi satu (karena indeks dimulai dari angka nol).

                             1.Array Satu Dimensi

Array satu dimensi adalah kumpulan elemen yang tersusun dalam suatu baris dengan tipe data yang sama.

BentukUmum :

Dim Array[indeks] As Tipe_Data

Contoh:

Buatlah desain form seperti gambar dibawah ini

Buatlah Event pada Form Load dengan cara double klik pada form dan ketikan kode program berikut ini :

1 2 3 4 5 6 7

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load           ListView1.View = View.Details         ListView1.GridLines = True         ListView1.Columns.Add("Nama", 115)       End Sub

kemudian klik ganda/ double klik pada Button dan ketikan kode program berikut ini:

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click           Dim nama(0) As String         nama(0) = TextBox1.Text           Dim list As New ListViewItem         list = ListView1.Items.Add(nama(0))           TextBox1.Text = ""         TextBox1.Focus()       End Sub

Jalankan program dengan cara menekan F5 (di keyboad) atau klik strart pada visual basic .net. Dan hasilnya dapat dilihat seperti gambar di bawah ini:

2.  Array Multi Dimensi

Array multi dimensi mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam visual basic kita dapat menentukan hinga 32 dimensi. Array tidak memiliki ukuran tetap dalam Visual Basic.

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 multi  dimensi  memiliki  lebih  dari  dua  dimensi.

Cara deklarasi array multidimensi secara umum sama dengan cara deklarasi array biasa, dengan cara menuliskan data array dimensi selanjutnya sebagai elemen array dimensi sebelumnya.

BentukUmum :

Dim Array[indeks,Indeks] As Tipe_Data

untuk dapat memahami Array multi dimensi, mari kita coba langsung pada latihan. Buatlah program pada visual basic .net dengan desain form seperti gambar di bawah ini:

kemudian buatlah Event pada Form Load dengan cara double klik pada form dan ketikan kode program berikut ini :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

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) = "Status"         arr(2, 0) = "Laki-laki"         arr(2, 1) = "Perempuan"         arr(3, 0) = "Menikah"         arr(3, 1) = "Belum Menikah"         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         Next         For baris = 2 To 2             For kolom = 0 To 1                 ComboBox1.Items.Add(arr(baris, kolom))             Next         Next         For baris = 3 To 3             For kolom = 0 To 1                 ComboBox2.Items.Add(arr(baris, kolom))             Next         Next         TextBox1.ReadOnly = True         TextBox1.Text = "1"         TextBox2.Focus()     End Sub

kemudian klik ganda/ double klik pada Button dan ketikan kode program berikut ini:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Dim arr(4) As String         arr(0) = TextBox1.Text         arr(1) = TextBox2.Text         arr(2) = ComboBox1.Text         arr(3) = ComboBox2.Text         Dim list As New ListViewItem         list = ListView1.Items.Add(arr(0))         list.SubItems.Add(arr(1))         list.SubItems.Add(arr(2))         list.SubItems.Add(arr(3))         TextBox1.Text = TextBox1.Text + 1         TextBox2.Text = ""         ComboBox1.Text = ""         ComboBox2.Text = ""         TextBox2.Focus()     End Sub

Jalankan program dengan cara menekan F5 (di keyboad) atau klik strart pada visual basic .net. Dan hasilnya dapat dilihat seperti gambar di bawah ini: