Contoh program Subroutine 2

Di tutorial sebelumya kita telah membahas mengenai Subroutine dan contoh penggunaanya untuk subroutine pertama, kali kita akan membuat program dengan menggunakan fungsi dari subroutine ke dua, sekilas mengenai program ini, kita akan mengelompokan sebuah data dengan no index, adapun datanya terdiri dari Nama, alamat, dan no telp, ketika mengklik Command alamat, maka di text1 akan muncul alamat dari data yang di minta, begitupun ketika kita mengklik command No telp, baiklah berikut tutorialnya :

1. Pertama, seperti biasa Jalankan VB dengan program standar Exe, lalu 

2. Tambahkan 1 combo box, 2 label, 2 command button dan 1 text box, dan

3. Ubahlah propertiesnya seperti ini :

Tool Box	Properties	Keterangan
Form 1	Start Up Positions	Center Screen
Label 1	Caption	Name
Label 2	Caption	-
	Font Size	14
Command 1	Caption	ADDRESS
Command 2		No. Telp
Combo 1	Text	(Kosong)
All Tools Box	Font Size	12

Sehingga akan seperti ini :

4. Jika sudah tuliskan script berikut :

Dim nama(4), alamat(4), hp(4) As String

Private Sub Command1_Click()
Tampilkan 1
End Sub

Private Sub Command2_Click()
Tampilkan 2
End Sub

Private Sub Form_Load()
Combo1.AddItem "John"
Combo1.AddItem "Kimberly"
Combo1.AddItem "Ashley"
Combo1.AddItem "James"

'Ketika form dipanggil, data didefinisikan
nama(1) = "John"
alamat(1) = "Jln. Sumatra Blok A 1 NO. 1"
hp(1) = "0813 2222 4444"

nama(2) = "Kimberly"
alamat(2) = "Jln. Jawa Blok B 1 NO. 2"
hp(2) = "0815 6666 7777"

nama(3) = "Ashley"
alamat(3) = "Jln. Kalimantan Blok C 1 NO. 3"
hp(3) = "0878 8888 9999"

nama(4) = "James"
alamat(4) = "Jln. Bali Blok D 1 NO. 4"
hp(4) = "0838 6666 1111"
End Sub

'Subroutine yang dibuat sendiri
Private Sub Tampilkan(kondisi As Integer)
indeks = Combo1.ListIndex + 1
If kondisi = 1 Then Label2 = alamat(indeks)
If kondisi = 2 Then Label2 = hp(indeks)
End Sub

5. Jika sudah, silahkan jalankan program.

Pilih salah satu nama yang ada di combo box, lalu klik command 1 (ADDRESS), maka caption label 2 akan berubah menjadi alamat dari nama yang di pilih, begitu juga dengan No telp, contohnya disini saya memilih "Kimberly", maka ketika saya klik "ADDRESS" maka caption label 2 akan menjadi alamat dari kimberly "Jln. Jawa Blok B 1 NO. 2", dan ketika di klik "No Telp", maka caption label 2 akan menjadi no dari kimberly "0815 6666 7777"

Bagaimana mudah bukan ?

Itulah tutorial mengenai penggunaan subroutine untuk tipe ke 2, untuk tipe ke 3, akan saya bahas di tutorial selanjutnya

Sekian dan terimakasih