Array – Satu Dimensi, Multi Dimensi vb.net

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.

Ok langsung saja tutorial vb.net Algoritma Pemrograman Array Satu dimensi dan Multi dimensi dalam program vb.net :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, ComboBox, Button dan juga ListView yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. 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 !!!