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 BoxPropertiesKeterangan
Form 1Start Up PositionsCenter Screen
Label 1CaptionName
Label 2Education
Label 3Age
Label 4Address
Label 5No. Telp
Text 1Text(Kosong)
Text 2
Text 3
Text 4
Text 5
Command 1CaptionADD
Command 2TRY AGAIN
Command 3END
All Tools BoxFont Size12
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.

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

Sekian dan terimakasih

Comments