Mengenal Procedure pada Visual Basic

Procedure digunakan untuk memadatkan tugas-tugas berulang ataupun proses yang digunakan bersama, seperti perhitungan yang sering dilakukan, text dan manipulasi kontrol, serta operasi database.

Secara umum ada dua keuntungan dengan pemakaian procedure dalam program :

1. Procedure memungkinkan anda untuk memecahkan program anda pada unit logika yang lebih kecil, sehingga anda dapat dengan mudah melakukan proses debug dari pada jika keseluruhan program tanpa menggunakan procedure.
2. Procedure yang digunakan dalam suatu program dapat bertindak sebagai suatu blok yang dibangun untuk program lain dengan sedikit perubahan atau tanpa perubahan sama sekali.

Ada beberapa jenis procedure yang digunakan dalam Visual Basic

• Sub procedure yang tidak menggembalikan nilai

• Function procedure yang mengembalikan nilai

• Property procedure yang dapat mengembalikan nilai dan diisi nilai yang mengacu pada suatu objek.

Sub Procedure

Syntax penulisan Sub procedure:

[PrivatelPublic][Static]Sub namaprosedur (argumen-argumen) pernyataan pernyataan

End Sub

Setiap kali procedure dipanggil, maka pernyataan-pernyataan yang berada di antara Sub dan End Sub akan dijalankan.

Argumen pada procedure adalah nilai yang akan dilewatkan saat pemanggilan procedure.

Di Visual Basic Sub Procedure dapat dibagi atas dua yaitu :

• General Procedure

procedure yang diaktifkan oleh aplikasi

• Event Procedure

Procedure yang diaktifkan oleh system sebagai respon terhadap event.

Contoh, sub Tengah yang dapat digunakan untuk menampilkan form ketengah Layar, dimana x adalah parameter yang merupakan form yang akan dibuat ketengah layar.

Sub Tengah (x As Form)

x.Top = (Screen.Height x.Height) \ 2

x.Left = (Screen.Width x.Width) \ 2

End Sub

Private Sub Form Load()

Call Tengah(Me)

End Sub

Function Procedure

Pada Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, dan Chr, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan kandang-kadang tidak memenuhi kebutuhan programer, untuk keperluan tersebut anda dapat menciptakan fungsi-fungsi sendiri yang dikenal dengan Function procedure.

Adapun syntax penulisan function procedure :

[PrivatelPublic] [Static]Function namaprocedure (argumen-argumen) [As type] statements

End Function

Ada tiga perbedaan antara function dan procedure :

• Umumnya anda dapat memanggil suatu function dengan mengikutkan nama

function sisi kanan dari statement atau ekspresi. (returnvalue = functionO).

• Function memiliki type data seperti suatu variabel. Ini menentukan type yang dari

nilai yang dikembalikan.

• Nilai kembali dimasukkan ke namafunction itu sendirinya, dan suatu function dapat menjadi bagian dari suatu ekspresi yang panjang.

Contoh Fungsi ciptaan untuk mengembalikan nama bulan dari suatu tanggal dalam bahasa Indonesia.

Function Bulan(x As Date) Dim sRet As String

Select Case Month(x)

Case 1: sRet = "Januari"

Case 2: sRet = "Februari"

Case 3: sRet = "Maret"

Case 4: sRet = "April"

Case 5: sRet = "Mei"

Case 6: sRet = "Juni"

Case 7: sRet = "Juli"

Case 8: sRet = "Agustus"

Case 9: sRet = "September"

Case 10: sRet = "Oktober"

Case 11: sRet = "Nopember"

Case 12: sRet = "Desember"

Case Else

sRet = "tidak sah"

End Select

Bulan = sRet

End Function