Cara membuat aplikasi array multi dimensi di Visual basic 2010

Setelah berhasil mengimplementasikan dan memahami array satu dimensi, berikutnya kita mencoba untuk membuat form array multi dimensi, tidak beda jauh sebenarnya, namun kita akan dapat merasakan sendiri perbedaannya dari masing-masing array tersebut saat selesai membuat form hasil sendiri, programnya lumayan panjang lebih baik di ketik sendiri dari pada hanya copas supaya mengerti. Admin harap pembelajaran array mulai dari pengenalan sampai pembuatan form berguna untuk tenab-teman sebagai bahan referensi.

1. Buat file > project baru, beri nama projectnya bebas saja.

2. Buat desain formnya seperti gambar berikut :

3. Tambahkan kontrol ke form dan atur propertiesnya 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
TextBox1	Name	TxtNIM
TextBox1	Name	TxtNama
ComboBox1	Name	CmbKelamin
ComboBox2	Name	CmbProdi
ListView1	Name	ListView1
Button1	Name Text	BtnProses Proses

4. Klik ganda form dan masukan script 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 button proses lalu masukan script berikut :

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
End Class

6. Jalankan apliaksi dengan menekan tomnol F5 atau ikon start debugging, hasilnya seperti gambar dibawah ini.

7. Simpan project aplikasinya.