Array Satu Dimensi VB.NET

Array adalah sekumpulan dari variabel atau nilai - nilai yang memilki tipe data dan nama yang sama dalam suatu urutan tertentu. Letak atau posisi sebuah elemen array di tentukan oleh index.

Array 1 Dimensi adalah kumpulan - kumpulan elemen yang memiliki type data yang sama dan hanya memiliki satu indeks saja. Array 1 Dimensi dapat berupa sebuah vector, contoh cara membuat sebuah array di VB.NET

Disini saya telah memberi

• 4 Buah label
• 4 Buah textbox
• 1 Button, dan
• 1 ListVIew

Pemberian nama objek masih default, dan untuk memberikan coding pada program tersebut, berikut coidngnya :

Saya memberi coding ke dalam Form

Private Sub Form2_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) = "jenkel"

        arr(1, 1) = "prodi"

        arr(2, 0) = "laki laki"

        arr(2, 1) = "perempuan"

        arr(3, 0) = "MI"

        arr(3, 1) = "TI"

        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

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

            Next kolom

        Next baris

        For baris = 3 To 3

            For kolom = 0 To 1

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

            Next kolom

        Next baris

    End Sub

Dan saya memberi coding ke Button

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

        Dim arr(3) As String

        arr(0) = txtnim.Text

        arr(1) = txtnm.Text

        arr(2) = cbjenkel.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

        txtnm.Text = ""

        cbjenkel.Text = ""

        cbprodi.Text = ""

        txtnm.Focus()

    End Sub

Silahkan di coba, semoga sukses!

 

Tweet

Postingan terkait:

Ditulis Unknown — Tuesday, 9 August 2016 — Add Comment — Visual Basic (VB.Net)