Tutorial Vb.Net : Penggunaan Functions,Defining Functions,Recursive Function,Param Arrays,Passing Arrays as Function Arguments dalam Vb.Net khusus pemula
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 :
Tutorial penggunaan Functions dalam vb.net akan dijelaskan sejelas-jelasnya, simak terus ya.
Dalam contoh ini kita akan mengeksikusi sebuah functions yang dipanggil dari sub main, lihat contoh berikut :
"Nilai yang paling besar adalah : 601"
Aplikasi diatas akan menghasilkan pesan sebagai berikut :
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 FunctionContoh 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 FunctionReferensi : 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 ModuleMaka 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 ModuleReferensi : 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 ModuleJalankan aplikasi dan kamu akan mendapatkan hasil : "Nilai average : 214,4"
COMMENTS