Contoh Program Subroutine 3 : Membuat Event sendiri

Seperti yang saya katakan sebelumnya, di tutorial kali ini kita akan membuat sebuah program dengan menggunakan fungsi subroutine tipe ke 3, hanya mengingatkan saja, subroutine ke tiga ini bisa kita buat sendiri, dan bisa kita gunakan kapan saja, hanya dengan memanggil nama subroutinenya saja.

Mengenai tutorial kali ini, kita akan membuat sebuah program, dimana kita akan membuat sebuah input data, ketika data di simpan, maka semua form akan terkunci, dan untuk membuka kembali form tersebut kita harus mengklik command button yang bersangkutan, namun tak hanya itu ketika mengklik command button, maka semua form akan dalam keaddan seperti semula / kosong, baiklah kalau begitu, berikut tutorialnya :

1. Pertama, Buka VB dengan program standar Exe, lalu 

2. Tambahkan 3 combo box, 5 label array, 5 text box array, dan 1 list box

3. Ubahlah propertiesnya seperti ini :

Tool Box	Properties	Keterangan
Form 1	Start Up Positions	Center Screen
Label 1	Caption	Name
Label 2		Education
Label 3		Age
Label 4		Address
Label 5		No. Telp
Text 1	Text	(Kosong)
Text 2
Text 3
Text 4
Text 5
Command 1	Caption	ADD
Command 2		TRY AGAIN
Command 3		END
All Tools Box	Font Size	12

Sehingga akan seperti ini :

4. Jika sudah tuliskan script berikut :

Sub key() 'Subroutine tipe ketiga dengan nama key
For b = 0 To 4
Text1(b).Enabled = False
Next b
Command1.Enabled = False
Command2.Enabled = True
End Sub

Sub default() 'Subroutine tipe ketiga dengan nama default
For a = 0 To 4
Text1(a) = ""
Text1(a).Enabled = True
Next a
List1.clear
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command1_Click()
If Text1(0).Text = "" Or Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Then
MsgBox "Please, Complete the Form !", vbInformation, "Blues Pedia"
Else
List1.AddItem "Identify"
For c = 0 To 4
List1.AddItem Label1(c) & " = " & Text1(c)
Call key 'Memanggil / mengaktifkan subroutine key
Next c
End If
End Sub

Private Sub Command2_Click()
Call default 'Memanggil / mengaktifkan subroutine default
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Call default 'Memanggil / mengaktifkan subroutine default
End Sub

5. Jika sudah, silahkan jalankan program.

Bagaimana tutorialnya ?

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

Sekian dan terimakasih