8. Array Pada Visual Basic .NET

Array

Larik (Array) adalah sebuah variable yang didalamnya mempunyai  anggota elemen   sejenis yang berderet dan nilai dari masing masing elemen dapat di akses dengan menunjuk indeks dari masing masing elemen .

Larik(Array ) ada beberapa jenis diantaranya adalah   :

-          Larik (Array) Satatis Satu dimensi yaitu jenis Larik dimana elemen elemennya hanya satu dimensi dan telah di tentukan jumlah elemennya.

Contoh : Siswa ( 4 ) = {ani, dian, edo , mei mei, joko}

-          Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah elemenya bersifat Dinamis.

Contoh : Siswa ()

-          Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi

Contoh : Lebar ( 2, 3 ) = {  ( 0 , 0)  (0, 1) (0, 2) (0,3) (1,0) (1,1)(1,2) (1,3) (2,0) (2,1) (2,2) (2,3) }

Untuk lebih memahami kita akan membuat sebuah aplikasi menggunakan array pada pemrograman visual basic 2008

Pertama buat sebuah project baru dengan cara memilih file – new project – new form windows application

Langkah selanjutnya buat sebuah form baru dengan nama ArrayProvinsi.vb dan desain seperti berikut ini lengkap dengan penamaan pada propertiesnya

Teks yang ada pada masing-masing listbox diatas merupakan penamaan pada properties masing-masing listbox

Kemudian dilanjutkan dengan mengisikan sintaks berikut ini :

Public Class ArrayProvinsi
    ' merupakan pendeklarasian dari masing-masing array
    Dim ArrayProvinsi() As String = {"Jawa Barat", "Jawa Tengah","Jawa Timur"}
    Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi", "Bekasi"}
    Dim ArrayKotaJateng() As String = {"Solo", "Semarang", "Kebumen"}
    Dim ArrayKotaJatim() As String = {"Surabaya", "Malang", "Batu"}
    Dim ArrayKecBdg() As String = {"Bale Endah", "Lengkong", "Geger kalong"}
    Dim ArrayKecCmh() As String = {"Cimahi Utara", "Cimahi Selatan","Cimahi Tengah"}
    Dim ArrayKecBek() As String = {"Tambun", "Cikarang", "Cibitung"}
    Dim ArrayKecSolo() As String = {"Pasar Kliwon", "Jebres","Laweyan"}
    Dim ArrayKecSmrg() As String = {"Banyumanik", "Candi sari", "Gajah mungkur"}
    Dim ArrayKecKeb() As String = {"Ds. Adikarso", "Ds. Argopani","Ds. Bandung"}
    Dim ArrayKecSrby() As String = {"Tegalsari", "Simokerto","Bubutan"}
    Dim ArrayKecMlg() As String = {"Klojen", "Blimbing", "Kedung kandang"}
    Dim ArrayKecBatu() As String = {"Batu", "Bumiaji", "Junrejo"}

    Private Sub Array2DimensiProfinsi_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'merupakan pengisian items di lstProvinsi dari ArrayProvinsi
        lstProvinsi.Items.AddRange(ArrayProvinsi)
    End Sub

    Private Sub lstProfinsi_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandleslstProvinsi.SelectedIndexChanged
        If lstProvinsi.SelectedIndex = 0 Then
            lstKota.Items.Clear()
            lstKecamatan.Items.Clear()
            lstKota.Items.AddRange(ArrayKotaJabar)
        ElseIf lstProvinsi.SelectedIndex = 1 Then
            lstKota.Items.Clear()
            lstKecamatan.Items.Clear()
            lstKota.Items.AddRange(ArrayKotaJateng)
        ElseIf lstProvinsi.SelectedIndex = 2 Then
            lstKota.Items.Clear()
            lstKecamatan.Items.Clear()
            lstKota.Items.AddRange(ArrayKotaJatim)
        End If
    End Sub

    Private Sub lstKota_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandleslstKota.SelectedIndexChanged
        If lstKota.SelectedItem = "Bandung" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecBdg)
        ElseIf lstKota.SelectedItem = "Cimahi" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecCmh)
        ElseIf lstKota.SelectedItem = "Bekasi" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecBek)
        ElseIf lstKota.SelectedItem = "Solo" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecSolo)
        ElseIf lstKota.SelectedItem = "Kebumen" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecKeb)
        ElseIf lstKota.SelectedItem = "Semarang" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecSmrg)
        ElseIf lstKota.SelectedItem = "Surabaya" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecSrby)
        ElseIf lstKota.SelectedItem = "Malang" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecMlg)
        ElseIf lstKota.SelectedItem = "Batu" Then
            lstKecamatan.Items.Clear()
            lstKecamatan.Items.AddRange(ArrayKecBatu)
        End If
    End Sub

    Private Sub lstKecamatan_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandleslstKecamatan.SelectedIndexChanged
        lstKecamatan.SelectedItem = ""
        MsgBox("Provinsi " + lstProvinsi.Text + " , kota " + lstKota.Text + " , kecamatan " + lstKecamatan.Text)
    End Sub
End Class

Terimakasih segitu dulu pembahasan materi visual basic 2010 dari saya semoga bermanfaat bila ada kesalahan mohon dimaafkan terimakasih J