Prosedur dan Fungsi

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:
[Private|Public][Static]Sub namaprosedur (argumenargumen) 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 :
o General Procedure, procedure yang diaktifkan oleh aplikasi.
o Event Procedure, Procedure yang diaktifkan oleh system sebagai respon terhadap event.
Contoh 7.12. Contoh sub procedure.
          Pada contoh ini kita akan membuat sub procedure dengan nama CenterForm yang dapat digunakan untuk menampilkan form ketengah Layar, dimana x adalah parameter yang merupakan form yang akan dibuat ketengah layar.
Sub CenterForm(x As Form)
x.Top = (Screen.Height - x.Height) \ 2
x.Left = (Screen.Width - x.Width) \ 2
End Sub
‘memanggil sub prosedur CenterForm
Private Sub Form_Load()
Call CenterForm(Me)
End Sub
Pada contoh 7.12, sub procedure CenterForm membutuhkan argumen form. Sehingga ketika dipanggil argumen juga harus dicantumkan. Perhatikan pada baris Call CenterForm(Me). Me di sini adalah argumen dari sub procedure. Pada Visual Basic, Me merujuk pada form dimana kode program ini dibuat.

•  Function procedure

           Ada dua jenis function dalam Visual Basic, yaitu Built-in Function dan Function Procedure. Pada Visual Basic telah disediakan banyak Built-in Function yang dapat digunakan untuk berbagai tujuan seperti fungsi-fungsi untuk perhitungan matematika, manipulasi string, manipulasi tipe data dan ain-lain. Pada bab ini tidak akan dibahas detil fungsi-fungsi built-in tersebut. Namun pada lampiran, dapat dilihat beberapa fungsi built-in yang sering digunakan. Meskipun sudah tersedia sangat banyak, 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. Atau kita bisa mengatakan sebagai fungsi buatan sendiri.
Sintaks penulisan function procedure :
[Private|Public][Static]Function namaprocedure (argumen-argumen) [As type] statements End Function
Ada tiga perbedaan antara function dan procedure :
o Umumnya anda dapat memanggil suatu function dengan mengikutkan nama function sisi kanan dari statement atau ekspresi. (returnvalue = function()).
o Function memiliki type data seperti suatu variabel. Ini menentukan
type yang dari nilai yang dikembalikan.
o Nilai kembali dimasukkan ke namafunction itu sendirinya, dan suatu function dapat menjadi bagian dari suatu ekspresi yang panjang.
Perhatikan contoh fungsi berikut ini.
Contoh 7.13. Contoh Fungsi.
           Fungsi ini adalah fungsi yang bekerja untuk menampilkan nama bulan dalam bahasa Indonesia dari data tanggal yang dimasukkan. Argumen yang dibutuhkan dalam fungsi ini adalah x dan bertipe data date.
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