Visual Basic 6.0 For Beginners Febryan Hari Purwanto
[email protected]
Chapter 8 Procedure Procedure dikategorikan sebagai sub algoritma atau sub program yang berisi perintah‐perintah untuk melakukan tugas tertentu. Procedure efektif digunakan ketika terdapat lebih dari satu kali perintah yang sama dalam suatu program. Dengan menggunakan procedure kita tidak perlu berulangkali membuat kode yang sama, kita hanya perlu membuat satu procedure dan menuliskan sekali saja perintah tersebut di dalam procedure tadi. Dengan penggunaan procedure ini kita hanya perlu memanggil procedure untuk menjalankan perintah di beberapa tempat yang berbeda. Selain itu, procedure akan memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan cukup dilakukan pada satu bagian saja. Pada Visual Basic 6.0 ada 4 jenis procedure yaitu : 1. Procedure Sub Procedure ini dipanggil berdasarkan namanya dari dalam event procedure atau procedure lain, procedure ini tidak mengembalikan nilai yang berhubungan dengn nama Sub tertentu. Biasanya digunakan untuk memproses input, menampilkan output atau mengatur property. Sintaks Procedure Sub : [Private|Public] Sub NamaSub ( [Argumen] ) ….. IsiProcedure ….. End Sub Procedure Sub dipanggil dengan pernyataan : Call NamaSub ( [Argumen] )
Keterangan : [Private|Public] NamaSub [Argumen] IsiProcedure Call
= Memilih ruang lingkup Procedure = Nama Procedure ( Nama Procedure harus unik ) = Optional ( berupa nilai dan tipe data yang dipakai Procedure ) = Perintah yang dituliskan dalam Procedure = Perintah memanggil Procedure
2. Procedure Function Procedure Function juga dipanggil berdasarkan namanya dari dalam event procedure atau procedure lain, bedanya dengan Procedure Sub yaitu karena Procedure Function bisa menerima argument dan selalu mengembalikan suatu nilai dalam fungsinya. Biasanya digunakan untuk perhitungan. Sintaks Procedure Function : [Private|Public] Function NamaFunction ( [Argumen] ) As TipeData ….. IsiProcedure ….. End Function Procedure Function dipanggil langsung dengan menyisipkannya di dalam kode program yang memangglnya. Keterangan : [Private|Public] = Memilih ruang lingkup Procedure NamaFunction = Nama Procedure ( Nama Procedure harus unik ) [Argumen] = Optional ( berupa nilai dan tipe data yang dipakai Procedure ) TipeData = Tipe data nilai yang akan dikembalikan oleh Procedure ( Return Value ) IsiProcedure = Perintah yang dituliskan dalam Procedure 3. Procedure Event Procedure Event yaitu procedure yang digunakan untuk suatu event dari sebuah objek. Procedur Event digunakan dalam ClassModule. 4. Procedure Property Procedure Property juga digunakan dalam ClassModule seperti Procedure Event, procedure ini digunakan untuk membuat dan memanipulasi property buatan dalam program.
Pada bab ini kita hanya membahas tentang Procedure Sub dan Proceduren Function saja, untuk Prcedure Event dan Procedure Property akan dibahas pada bab selanjutnya. Sekarang marilah kita mencoba memahami lebih dalam mengenai Procedure dengan cara membuat sebuah program yang memanfaatkan penggunaan Procedure dengan menggunakan Visual Basic 6.0. langkah langkahnya adalah sebagai berikut : Buatlah project baru pada Visual Basic 6.0 kemudian pilih Standard.exe dan klik Open sehingga akan muncul sebuah form baru pada area kerja Visual Basic 6.0. Aturlah tampilan program pada form sehingga menjadi seperti gambar di bawah ini :
Aturlah properties dari masing‐masing object sebagai berikut : Object Property Value Form1 Name frmProcedure Caption Test Procedure Command1 Name cmdAktif Caption Aktifkan Command2 Name cmdJumlah Caption Jumlahkan Text1 Name txtAngka1 Text Kosongkan Text2 Name txtAngka2 Text Kosongkan Label1 Name lblHasil Caption Kosongkan Label2 Caption Angka Pertama Label3 Caption Angka Kedua Label4 Caption Hasil
Kemudian tuliskan kode program berikut ini pada kode editor Visual Basic 6.0. 'Prosedure Sub untuk Mengaktifkan Private Sub Aktifkan(teks As String, warna As ColorConstants) txtAngka1.Enabled = True txtAngka2.Enabled = True lblHasil.Caption = teks lblHasil.BackColor = warna cmdJumlah.Enabled = True cmdAktif.Enabled = False End Sub 'Prosedure Sub untuk Menonaktifkan Private Sub NonAktifkan(teks As String, warna As ColorConstants) txtAngka1.Enabled = False txtAngka2.Enabled = False lblHasil.Caption = teks lblHasil.BackColor = warna cmdJumlah.Enabled = False cmdAktif.Enabled = True End Sub 'Procedure Function untuk menjumlahkan dua buah angka Private Function JumlahAngka() As String Dim angka1 As String, angka2 As String Dim hasil As Single angka1 = txtAngka1.Text angka2 = txtAngka2.Text If angka1 <> "" And angka2 <> "" Then hasil = CSng(angka1) + CSng(angka2) JumlahAngka = CStr(hasil) End If End Function
'Memanggil Procedure Sub Aktifkan ketika tombol Aktif di klik Private Sub cmdAktif_Click() Call Aktifkan("Masukkan angka ke1 dan ke2", vbWhite) End Sub 'Ketika tombol Jumlahkan di klik 'Memanggil Procedure Sub NonAktifkan 'Memanggil Procedure Function JumlahAngka Private Sub cmdJumlah_Click() Call NonAktifkan("", vbYellow) lblHasil.Caption = JumlahAngka() End Sub 'Memanggil Procedure Sub NonAktifkan ketika program prtama kali di jalankan Private Sub Form_Load() Call NonAktifkan("Aktifkan TextBox && Tombol Jumlahkan", vbYellow) End Sub Langkah terakhir, jalankan program tersebut dengan memilih menu Run Æ Start atau mengklik tombol Start pada toolbar. Tampilan saat program pertama kali di jalankan :
Klik tombol Aktifkan sehingga TextBox dan tombol Jumlahkan menjadi aktif, kemudian masukkan sembarang angka pada TextBox ke 1 dan ke 2 seperti ditunjukkan pada gambar berikut :
Kemudian klik tombol Jumlahkan, maka akan ditampilkan hasilnya sebagai berikut :
Klik tombol Aktifkan untuk mengulangi proses seperti proses sebelumnya.
