Tugas Ke-6 Return Value Function, Overloading Function Dan Function Bawaan Visual Basic

RETURN VALUE FUNCTION

Tampilan Awal Program 

 Tampilan Saat Program Dijalankan

Koding Programnya :
Public Class Form6
    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 sebuar variabel yang bertipe array e. Kemudian nilai pada index satu ditampilkan pada textbox yang kita diinginkan

OVERLOADING FUNCTION

Tampilan Awal Program 

Tampilan Saat Program Dijalankan 

Koding Programnya : 
Public Class Form7
    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 seara 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.

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.

Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.