Contoh Agenda Subroutine 3 : Menciptakan Event Sendiri

Seperti yang aku katakan sebelumnya, di tutorial kali ini kita akan menciptakan sebuah aktivitas dengan memakai fungsi subroutine tipe ke 3, hanya mengingatkan saja, subroutine ke tiga ini dapat kita buat sendiri, dan dapat kita gunakan kapan saja, hanya dengan memanggil nama subroutinenya saja.

Mengenai tutorial kali ini, kita akan menciptakan sebuah program, dimana kita akan menciptakan sebuah input data, dikala 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 dikala mengklik command button, maka semua form akan dalam keaddan menyerupai semula / kosong, oke jikalau begitu, berikut tutorialnya :

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

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

3. Ubahlah propertiesnya menyerupai 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 menyerupai 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, "Routeros Mikrotik"
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.