Function, Overloading Function, Macam-macam Function bawaan

Menerangkan Tentang Function dengan Return Value

Berupa Array

 Function merupakan Sekumpulan Statement dari VB (Visual Basic) yang diberi nama dan dapat menghasilkan nilai balik.

Pada Tugas kali ini, Saya akan menjelaskan fungsi “Function” dari pembuatan program berbentuk Array. Simak dengan jelas, 

Pertama buat form seperti berikut :

Lalu isikan source kode berikut pada form :

PublicClassForm1

PrivateFunction stats(ByValParamArray args() AsObject) AsSingle()

Dim hasil(3) As Single

Dim i As Integer

For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

EndIf

If hasil(1) > args(i) Then hasil(1) = args(i)

If hasil(2) < args(i) Then hasil(2) = args(i)

Next i

Return hasil

End Function

EndClass

 Lalu isikan source kode pada button 1, dengan Double Klik pada Button1 untuk mengisinya. Dibawah adalah penampakan kodenya:

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim statistik As Single() = stats(11, 16, 12, 17, 13, 19, 14, 20, 18, 15)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

EndSub

Ketika program dijalankan, hasilnya akan seperti ini :

Kenapa bisa seperti itu? Jadi begini

1. Sub Program “Function” ini memberikan umpan balik berbentuk nilai, sehingga bisa mendapatkan hasil sesuai dengan isi programnya yang ingin dibuat.

2.  Penjelasan singkat mengenai listing program pada form:

3.  Penjelasan singkat mengenai listing program pada Button1:

Sekian penjelasan tentang function dari saya, jika ada kekurangan mohon maaf

OVERLOADING FUNCTION

Apa itu Overloading Function? Overloading Function merupakan sebuah function dengan nama yang sama tetapi memiliki Parameter yang berbeda. Berikut ini adalah penjelasannya:

Pertama buatlah form seperti dibawah ini:

Kemudian isikan source kode berikut:

PublicClassForm2

Function hitung(ByVal bil1 AsInteger, ByVal bil2 AsInteger) AsInteger

        hitung = bil1 * bil2

EndFunction

Function hitung(ByVal bil1 AsInteger, ByVal bil2 AsInteger, ByVal bil3 AsInteger) AsInteger

        hitung = bil1 + bil2 + bil3

EndFunction

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = hitung(5 ,6 ,7)

EndSub

EndClass 

Jika dijalankan akan muncul tampilan seperti berikut:

Kenapa demikian? Berikut penjelasannya.....

1.         Terdapat 2 Sub Program “Function” yang bisa berfungsi, tetapi pada saat kita melihat pemanggilan namaFunction pada Button1, terdapat 3 bilangan yang artinya, hanya “function” yang memiliki 3 parameterlah yang dapat berjalan, sedangkan “Function” yang memiliki 2 parameter diabaikan.
2.       Tetapi, jika angka parameter pada pemanggilan namaparameter di hapus 1, maka “Function” yang memiliki 2 parameterlah yang dijalankan, sedangkan “function” yang memiliki 3 parameter akan diabaikan. Hasilnya akan seperti dibawah ini:
3. 

Function Bawaan pada Visual Basic

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, namafungsi bisa diisi sesuai kebutuhan , argumen-argumen bisa diisi dengan parameter,optional 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)

       Ok, mungkin gambaran function itu seperti diatas lebih jelasnya bisa didapat dan dipelajari teman blogger disini. Karena inti dari tugas ini adalah untuk membahas macam-macam function bawaan pada visual basic dan disini kita bahas satu-persatu.

~ 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

~ 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

~ 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

Sekian penjelasan dari saya, jika ada salah atau kekurangan mohon maaf