Terjebak dengan konsep "Fungsi" dalam VB? Sekiranya Ya, baca panduan ini untuk mengetahui konstruk "Fungsi" yang disebut dalam paradigma VB.
Langkah-langkah
Langkah 1. Apa itu Fungsi?
- Gunakan prosedur Fungsi apabila anda perlu mengembalikan nilai ke kod panggilan.
- Fungsi itu sendiri mempunyai jenis, dan fungsi akan mengembalikan nilai ke subrutin panggilan berdasarkan kod yang terdapat di dalamnya.
Langkah 2. Bagaimana menyatakan Fungsi?
- Anda boleh menentukan prosedur Fungsi hanya di peringkat modul. Ini bermaksud konteks deklarasi untuk fungsi mestilah kelas, struktur, modul, atau antara muka, dan tidak boleh menjadi fail sumber, ruang nama, prosedur, atau blok.
- Fungsi dinyatakan sama persis dengan subrutin, kecuali menggunakan kata kunci "Fungsi" dan bukan "Sub".
- Prosedur fungsi lalai untuk akses awam. Anda boleh menyesuaikan tahap akses mereka dengan pengubah akses.
Langkah 3. Bagaimana memanggil Fungsi?
- Anda memanggil prosedur Fungsi dengan menggunakan nama prosedur, diikuti dengan senarai argumen dalam tanda kurung, dalam ekspresi.
- Anda boleh menghilangkan tanda kurung hanya jika anda tidak memberikan argumen. Walau bagaimanapun, kod anda lebih mudah dibaca sekiranya anda selalu memasukkan tanda kurung.
- Fungsi juga dapat dipanggil menggunakan pernyataan Panggilan, dalam hal ini nilai pengembalian diabaikan.
- Untuk mengembalikan nilai, tetapkan nilai dari jenis yang betul ke nama fungsi, seolah-olah ia adalah pemboleh ubah.
Sintaks
Pengisytiharan
[accessmodifier] [Proceduremodifier] [Shared] Nama fungsi [(Of typeparamlist)] [(parameterlist)] [Sebagai returntype] [statement] [Exit Function] [statement] Fungsi Akhir
Memanggil
'Tanpa Call Function_Name ()' Dengan Call Call Function_Name ()
Contohnya
Contoh fungsi yang menambah dua nombor ditunjukkan di bawah
Fungsi Peribadi Tambah (ByVal x Sebagai Integer, ByVal y Sebagai Integer) Sebagai Integer Dim Res sebagai 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) Kotak Msg ("Jumlahnya:" & c) Akhir Sub
