Menganalisa Program Function

Program Function dengan Return Value berupa Array

Private Function fstat(ByVal ParamArray args() As Object) As Single()
        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)
            End If
            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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(20, 5, 7, 9, 3, 15, 12, 10, 8, 1)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub



Dim statistik As Single() = fstat(20, 5, 7, 9, 3, 15, 12, 10, 8, 1)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
Penjelasan : pada button 1 memesan variable statistik
Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan d atas
Textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut
Textbox3 untuk menampilkan nilai atau angka terkecil dari array tersebut
bisa muncul angka 55 dari jumlah array yang terdapat pada coding yaitu  ”fstat(20,5,7,9,3,15,12,10,8,1)”
bisa muncul angka (10) yaitu bilangan terbesar dari array tersebut adalah 10
bisa muncul angka 1 yaitu dari bilangan terkecil dari array tersebut adalah 1

Private Function fstat(ByVal ParamArray args() As Object) As Single()
     Dim hasil(3) As Single
Penjelasan : memesan variabel hasil berjumlah 3 yaitu hasil(0),hasil(1),hasil(3)

     Dim i As Integer
     For i = 0 To UBound(args)
Penjelasan: mendeklarasikan variabel i sebagai integer dan perulangan i sebanyak array yang di pesan (To UBound(args))

      hasil(0) = hasil(0) + args(i)
      If i = 0 Then
           hasil(1) = args(i)
           hasil(2) = args(i)
      End If
      If hasil(1) < args(i) Then hasil(1) = args(i)
      If hasil(2) > args(i) Then hasil(2) = args(i)
      Next i
      Return hasil
Penjelasan: jika i= 0 maka hasil(1) = args jumlah indexnya demikian juga hasil(2),
Jika hasil (1) kurang dari args(i) maka hasil (1) sama dengan hasil args(i) nya demikian juga hasil dua lebih besar dari args (i) maka hasil(2) sama dengan args (i) dan terus mengulang sampai jumlah index.

Program Function dengan Return Berupa Array

Overloading Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
End Function
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
End Sub

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
End Function
Penjelasan : Melakukan Fungsi Penjumlahan antara bil1 dan bil2, yang dimana angkanya dipesan di button1....yaitu penjumlahan 1+2....

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
End Function
Penjelasan : Melakukan Fungsi Penjumlahan antara bil1, bil2 dan bil3, yang dimana angkanya dipesan di button1....yaitu penjumlahan 1+2+3....

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
End Sub
Penjelasan : Tempat pesan angka 1,2,3,,,,yang dimana angka 1 adalah bil1,2 adalah bil2, dan 3 adalah bil3....
Bila pada button1 dipesan 4angka,,,,maka error....karena functionnya cuma ada 3....dan jika dipesan 2angka maka hasil = penjumlahan antara bil1 dan bil2....begitu juga jika dipesan 3angka maka hasil = penjumlahan antara bil1, bil2, dan bil3....

Program Overloading Function

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, namafungsi bisa diisi sesuai kebutuhan , argument-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)

~ 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