Function dengan return Value berupa array pada vb 2010

PENJELASAN CODING DIATAS

Private Function fstat(ByVal ParamArray args() As Object) As Single()
Berfungsi untuk deklarasi fungsi yang diberikan nama fstat yang memiliki tipe Single(), yang memiliki parameter berupa Array yang bernama args() dengan tipe Object. Dim hasil(3) As Single

Dim i As Integer
Pendeklarasian variabel yang bernama hasil() dan bertipe single yang memiliki kapasitas 3 dan variabel i yang bertipe integer tersebut.
For i = 0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
hasil(3) = args(i)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
hasil(3) = hasil(0) / 10
Next i
Proses perulangan akan dilakukan sebanyak jumlah perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah dari semua angka.
* Hasil (1) akan menghasilkan nilai terbesar dalam array.
* Hasil (2) akan menghasilkan nilai terkecil dalam array.
* Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.

Return hasil
Perintah yang akan mengembalikan nilai hasil ke dalam fungsi sehingga ketika fungsi dipanggil harus menggunakan variabel yang bertipe array.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim statistik As Single() = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
End Class

Merupakan sebuah proses pemanggilan fungsi pada event Button1 pada saat di-klik. Pada pemanggilan fungsi terlebih dahulu dideklarasikan sebuah variabel yang bertipe array, Kemudian nilai pada index satu ditampilkan pada textbox yang kita inginkan.

MACAM-MACAM FUNCTION BAWAAN
Function itu sendiri adalah sekumpulan tatement yang menghasilkan nilai balik (return Value). Nilai Balik ini akan akan dikembalikan pada blok perintah yang memanggil prosedur function.

Adapun syntax penulisan function procedure :

[Private/Public] Function namafungsi(argumen-argumen) [As type]
---Baris perintah---
End Function

Dari sytax diatas, nama fungsi bisa diisi sesuai kebutuhan , argumen-argumen bisa diisi dengan parameter, optiomal dan argumen lain, As type adalah tipe data yang digunakan Sebuah Function dapat dipanggil dengan menggabungkan pernyataan lain, seperti contoh berikut ini

Variabel = nama Function Procedure

Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau memanggil sub prosedur yaitu :

Call NamaFunctionProcedure [Parameter]

Atau

NamaFunctionProcedure (Parameter)

DAN SEKARANG KITA BAHAS SATU PERSATU FUNCTUIN BAWAAN PADA VB:
1. Fungsi String
Left → mengambil karakter dari sebelah kiri
Right → mengambil karakter dari sebelah kanan
Mid → mengambil karakter dari tengah
LTrim → membuang semua semua awal spasi yang ada disebelah kiri
RTrim → membuang semua semua awal spasi yang ada disebelah kanan
Trim → membuang semua spasi yang ada disebelah kiri dan kanan
Len → memberikan nilai balik integer sebagai panjang string
LCase → mengubah string menjadi huruf kecil semua
UCase → mengubah string menjadi huruf besar semua
Str (int) → mengubah bilangan menjadi string (konversi)
Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter

2. Fungsi Matematika
Val (Str) → konversi string menjadi integer
Asc(Char) → konversi karakter menghasilkan nilai ascii
Abs(Number) → memberikan nilai mutlak dari suatu nilai negatif
Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal
Sqr(Number) → memberikan hasil akar kuadrat dari suatu nilai
Tan() → mengembalikan nilai tangen dari argument dalam radian
Cos() → mengembalikan nilai cosinus dari argument dalam radian
Atn() → mengembalikan nilai arc tangen dari argument dalam bentuk radian
Long() → mengembalikan nilai logaritma dari argument
CInt() → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat
Fix() → pemotongan suatu nilai decimal menjadi integer
Int() → pembulatan ke bawah suatu nilai decimal

3. Fungsi Tanggal dan Waktu
Date() → mengambil tanggal system komputer
IsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
DateValue → konversi string menjadi date
D(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
Time() → mengambil waktu dari system komputer
H(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deik
TimeValue(str) → konversi string ke variable date