Array
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 ada 2 tipe yaitu:
1. 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
2. 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
Contoh Program Satu Dimensi
|
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
|
Gambar 1.1 Tampilan Desain Satu Dimensi
Kode Program
Public Class Form1
Private Sub Form1_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)
TxtNim.Text = 1
TxtNama.Focus()
End Sub
Private Sub BtnTambah_Click(ByVal
sender As System.Object, ByVal e As
System.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 = ""
TxtNama.Focus()
End Sub
End Class
Gambar 1.2 Tampilan Hasil Program Satu Dimensi
Contoh Program Array Multi Dimensi
|
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
|
TxtNama
|
|
Combo1
|
Name
|
CmbKelamin
|
|
Combo2
|
Name
|
CmbProdi
|
|
ListView1
|
Name
|
ListView1
|
|
Button1
|
Name
Text
|
BtnProses
Proses
|
Gambar 1.3 Tampilan Desain Multi Dimensi
Kode Program
Public Class Form2
Private Sub Form2_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) = "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 BtnTambah_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles BtnTambah.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
Gambar 1.4 Tampilan Proses Program Multi Dimensi
Gambar 1.5 Tampilan Hasil Program Multi Dimensi
Komentar
Posting Komentar