Contoh Agenda Subroutine 2

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

1. Pertama, menyerupai biasa Jalankan VB dengan kegiatan standar Exe, lalu 

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

3. Ubahlah propertiesnya menyerupai 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 menyerupai 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 dibentuk 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, kemudian klik command 1 (ADDRESS), maka caption label 2 akan menjelma alamat dari nama yang di pilih, begitu juga dengan No telp, misalnya disini aku menentukan "Kimberly", maka saat aku klik "ADDRESS" maka caption label 2 akan menjadi alamat dari kimberly "Jln. Jawa Blok B 1 NO. 2", dan saat di klik "No Telp", maka caption label 2 akan menjadi no dari kimberly "0815 6666 7777"

Bagaimana gampang bukan ?

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

Sekian dan terimakasih