Terjebak dengan konsep "Fungsi" di VB? Jika Ya, baca panduan ini untuk mempelajari apa yang disebut konstruksi "Fungsi" dalam paradigma VB.
Langkah
Langkah 1. Apa itu Fungsi?
- Gunakan prosedur Fungsi saat Anda perlu mengembalikan nilai ke kode panggilan.
- Fungsi itu sendiri memiliki tipe, dan fungsi tersebut akan mengembalikan nilai ke subrutin pemanggil berdasarkan kode yang dikandungnya.
Langkah 2. Bagaimana cara mendeklarasikan Fungsi ?
- Anda dapat mendefinisikan prosedur Fungsi hanya pada tingkat modul. Ini berarti konteks deklarasi untuk suatu fungsi harus berupa kelas, struktur, modul, atau antarmuka, dan tidak boleh berupa file sumber, namespace, prosedur, atau blok.
- Sebuah fungsi dideklarasikan dengan cara yang sama persis dengan subrutin, kecuali menggunakan kata kunci "Function" dan bukan "Sub".
- Prosedur fungsi default untuk akses publik. Anda dapat menyesuaikan tingkat akses mereka dengan pengubah akses.
Langkah 3. Bagaimana cara memanggil Fungsi ?
- Anda memanggil prosedur Fungsi dengan menggunakan nama prosedur, diikuti dengan daftar argumen dalam tanda kurung, dalam ekspresi.
- Anda dapat menghilangkan tanda kurung hanya jika Anda tidak memberikan argumen apa pun. Namun, kode Anda lebih mudah dibaca jika Anda selalu menyertakan tanda kurung.
- Sebuah fungsi juga dapat dipanggil menggunakan pernyataan Panggil, dalam hal ini nilai kembalian diabaikan.
- Untuk mengembalikan nilai, tetapkan nilai dengan tipe yang tepat ke nama fungsi, seolah-olah itu adalah variabel.
Sintaksis
Pernyataan
[accessmodifier] [proceduremodifier] [Shared] Nama fungsi [(Dari typeparamlist)] [(parameterlist)] [Sebagai returntype] [statement] [Exit Function] [statement] End Function
Panggilan
'Tanpa Call Function_Name() 'Dengan Call Call Function_Name()
Contoh
Contoh fungsi yang menambahkan dua angka ditunjukkan di bawah ini
Private Function Add(ByVal x As Integer, ByVal y As Integer) As Integer Dim Res as integer Res = x + y Add = Res End Function Private Sub Form_Load() Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Tambah(a, b) MsgBox("Jumlahnya: " & c) Akhir Sub
