TUGAS 8

FUNCTION DENGAN RETURN VALUE BERUPA ARRAY
DAN FUNGSINYA

1.   Buatlah Form seperti gambar di bawah ini terlebih dahulu,

2.  Setelah Form di atas di buat  lalu masukan kordingnya. berikut kording yang akan di gunakan :

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.

Berikut tampilan gambar setelah program dijalankan,

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