Pemrograman Visual Array 1 Dimensi

 

Pengertian Array

            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 Satu Dimensi

            Suatu array yang nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan memiliki satu dimensi.

Bentuk umum:

Dim Array[indeks] As Tipe_Data

Contoh:

Dim Arr(2) As String

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	FrmArrayI Array Satu Dimensi
2	Label	Text	NIM
3	TextBox	Text Name	(dikosongkan) txtNIM
4	Label	Text	NAMA
5	TextBox	Text Name	(dikosongkan) txtNama
6	Label	Text	PRODI
7	TextBox	Text Name	(dikosongkan)
8	Button	Text Name	Tambah btnTambah
9	ListView	Text Name	(dikosongkan) ListView1

a.       Buatlah Form baru dengan nama Array Satu Dimensi.

b.      Buatlah sebuah Array Satu Dimensi yang bisa melakukan operasi perulangan dari yang diinputkan oleh user.

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

a.       Properties Name adalah:

txtNIM, txtNama, txtProdi, btnTambah, ListView1.

b.      Kode Program

Public Class Form1

    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", 155)

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

        txtNIM.Text = 1

        txtNama.Focus()

    End Sub

    Private Sub btnTambah_Click(ByVal sender As 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

End Class

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

d.      Hasil tampilan dari program.

        Hasil ketika ditambahkan:

Semoga bermanfaat ya:)