Pertemuan 10, 11 May 2015 : Membuat Aplikasi Array Sederhana Menggunakan Microsoft Visual Basic 2010 Express

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar



Beberapa komponen toolbox yang dibutuhkan, antara lain :

-4 label
label 1 :
Name = lblNama
Text = Nama

Label 2 :
Name = lblProvinsi
Text = Provinsi

Label 3 :
Name = lblKotKab
Text = Kota/Kabupaten

Label 4 :
Name = lblKecamatan
Text = Kecamatan

-TextBox

Name = textNama

-3 ComboBox
ComboBox1 :

Name = cmbProvinsi
Text = Pilih Provinsi

ComboBox2 :

Name = cmbKotKab
Text = Pilih kota/Kabupaten

ComboBox3 :

Name = cmbKecamatan
Text = Pilih Kecamatan

-3 Button

Button1

Name = btnTampil
Text = TAMPIL

Button2

Name = btnClear
Text = CLEAR

Button3

Name = btnExit
Text = EXIT

-ListBox1

Name = ListTampil

3. Isikan script dibawah ini:

Public Class APLIKASI_ARRAY

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 = {"Andir", "Antapani","Babakanciparay", "Arcamanik", "Astana Anyar", "Babakan Ciparay", "Gunung Kidul", "Bandung Kulon", "Bandung Wetan", "Batununggal", "Bojongloa Kaler","Bojongloa Kidul", "Buahbatu / Margacinta", "Cibeunying Kaler", "Cibeunying Kidul", "Cibiru", "Cicendo", "Cidadap", "Cinambo", "Coblong", "Gedebage","Kiaracondong", "Lengkong", "Mandala Jati", "Panyileukan", "Rancasari","Regol", "Sukajadi", "Sumur Bandung", "Ujung Berung"}
Dim ArrayKecCimahi() As String = {"Cimahi Selatan", "Cimahi Tengah","Cimahi Utara"}
Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol", "Citangkil","Ciwadan", "Gerogol", "Jombang", "Pulomerak", "Purwakarta"}
Dim ArrayKecSerang() As String = {"Curug", "Kasemen", "Cipocok Jaya","Taktakan", "Walantaka"}
Dim ArrayKecBrebes() As String = {"Banjarharjo", "Losari", "Salem","Bantarkawung", "Bumiayu", "Jatibarang", "Kersana", "Ketanggungan", " Larangan", " Larangan", "Paguyangan", "Salem", "Sirampog", "Songgom","Tanjung", "Tonjong", "Wanasari"}
Dim ArrayKecSemarang() As String = {"Banyumanik", "Candisari", "Mijen","Gajahmungkur", "Gayamsari", "Genuk", "Gunungpati", "Ngaliyan","Pedurungan", "Semarang Barat", "Semarang Selatan", "Semarang Tengah","Semarang Timur", "Semarang Utara", "Tembalang", "Tugu"} 

4. Klik 2x pada form dan isikan script dibawah ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

cmbProvinsi.Items.AddRange(ArrayProv)

End Sub


5. Klik 2x pada comboBox “Pilih Provinsi” dan isikan script dibawah ini :

Private Sub cmbProvinsi_SelectedIndexChanged_1(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlescmbProvinsi.SelectedIndexChanged

If cmbProvinsi.SelectedIndex = 0 Then

cmbKotKab.Items.Clear()

cmbKotKab.Items.AddRange(ArrayKotaJabar)

ElseIf cmbProvinsi.SelectedIndex = 1 Then

cmbKotKab.Items.Clear()

cmbKotKab.Items.AddRange(ArrayKotaBanten)

ElseIf cmbProvinsi.SelectedIndex = 2 Then

cmbKotKab.Items.Clear()

cmbKotKab.Items.AddRange(ArrayKotaJateng)

End If

End Sub

6. Klik 2x pada comboBox “Pilih Kabupaten/Kota” dan isikan script dibawah ini :

Private Sub cmbKotKab_SelectedIndexChanged_1(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles cmbKotKab.SelectedIndexChanged

If cmbKotKab.SelectedItem = "Bandung" Then

cmbKecamatan.Items.Clear()

cmbKecamatan.Items.AddRange(ArrayKecBandung)

ElseIf cmbKotKab.SelectedItem = "Cimahi" Then

cmbKecamatan.Items.Clear()

cmbKecamatan.Items.AddRange(ArrayKecCimahi)

ElseIf cmbKotKab.SelectedItem = "Cilegon" Then

cmbKecamatan.Items.Clear()

cmbKecamatan.Items.AddRange(ArrayKecCilegon)

ElseIf cmbKotKab.SelectedItem = "Serang" Then

cmbKecamatan.Items.Clear()

cmbKecamatan.Items.AddRange(ArrayKecSerang)

ElseIf cmbKotKab.SelectedItem = "Brebes" Then

cmbKecamatan.Items.Clear()

cmbKecamatan.Items.AddRange(ArrayKecBrebes)

ElseIf cmbKotKab.SelectedItem = "Semarang" Then

cmbKecamatan.Items.Clear()

cmbKecamatan.Items.AddRange(ArrayKecSemarang)

End If

End Sub

7. Klik 2x pada button “TAMPIL”, isikan script dibawah ini :

Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnTampil.Click

If txtNamaLengkap.Text = "" Then

MsgBox("belum memasukan Nama Lengkap")

ElseIf cmbProvinsi.SelectedItem = "" Then

MsgBox("belum pilih Provinsi")

ElseIf cmbKotKab.SelectedItem = "" Then

MsgBox("belum pilih Kota")

ElseIf cmbKecamatan.SelectedItem = "" Then

MsgBox("belum pilih Kecamatan")

Else

ListTampil.Items.Clear()

ListTampil.Items.Add("Nama Lengkap = " + txtNamaLengkap.Text)

ListTampil.Items.Add("Provinsi = " + cmbProvinsi.SelectedItem)

ListTampil.Items.Add("Kota = " + cmbKotKab.SelectedItem)

ListTampil.Items.Add("Kecamatan = " + cmbKecamatan.SelectedItem)

End If

End Sub

8. Klik 2x pada button “CLEAR”, isikan script dibawah ini :

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnClear.Click

txtNamaLengkap.Text = ""

cmbProvinsi.Text = ""

cmbKotKab.Text = ""

cmbKecamatan.Text = ""

ListTampil.Items.Clear()

End Sub

9. Klik 2x pada button “EXIT”, isikan script dibawah ini :

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

Me.Close()

End Sub

10. Run Program diatas:


11. Isikan nama dan alamat yang diinginkan:



12. Klik Button Tampil:

13.            Klik Button Clear untuk menghapus

14.            Klik Button Exit untuk keluar dari program

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J