Tugas 7 Function

Tugas 7 Function

   Return Value Function
  Overloading Function Dan
  Function Bawaan Visual Basic
 1. Return Value Function

  Tampilan Awal Program

 

     Tampilan Program Pada Saat Dijalankan

  

     Kode Program

Public Class Form1
    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(1, 6, 2)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class

     Penjelasan Program

Private Function fstat(ByVal ParamArray args() As Object) As Single()

Berfungsi untuk deklarasi fungsi yang diberikan nama fstat yang memiliki tipe Singe(), 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.

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
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.

·Dan hasil (2) akan menghasilkan nilai terkecil 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)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
End Sub

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.

    2.   Overloading Function

    Tampilan Awal Program

     Tampilan Program Pada Saat Dijalankan

   

      Kode Program

Public Class Form2
    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
End Class

      Penjelasan Program

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
    hitung = bil1 + bil2
End Function

Pendeklarasian fungsi dengan nama hitung yaitu antara bil1 dan bil2 yang bertipe integer. Proses ini bertugas untuk menjumlahkan bil1 dengan bil2. Maka pada saat kita memanggil fungsi dengan nama hitung kemudian secara langsung fungsi inilah yang akan terpanggil. 

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
     hitung = bil1 + bil2 + bil3
End Function

Mendeklarasikan fungsi yang memiliki nama hitung, yaitu bil1, bil2,dan bil3 yang bertipe integer juga. Proses berfungsi untuk menjumlahkan bil1, bil2, dan bil3. Maka ketika kita memanggil fungsi dengan nama hitung maka akan secara langsung fungsi inilah yang akan terpanggil.
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

Merupakan proses pemanggilan fungsi pada event Button_1 ketika di-klik. Sehingga pada saat Button1 kita klik, maka pada textbox1 akan ditampilkan hasil dari proses yang dilakukan oleh fungsi hitung tersebut.

   3.   Macam-Macam Function Bawaan

Procedure digunakan untuk memadatkan tugas-tugas berulang ataupun proses yang digunakan bersama, seperti perhitungan yang sering dilakukan, text dan manipulasi kontrol, serta operasi database.

Ada beberapa jenis procedure yang digunakan dalam Visual Basic :

1.  Sub Procedure yang tidak mengembalikan nilai

2.  Function Procedure yang mengembalikan nilai

3.  Property Procedure yang dapat mengembalikan nilai dan diisi nilai yang mengacu pada suatu objek.

Function Procedure

Pada Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, Dan Chr, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum, dan kadang-kadang tidak memenuhi kebutuhan programmer, untuk keperluan tersebut anda dapat menciptakan fungsi-fungsi sendri yang dikenal dengan Function Procedure.

Syntax penulisan Function Procedure

[Private|Public][Static] Function nama_procedure(argumen) [As type]

Pernyataan-pernyataan

End Function

Ada tiga perbedaan antara function dan procedure :

a.       Umumnya anda dapat memanggil suatu function dengan mengikuti nama function sisi kanan dari statement atau ekspresi,

b.      Function memiliki type data seperti suatu variabel. Ini menentukan type yang  dari nilai yang di kembalikan,

c.       Nilai kembali dimasukkan kenama function itu sendirinya, dan suatu function dapat menjadi bagian dari suatu ekspresi yang panjang.

FUNCTION BAWAAN VISUAL BASIC

Dalam Visual Basic, fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

A. Fungsi-fungsi Numerik 

Dengan menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik. Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :
a) Fungsi-fungsi konversi ke integer. 

Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada gambar tabel dibawah ini :

Tabel Fungsi-fungsi Konversi ke Integer

  

Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama :

 

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda :

Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() :

b) Fungsi – fungsi konversi tipe data 

Gambar tabel dibawah ini merupakan fungsi – fungsi yang melakukan konversi ke tipe data.

Fungsi-fungsi Konversi ke Tipe Data. Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7)  

c) Fungsi-fungsi matematika  

Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada gambar tabel berikut.

 

B. Fungsi-fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti pada gambar dibawah ini.

SubString merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :

a) Left$(StringVal, length) 

Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .

b) Right$(StringVal, length) 

Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .

c) Mid$(StringVal, startVal, length)

Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .

Contoh :

C. Fungsi-fungsi Tanggal dan Waktu 

Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi – fungsi Now(), Date(), dan Time(). Lihat table dibawah ini.

Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu.