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 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 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

0 Response to "Contoh Program Subroutine 3 : Membuat Event sendiri"

Post a Comment