Pertemuan 13: 18 Mei 2015

Membuat Aplikasi Array
Array adalah konstruksi pemrograman yang menyimpan data dan memungkinkan kita untuk mengaksesnya dengan indeks numerik atau subscript. Array membantu kita membuat kode lebih pendek dan sederhana dalam banyak situasi. Array dideklarasikan menggunakan Dim, ReDim, Static, Private. Array dapat memiliki satu dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32 dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic. 

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

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

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

Pada kesempatan ini, saya akan membuat sebuah aplikasi menggunakan array yaitu tentang Kota, Provinsi, dan Kabupaten. Pertama, seperti biasa buka VB NET 2010. Kemudian klik  File dan New project dan isikan judul projectnya.

Setelah itu akan ada form kosong seperti berikut.

Buat desain form seperti berikut.

 

Dan berikut source codenya.

Public Class Form1
    Dim ArrayProv() As String = {"Jawa Barat", "Banten", "Jawa Tengah"}
    Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi"}
    Dim ArrayKotaBanten() As String = {"Cilegon", "Serang"}
    Dim ArrayKotaJateng() As String = {"Brebes", "Semarang"}
    Dim ArrayKecBandung() As String = {"Antapani", "Babakanciparay"}
    Dim ArrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Tengah"}
    Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol"}
    Dim ArrayKecSerang() As String = {"Curug", "Kasemen"}
    Dim ArrayKecBrebes() As String = {"Losari", "Salem"}
    Dim ArrayKecSemarang() As String = {"Banyumanik", "Mijen"}


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cmbProv.Items.AddRange(ArrayProv)
    End Sub

    Private Sub cmbProv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProv.SelectedIndexChanged
        If cmbProv.SelectedIndex = 0 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(ArrayKotaJabar)
        ElseIf cmbProv.SelectedIndex = 1 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(ArrayKotaBanten)
        ElseIf cmbProv.SelectedIndex = 2 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(ArrayKotaJateng)
        End If
    End Sub

    Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged
        If cmbKota.SelectedItem = "Bandung" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecBandung)
        ElseIf cmbKota.SelectedItem = "Cimahi" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecCimahi)
        ElseIf cmbKota.SelectedItem = "Cilegon" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecCilegon)
        ElseIf cmbKota.SelectedItem = "Serang" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecSerang)
        ElseIf cmbKota.SelectedItem = "Brebes" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecBrebes)
        ElseIf cmbKota.SelectedItem = "Semarang" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecSemarang)
        End If
    End Sub

    Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click
        If cmbProv.SelectedItem = "" Then
            MsgBox("belum pilih Provinsi")
        ElseIf cmbKota.SelectedItem = "" Then
            MsgBox("belum pilih Kota")
        ElseIf cmbKecamatan.SelectedItem = "" Then
            MsgBox("belum pilih Kecamatan")
        Else
            lstTampil.Items.Clear()
            lstTampil.Items.Add("Provinsi yang dipilih " + cmbProv.SelectedItem)
            lstTampil.Items.Add("Kota yang dipilih " + cmbKota.SelectedItem)
            lstTampil.Items.Add("Kecamatan yang dipilih " + cmbKecamatan.SelectedItem)
        End If
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lstTampil.Items.Clear()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()

    End Sub
End Class

Hasilnya adalah: 

 

Cukup mudah namun source codenya agak panjang. Sekian dan terima kasih.