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:
- memiliki nama,
- memiliki index
- memiliki tipe data dan
- 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:
- 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
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:
Tidak ada komentar:
Posting Komentar