Fungsi Array Pada Visual Studio .Net

Array adalah sebuah penyimpanan dengan tak terhingga, sehingga jika kewalah dengan data yang dimensi sesuai keinginan digunakan untuk Sistem pendukung keputusan, Data Mining, Sistem Pakar ya dengan data yang banyak atau Anda pernah bermain di tabel pada Database sebenarnya itu konsep pengembangan Array itu sendiri. Program berikut memanfaatkan Array untuk di tampilkan pada Listview. Silahkan jalankan programnya jika binggung logikanya silahkan bertanya.

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Arr(4, 1) As String Arr(0, 0) = "Nik" Arr(0, 1) = "Nama" Arr(1, 0) = "Jenis Kelamin" Arr(1, 1) = "Jurusan" Arr(2, 0) = "Laki - laki" Arr(2, 1) = "Perempuan" Arr(3, 0) = "Manajemen Informatika" Arr(3, 1) = "Komputerisasi Akuntansi" Arr(4, 0) = "Sistem Informasi" Arr(4, 1) = "Teknik Informatika" lv.GridLines = True lv.View = View.Details For Baris = 0 To 1 For kolom = 0 To 1 lv.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 4 For kolom = 0 To 1 CmbJurusan.Items.Add(Arr(Baris, kolom)) Next kolom Next Baris End Sub Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click Dim Arr(4) As String Arr(1) = TxtNik.Text Arr(2) = TxtNama.Text Arr(3) = CmbKelamin.Text Arr(4) = CmbJurusan.Text Dim listitem As ListViewItem listitem = New ListViewItem listitem = lv.Items.Add(Arr(1)) listitem.SubItems.Add(Arr(2)) listitem.SubItems.Add(Arr(3)) listitem.SubItems.Add(Arr(4)) TxtNik.Text = TxtNik.Text + 1 TxtNama.Text = "" CmbJurusan.Text = "" CmbKelamin.Text = "" TxtNama.Focus() End Sub End Class