ARRAY PADA VB.NET - MODUL_9

ARRAY - MODUL_9

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 refresensi objek dalam jumlah banyak dan terindeks. Lebih jelasnya array berguna untuk memudahkan mendeklarasikan variable.
contoh sederhana :
        Dim nama1 As String
        Dim nama2 As string
        Dim nama3 As String
        Dim nama4 As String
Pendeklarasian diatas dilakukan secara berulang-ulang dengan tipe data sama string. Dengan menggunakan array penulisan variable akan lebih efisien.

  

Contoh :

1 2 3 4 5

Dim nama() As String         nama(0) = "nama1"         nama(1) = "nama2"         nama(2) = "nama3"         nama(3) = "nama4"

syarat penulisan di atas harus sama type datanya, contoh di atas adalah tipe data string.

Array juga dapat di bagi kebeberapa jenis array:

1. 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

Arr(0) = TxtNim.Text

Arr(1) = TxtNama.Text

Arr(2) = TxtProdi.Text

LATIHAN

 Desain Awal

Ubah atau Atur Name/Teks Pada Parameter Properties

Object	Properties	Perubahan
Form1	Name Text	Form1 Array SatuDimensi
Label1	Text	NIM
Label2	Text	NAMA
Label3	Text	HOBBY
TexBox1	Name	TxtNim
TexBox2	Name	TxtNama
TexBox3	Name	TxtHobby
ListView1	Name	ListView1
Button1	Name Text	BtnTambah Tambah

 Masukkan koding

• Double Klick Form Load

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", 115)
        ListView1.Columns.Add("HOBBY", 110)
        TxtNim.Text = 1
        TxtNama.Focus()
    End Sub

• Double Klick Button Tambah

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) = TxtHobby.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 = ""
        TxtHobby.Text = ""
        TxtNama.Focus()
    End Sub
End Class

JalankanaplikasidenganmenekantombolF5 (di keyboard), ataumelalui icon Start Debugging di toolbar, ataumelalui menu Debug > Start Debuging.

2. Array Multi Dimensi

 

Suatu array yang fungsinya hampir sama dengan array satu dimensi hanya saja pada array  multi dimensi ini mewakili nilai table yang terdiri dari informasi yang diatur dalam baris dan kolom. Untuk mendefenisikan elemen table tertentu, kita harus menentukan dua indeks, pertama mengidentifikasi elemen baris dan yang mengidentifikasi elemen kolom.Array multi dimensi memiliki lebih dari dua dimensi.

Bentuk Umum :

Dim Array[indeks,Indeks] As Tipe_Data

Dim Array[indeks,indeks,indeks] As Tipe_Data

 

Contoh :

        Dim Arr(3, 1) As String

        Arr(0, 0) = "NIM"

        Arr(0, 1) = "NAMA"

        Arr(1, 0) = "JENIS KELAMIN"

        Arr(1, 1) = "HOBBY"

        Arr(2, 0) = "Laki-laki"

        Arr(2, 1) = "Perempuan"

        Arr(3, 0) = "Tenis Meja"

        Arr(3, 1) = "Sepak Bola"

 LATIHAN

 Desain Awal

 Ubah atau Atur Name/Teks Pada Parameter Properties

Object	Properties	Perubahan
Form1	Name Text Bold	Form1 Array Multi Dimensi True
Label1	Text	NIM
Label2	Text	NAMA
Label3	Text	JENIS KELAMIN
Label4	Text	HOBBY
TexBox1	Name	TxtNIM
TexBox2	Name	TxtNama
Combo1	Name	CmbKelamin
Combo2	Name	CmbHobby
ListView1	Name BackColor	ListView1 Gold
Button1	Name Text	BtnProses PROSES

  Masukkan/Atur koding

• Double Click Form Load

Public Class Form1

    Private Sub Form1_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) = "JENIS KELAMIN"
        Arr(1, 1) = "HOBBY"
        Arr(2, 0) = "Laki-laki"
        Arr(2, 1) = "Perempuan"
        Arr(3, 0) = "Sepak Bola"
        Arr(3, 1) = "Badminton"

        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
                CmbKelamin.Items.Add(Arr(Baris, Kolom))
            Next Kolom
        Next Baris

        For Baris = 3 To 3
            For Kolom = 0 To 1
                CmbHobby.Items.Add(Arr(Baris, Kolom))
            Next Kolom
        Next Baris

    End Sub

•  Double Click Button1/tombol PROSES

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim Arr(3) As String
        Arr(0) = TxtNim.Text
        Arr(1) = TxtNama.Text
        Arr(2) = CmbKelamin.Text
        Arr(3) = CmbHobby.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 = ""
        CmbKelamin.Text = ""
        CmbHobby.Text = ""
        TxtNama.Focus()

    End Sub
End Class

 JalankanaplikasidenganmenekantombolF5 (di keyboard), ataumelalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.