Pemrograman Visual Array Multi Dimensi

Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks.

Array Multi Dimensi

            Suatu array yang fungsinya hamper sama dengan array satu dimensi hanya saja pad array multi dimensi ini mewakili nilai table yang terdiri dari informasi yang diatur dalam baris dan kolom.

Bentuk umum:

Dim Array [indeks,indeks] As Tipe_Data

Dim Array [indeks,indeks] As Tipe_Data

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	FrmArrayII Array Multi Dimensi
2	Label	Text	txtNIM
3	TextBox	Text Name	(dikosongkan) txtNIM
4	Label	Text	NAMA
5	TextBox	Text Name	(dikosongkan) txtNama
6	Label	Text	KELAMIN
7	ComboBox	Text Item Name	(dikosongkan) (dikosongkan) cboKelamin
8	Label	Text	PRODI
9	ComboBox	Text Item Name	(dikosongkan) (dikosongkan) cboProdi
10	Button	Text Name	Proses btnProses
11	ListVew	Text Name	(dikosongkan) ListView1

a.       Buatlah Form baru dengan nama Array Multi Dimensi.

b.      Buatlah sebuah Array Multi Dimensi yang bisa melakukan operasi pengulangan untuk input data yang diinputkan oleh user.

c.       Hasil Array Multi Dimensi ini kurang lebih sebagai berikut:

d.       Properties Name adalah:

txtNIM, txtNama, cboKelamin, cboProdi, btnProses, ListView1.

e.      Kode Program

Public Class ArrayII

    Private Sub ArrayII_Load(ByVal sender As 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) = "Teknik Informatika"

        Arr(3, 1) = "Teknologi Industri Pertanian"

        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

                cboKelamin.Items.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

        For Baris = 3 To 3

            For Kolom = 0 To 1

                cboProdi.Items.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

    End Sub

    Private Sub btnProses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProses.Click

        Dim Arr(3) As String

        Arr(0) = txtNIM.Text

        Arr(1) = txtNama.Text

        Arr(2) = cboKelamin.Text

        Arr(3) = cboProdi.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 = " "

        cboKelamin.Text = " "

        cboProdi.Text = " "

        txtNama.Focus()

    End Sub

End Class

f.       Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

g.      Hasil tampilan dari program.