Bagikan melalui

Cara: Membuat Prosedur (Visual Basic)

Anda menyertakan prosedur antara pernyataan deklarasi awal (Sub atau Function) dan pernyataan deklarasi akhir (End Sub atau End Function). Semua kode prosedur terletak di antara pernyataan-pernyataan ini.

Prosedur tidak boleh berisi prosedur lain, sehingga pernyataan awal dan akhir harus berada di luar prosedur lain.

Jika Anda memiliki kode yang melakukan tugas yang sama di tempat yang berbeda, Anda dapat menulis tugas sekali sebagai prosedur lalu memanggilnya dari tempat yang berbeda dalam kode Anda.

Untuk membuat prosedur yang tidak mengembalikan nilai

  1. Di luar prosedur lain, gunakan Sub pernyataan, diikuti oleh End Sub pernyataan.

  2. Pada pernyataan Sub, ikuti kata kunci Sub dengan nama prosedur, lalu daftar parameter dalam tanda kurung.

  3. Tempatkan pernyataan kode prosedur antara Sub dan End Sub pernyataan.

Untuk membuat prosedur yang mengembalikan nilai

  1. Di luar prosedur lain, gunakan Function pernyataan, diikuti oleh End Function pernyataan.

  2. Dalam pernyataan Function, ikuti kata kunci Function dengan nama prosedur, setelah itu daftar parameter dalam tanda kurung, dan kemudian klausa As yang menentukan jenis data dari nilai yang dikembalikan.

  3. Tempatkan pernyataan kode prosedur antara Function dan End Function pernyataan.

  4. Return Gunakan pernyataan untuk mengembalikan nilai ke kode panggilan.

Untuk menyambungkan prosedur baru Anda dengan blok kode lama yang berulang

  1. Pastikan Anda menentukan prosedur baru di tempat di mana kode lama memiliki akses ke prosedur tersebut.

  2. Di blok kode lama Anda yang berulang, ganti pernyataan yang melakukan tugas berulang dengan satu pernyataan yang memanggil prosedur Sub atau Function.

  3. Jika prosedur Anda adalah Function yang mengembalikan nilai, pastikan bahwa pernyataan panggilan Anda melakukan tindakan dengan nilai yang dikembalikan, seperti menyimpannya dalam variabel, atau nilai akan hilang.

Contoh

Prosedur berikut Function menghitung sisi terpanjang, atau hipotenis, dari segitiga kanan, mengingat nilai untuk dua sisi lainnya:

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

Lihat juga