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 (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 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 lain-lain. Pada label ini tidak akan dibicarakan secara detil fungsi-fungsi built-in tersebut.

Meskipun sudah tersedia sangat banyak, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan kandang-kadang tidak memenuhi kebutuhan programer. adapun untuk keperluan tersebut kita 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:

• Umumnya, kita dapat memanggil suatu function dengan mengikutkan nama function sisi kanan dari statement atau ekspresi.
  (returnvalue = function()).
• 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.
  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

Halaman Terkait:
| Dasar-dasar visual basic | Prinsip pokok pemrograman berbasis gui | Tipe data, variabel dan konstanta pada vb | Operator pada visual basic | Struktur kontrol program pada vb |