CONTOH ARRAY MULTI DIMENSI PADA VB.NET 2008

1. Buat project baru.
2. Desain tampilan form seperti pada gambar dibawah ini :

3.  Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

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

4.  Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :

Private Sub Form1_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

5. Klik ganda pada BtnProses, kemudian ketikkan kode program berikut ini :

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.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

6.   Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
     toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan project anda.

hasilnya dapat dilihat pada gambar di bawah ini :

Untuk mendownload projectnya klik disini