Pertemuan 10, 27 April 2015 : Array

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. 

1. Larik (Array) Satatis Satu dimensi yaitu jenis Larik dimana elemen elemnya hanya satu dimensi dan telah di tentukan jumlah elemennya. 
2. Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah elemenya bersifat Dinamis. 
3. Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi .

Tutorial :  Contoh Penggunaan Array

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Provinsi
Label2	Kota/Kabupaten
Label3	Kecamatan
ComboBox1		cmbProv
ComboBox2		cmbKota
ComboBox3		cmbKecamatan
ListBox		lstTampil
Button1	Tampil	btnTampil
Button2	Clear	btnClear
Button3	Exit	btnExit

•  Langkah kelima masukkan koding berikut

 

    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(ByVal sender As System.Object, ByVal 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  

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.