Program Array Multi Dimensi Menggunakan Microsft Visual Studio 2017

Membuat Program Array Multi Dimensi Menggunakan Microsft Visual Studio 2017

1.  Mendesain Form terlebih dahulu

    Dibawah ini merupakan tampilan desain program yang memiliki label (NIM, Nama, Kelamain,  PRODI), textbox, dan Button Tambah .

a.  Fungsi dari Label yang terdapat pada microsft visual sendiri adalah sebagai penamaan suatu teks atau judul untuk tampilan tersebut,

b.   Fungsi dari text box adalah untuk agar saat program di jalankan dapat mengisi form yang kosong tersebut(text box),

c.    Fungsi dari Combo box adalah Menampilkan data dalam bentuk kotak berdaftar yang telah terisi jadi tinggal memilih data yang sudah terdaftar tersebut.

d.   Fungsi dari Button adalah inti dari semua proses tampilan yang dijalankan dan melalui buton ini program mengcoding dijalankan. butto nya sendri yaitu Tambah untuk menambahkan data pada program Array multi dimensi.

e. Fungsi dari Listview adalah menampilkan data yang telah di inputkan yang menapilkan sebuah teks sesuai dengan Array multi dimensi.

  2. Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

        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) = "Sistem Informasi"

        Arr(3, 1) = "Komputerisasi Akuntansi"

        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

                ListView1.Columns.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

        For Baris = 3 To 3

            For Kolom = 0 To 1

                ListView1.Columns.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

    End Sub

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

        Dim Arr(3) As String

        Arr(0) = txtNIM.Text

        Arr(1) = txtNama.Text

        Arr(2) = cbKelamin.Text

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

        cbKelamin.Text = ""

        cbProdi.Text = ""

        txtNama.Focus()

    End Sub

End Class

  3.  Salah satu property pada Desain tampilan program tadi.

    Disini kita dapat megedit seluruh desain yang kita inginkan yang dimana sebelum nya menggunakan toolbox “btnProses”.

  4. Setelah Selesai Jalankan atau Running Program

    Tampilan hasil running pada program Percobaan Form ketikan sudah selesai mingisi data dan mengklik tampilkan hasil.