Tutorial Vb.Net : Penggunaan Functions dalam Vb.Net

Tutorial Vb.Net - Menggunakan Prosedure Functions dalam Vb.Net yang akan kita bahasa pada tutorial vb.net ini, seperti pada tutorial sebelumnya sector code sudah membahas tentang Functions terbilang pada aplikasi inventory vb.net dan c#, bisa kamu baca - baca di sini :

1. Tutorial CSharp : Membuat Fungsi Terbilang C#

Tutorial penggunaan Functions dalam vb.net akan dijelaskan sejelas-jelasnya, simak terus ya.

Mendefinisikan Sebuah Functions dalam Vb.Net

Berikut syntax yang digunakan untuk mendefinisikan sebuah functions di vb.net

[Modifiers] Function FunctionName [(ParameterList)] As ReturnType
    [Statements]
End Function

Contoh penggunaan dalam aplikasi Console

    Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
        Dim result As Integer
        If (num1 > num2) Then
            result = num1
        Else
            result = num2
        End If
        FindMax = result
    End Function

Referensi : http://www.tutorialspoint.com/vb.net/vb.net_functions.htm
Dalam contoh ini kita akan mengeksikusi sebuah functions yang dipanggil dari sub main, lihat contoh berikut :

Module Module1

    Sub Main()
        Dim x As Integer = 500
        Dim y As Integer = 600
        Dim z As Integer = 601
        Dim nilai As Integer
        nilai = Cari(x, y, z)
        Console.WriteLine("Nilai yang paling besar adalah : {0}", nilai)
        Console.ReadLine()
    End Sub
    Function Cari(ByVal int1 As Integer, ByVal int2 As Integer, ByVal int3 As Integer) As Integer
        Dim hasil As Integer
        If (int1 > int2 And int1 > int3) Then
            hasil = int1
        ElseIf (int3 > int1 And int3 > int2) Then
            hasil = int3
        Else
            hasil = int2
        End If
        Cari = hasil
    End Function

End Module

Maka aplikasi console diatas akan menghasilkan nilai paling tinggi dari ketiga variable integer diatas :
"Nilai yang paling besar adalah : 601"

Recursive Function

Berikut contoh penggunaan Recursive Function dalam aplikasi console :

Module Module1

    Sub Main()
        'calling the factorial method
        Console.WriteLine("Factorial of 6 is : {0}", factorial(6))
        Console.WriteLine("Factorial of 7 is : {0}", factorial(7))
        Console.WriteLine("Factorial of 8 is : {0}", factorial(8))
        Console.ReadLine()
    End Sub
    Function factorial(ByVal num As Integer) As Integer
        ' local variable declaration 
        Dim result As Integer
        If (num = 1) Then
            Return 1
        Else
            result = factorial(num - 1) * num
            Return result
        End If
    End Function

End Module

Referensi : http://www.tutorialspoint.com/vb.net/vb.net_functions.htm
Aplikasi diatas akan menghasilkan pesan sebagai berikut :

Factorial of 6 is : 720
Factorial of 7 is : 5040
Factorial of 8 is : 40320

Membuat Arrays sebagai Functions

Kamu bisa saja mendeklarasikan array sebagai functions, lihat penulisan codenya :

Module Module1

    Sub Main()
        Dim Nilai As Integer() = {1000, 2, 3, 17, 50}
        Dim _Average As Double
        _Average = getAverage(Nilai, 5)
        Console.WriteLine("Nilai average : {0} ", _Average)
        Console.ReadLine()
    End Sub
    Function getAverage(ByVal arr As Integer(), ByVal size As Integer) As Double
        Dim x As Integer
        Dim _Average As Double
        Dim sum As Integer = 0
        For x = 0 To size - 1
            sum += arr(x)
        Next x
        _Average = sum / size
        Return _Average
    End Function

End Module

Jalankan aplikasi dan kamu akan mendapatkan hasil : "Nilai average : 214,4"