ARRAY
POKOK BAHASAN:
1.
Array satu dimensi
2.
Array multi dimensi
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.
Suatu
array yang nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan
memiliki satu dimensi 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
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 :
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"
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"
1. Listing
Source Array satu dimensi
|
1.
Public Class Form1
2.
3.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4.
ListView1.GridLines = True
5.
ListView1.View = View.Details
6.
ListView1.Columns.Add("NIM")
7.
ListView1.Columns.Add("NAMA", 115)
8.
ListView1.Columns.Add("PRODI", 110)
9.
txtnim.Text = 1
10. txtnama.Focus()
11. End Sub
12.
13. Private Sub btambah_Click(sender As Object, e As EventArgs) Handles btambah.Click
14. Dim Arr(2) As String
15. Arr(0) = txtnim.Text
16. Arr(1) = txtnama.Text
17. Arr(2) = txtprodi.Text
18.
19. Dim listitem As ListViewItem
20. listitem = New ListViewItem
21. listitem =
ListView1.Items.Add(Arr(0))
22. listitem.SubItems.Add(Arr(1))
23. listitem.SubItems.Add(Arr(2))
24.
25. txtnim.Text = txtnim.Text + 1
26. txtnama.Text = ""
27. txtprodi.Text = ""
28. txtnama.Focus()
29. End Sub
30. End Class
|
2. Output
3. Listing
Source Array multi dimensi
|
Public Class Form1
Private Sub Form1_Load(ByVal sender
As Object, ByVal 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) = "Sistem
Informasi"
Arr(3, 1) = "Komputerisasi
Akuntansi"
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
cbkelamin.Items.Add(Arr(Baris, Kolom))
Next Kolom
Next Baris
For Baris = 3 To 3
For Kolom = 0 To 1
cbprodi.Items.Add(Arr(Baris,
Kolom))
Next Kolom
Next Baris
End Sub
Private Sub bproses_Click(ByVal
sender As Object, ByVal e As EventArgs) Handles bproses.Click
Dim Arr(3) As String
Arr(0) = txtnim.Text
Arr(1) = txtnama.Text
Arr(2) = cbkelamin.Text
Arr(3) = cbprodi.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 = ""
txtnama.Text = ""
cbkelamin.Text = ""
cbprodi.Text = ""
txtnama.Focus()
End Sub
End Class
|
4. Output
Komentar
Posting Komentar