CONTOH PENGGUNAAN ARRAY SATU DIMENSI PADA VB.NET 2008

1. Buat project baru.
2. Desain tampilan form seperti pada gambar di bawah ini.

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Array Satu Dimensi
Label1	Text	NIM
Label2	Text	Nama
Label3	Text	Prodi
TexBox1	Name	TxtNIM
TexBox2	Name	TxtNama
TexBox3	Name	TxtProdi
ListView1	Name	ListView1
Button1	Name Text	BtnTambah Tambah

4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListView1.GridLines = True

        ListView1.View = View.Details

        ListView1.Columns.Add("NIM")

        ListView1.Columns.Add("NAMA", 115)

        ListView1.Columns.Add("PRODI", 110)

        TxtNim.Text = 1

        TxtNama.Focus()

End Sub

5. Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :

Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click

        Dim Arr(2) As String

        Arr(0) = TxtNim.Text

        Arr(1) = TxtNama.Text

        Arr(2) = TxtProdi.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        listitem = ListView1.Items.Add(Arr(0))

        listitem.SubItems.Add(Arr(1))

        listitem.SubItems.Add(Arr(2))

        TxtNim.Text = TxtNim.Text + 1

        TxtNama.Text = ""

        TxtProdi.Text = ""

        TxtNama.Focus()

End Sub

6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di
    toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan project anda.

Hasilnya dapat dilihat seperti gambar di bawah ini :

Untuk mendownload projectnya klik disini