Array adalah konstruksi pemrograman yang menyimpan data dan memungkinkan kita untuk mengaksesnya dengan indeks numerik atau subscript. Array membantu kita membuat kode lebih pendek dan sederhana dalam banyak situasi. Array di Visual Basic NET. Mewarisi dari kelas Array dalam namespace System. Array dideklarasikan menggunakan Dim, ReDim, Static, Private.
Array dapat memiliki satu dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32 dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic.
Array dapat memiliki satu dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32 dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic.
Ok langsung saja tutorial vb.net Algoritma Pemrograman Array Satu dimensi dan Multi dimensi dalam program vb.net :
- Langsung saja buka Microsoft Visual Studio 2010 anda.
- Muncul “Form1”, masukkan Label, TextBox, ComboBox, Button dan juga ListView yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
- Ubah Propertiesnya seperti ini :
| Nama Control | Properties | Nilai |
| Label1 | Text | Kode Barang |
| Label2 | Text | Nama Barang |
| Label3 | Text | Jenis |
| Label4 | Text | Satuan |
| TextBox1 | Text | [Dikosongkan] |
| Name | TxtKodeBarang | |
| TextBox2 | Text | [Dikosongkan] |
| Name | TxtNamaBarang | |
| ComboBox1 | Text | [Dikosongkan] |
| Name | CmbJenis | |
| ComboBox2 | Text | [Dikosongkan] |
| Name | CmbSatuan | |
| Button1 | Text | Simpan |
| Name | BtnSimpan |
4. Setelah itu masukkan kode berikut ini :
Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Arr(4, 1) As String
Arr(0, 0) = “Kode Barang”
Arr(0, 1) = “Nama Barang”
Arr(1, 0) = “Jenis”
Arr(1, 1) = “Satuan”
Arr(2, 0) = “Sabun Mandi”
Arr(2, 1) = “Pasta Gigi”
Arr(3, 0) = “Pcs”
Arr(3, 1) = “Box”
Arr(4, 0) = “Lusin”
Arr(4, 1) = “Kodi”
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
CmbJenis.Items.Add(Arr(Baris, kolom))
Next kolom
Next Baris
For Baris = 3 To 4
For kolom = 0 To 1
CmbSatuan.Items.Add(Arr(Baris, kolom))
Next kolom
Next Baris
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
Dim Arr(4) As String
Arr(1) = TxtKodeBarang.Text
Arr(2) = TxtNamaBarang.Text
Arr(3) = CmbJenis.Text
Arr(4) = CmbSatuan.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(Arr(1))
listitem.SubItems.Add(Arr(2))
listitem.SubItems.Add(Arr(3))
listitem.SubItems.Add(Arr(4))
TxtKodeBarang.Text = TxtKodeBarang.Text + 1
TxtNamaBarang.Text = “”
CmbJenis.Text = “”
CmbSatuan.Text = “”
TxtNamaBarang.Focus()
End Sub
End Class
5. Setelah itu klik “Start Debugging (F5)”
6. Maka akan tampil form1 dan coba masukkan kode barang sampai satuan, dan klik simpan maka di listview akan tampil data yang telah terinput tadi…
Algoritma Pemrograman Array Satu dimensi dan Multi dimensi dalam program vb.net, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.
tetap semangat dan lanjut gan !!!
