Materi tentang Array Multidimensi atau Dua Dimensi pada VB.NET

Array 

             Array adalah sekumpulan nilai dengan tipe data yang sama dan saling berhubungan satu sama lain. Nah kita bisa mengambil setiap nilai yang ada didalam array tersebut menggunakan sebuah angka yang disebut index untuk membedakannya. Terus didalam array juga ada yang disebut dengan “Element”, element sendiri adalah nilai-nilai yang ada didalam array tersebut.

Array Multidimensi

             Array multidimensi merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki type data sama dan elemen yang akan diakses melalui banyak indeks. Array bentuk ini biasanya digunakan untuk merepresentasikan nilai dari sebuah tabel.

BentukUmum :

Dim Array[indeks,Indeks] As Tipe_Data
Dim Array[indeks,indeks,indeks] As Tipe_Data

Contoh :

Berikut Source Codenya :

Public Class latihan4

    'nadiahtami 2017230007'

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim arr(4) As String

        arr(0) = TextBox1.Text

        arr(1) = TextBox2.Text

        arr(2) = ComboBox1.Text

        arr(3) = ComboBox2.Text

        Dim list As New ListViewItem

        list = ListView1.Items.Add(arr(0))

        list.SubItems.Add(arr(1))

        list.SubItems.Add(arr(2))

        list.SubItems.Add(arr(3))

        TextBox1.Text = TextBox1.Text + 1

        TextBox2.Text = ""

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        TextBox2.Focus()

    End Sub

    Private Sub latihan4_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) = "Status"

        arr(2, 0) = "Laki-laki"

        arr(2, 1) = "Perempuan"

        arr(3, 0) = "Menikah"

        arr(3, 1) = "Belum Menikah"

        'MENAMPILKAN GRID/GARIS TABEL UNTUK LISTVIEW'

        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

        Next

        For baris = 2 To 2

            For kolom = 0 To 1

                ComboBox1.Items.Add(arr(baris, kolom))

            Next

        Next

        For baris = 3 To 3

            For kolom = 0 To 1

                ComboBox2.Items.Add(arr(baris, kolom))

            Next

        Next

        TextBox1.ReadOnly = True

        TextBox1.Text = "1"

        TextBox2.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class