ARRAY PADA PEMROGRAMAN VISUAL

6.1 Array

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.

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

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 

1. Array Satu Dimensi 

    Design :

    

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

 

Public Class Form1     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       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 Running :

2. Array Multi Dimensi

    Design :

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	TxtNam
Combo1	Name	CmbKelamin
Combo2	Name	CmbProdi
ListView1	Name	ListView1
Button1	Name Text	BtnProses Proses

 

Public Class Form2     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       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 End Class

Hasil Running :