VB.NET Cara menggunakan function, procedure dan rekursif

Kita menggunakan prosedur dan fungsi untuk membuat program yang modular. Pernyataan dasar Visual basic dikelompokkan dalam blok tertutup oleh Sub-end sub, dan function-end function. Perbedaan antara function dan procedure adalah bahwa functionmengembalikan nilai-nilai, procedure tidak mengembalikan nilai. Prosedur dan fungsi merupakan bagian dari kode di program yang lebih besar. Mereka melakukan tugas tertentu.

Keuntungan menggunakan procedure dan function adalah:

1.       Mengurangi duplikasi kode program

2.       Mengatasi masalah yang kompleks menjadi potongan-potongan yang lebih sederhana

3.       Meningkatkan kejelasan kode

4.       Kode yang mudah dibaca

5.       Informasi kode bersembunyi

6.       Dapat dipakai berulang kali

PROCEDURE

Prosedur adalah sebuah blok dari Visual Basic yang dinyatakan dalam Sub, dan diakhiri dengan end, dan Prosedur tidak mengembalikan nilai-nilai apapun.

Contoh procedure dalam vb.net :

Sub Sub_perkalian(ByVal x As Integer, ByVal y As Integer) Dim kali As Double Dim tambah As Double Dim bagi As Double Dim kurang As Double kali = x * y tambah = x + y bagi = x / y kurang = x - y MessageBox.Show(x & "x" & y & "=" & kali & vbCrLf & x & "+" & y & "=" & tambah & vbCrLf & x & "/" & y & "=" & bagi & vbCrLf & x & "-" & y & "=" & kurang, "Operasi sub procedure") End Sub

Untuk memanggil procedure yang telah kita buat maka sintaksnya adalah

call Sub_perkalian (10,5)

Maka  output :

10 x 5= 50

10 + 5= 15

10 / 5= 2

               10 - 5= 5

FUNCTION

Fungsi adalah sebuah blok dari Visual Basic yang di nyatakan dalam function, dan di akhiri dengan End Function. Function ini akan kembali nilai-nilai.

Ada dua tipe dasar fungsi. Built-in function dan yang ditetapkan pengguna. Fungsi built-in merupakan bagian dari bahasa Visual Basic.

Contoh function dalam vb.net :

Function fun_Perkalian(ByVal x As Integer, ByVal y As Integer) As Double Dim kali As Double Dim tambah As Double Dim bagi As Double Dim kurang As Double kali = x * y tambah = x + y bagi = x / y kurang = x - y Return MessageBox.Show(x & "x" & y & "=" & kali & vbCrLf & x & "+" & y & "=" & tambah & vbCrLf & x & "/" & y & "=" & bagi & vbCrLf & x & "-" & y & "=" & kurang, "Operasi Function") End

Untuk memanggil function yang telah kita buat maka sintaksnya adalah

call fun_Perkalian (10,5)

Maka function tersebut akan mengembalikan nilai atau  output :

10 x 5= 50

10 + 5= 15

10 / 5= 2

10 - 5= 5

RECURSIVE FUNCTION

Rekursif dalam matematika dan ilmu komputer adalah metode mendefinisikan fungsi di mana fungsi yang didefinisikan diterapkan dalam definisi dirinya sendiri. Dengan kata lain, fungsi rekursif menyebut dirinya  sendiri untuk melakukan tugasnya. Rekursif adalah pendekatan secara luas digunakan untuk memecahkan banyak tugas pemrograman.

Sebuah contoh sederhana adalah perhitungan factorial : 

Function Factorial(ByVal n As UShort) As UShort If (n=0) Return 1 Else Return n * Factorial(n-1) End If End Function

untuk memanggil function factorial maka sintaksnya adalah call Factorial(24) maka nilai yang akan dikembalikan adalah 3628800