tugas 8 visual basic - after UTS-TI11F-DWI SUMARTI-11.11.2262

Return Value Function, Overloading Function & Function Bawaan Visual Basic

 RETURN VALUE FUNCTION

 


sehingga akan menghasilkan gambar di atas sebagai berikut:

Public Class Form1

    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, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

    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

End Class

Function dengan nama fstat yang menggunakan ByVal ParamArray, parameter berupa array. Parameter tersebut diberi nama args yang bertipe data Object, sedangkan fstat bertipe data Single.

Dim hasil(3) As Single merupakan variabel lokal, hasil(3) berupa array yang menampung 3 elemen.
For i = 0 To UBound(args) melakukan perulangan sebanyak indeks terakhir pada array args.

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

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

Jika hasil(1) < args(i), maka args(i) elemen dari array fstat maka nilai hasil(1) diganti args(i), dan jika hasil(2) > args(i) maka nilai hasil(2) diganti dengan args(i).

Return hasil , akan mengembalikan nilai.

Maka ketika kita menekan tombol Button1 maka akan muncul Total, Terbesar, Terkecil seperti gambar di atas.

 OVERLOADING FUNCTION

 
dengan menggunakan perintah di bawah ini akan menghasilkan gambar seperti diatas.

Public Class overloading

    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

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer

        hitung = bil1 + bil2 + bil3

    End Function

End Class

Terdapat 2 function yang sama-sama diberi nama hitung. Pada function pertama mendeklarasikan parameter menggunakan 2 keyword ByVal yang bertipe data Integer. Pada function kedua mendeklarasikan parameter menggunakan 3 keyword ByVal juga bertipe Integer.

coding program di atas, pada saat pemanggilan function menggunakan function kedua dengan  perintah hitung = bil1 + bil2 + bil3.Maka ketika kita menekan tombol Button1 pada TextBox1 akan menampilkan jumlah hitung yaitu 6, jumlah dari 1+2+3.

FUNCTION BAWAAN

Fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung.

a.    Fungsi-fungsi konversi ke integer

Fungsi	Keterangan
Cint( )	Pembulatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
Fix( )	Pemotongan suatu nilai desimal menjadi integer
Int( )	Pembulatan ke bawah suatu nilai desimal

b.    Fungsi – fungsi konversi tipe data

Fungsi	Keterangan
Ccur( )	Mengkonversi argumen menjadi tipe data currency
Cdbul( )	Mengkonversi argumen menjadi tipe data double (presisi ganda)
CLng( )	Mengkonversi argumen menjadi tipe data long integer
CSng( )	Mengkoonversi argumen menjadi tipe data single
CStr( )	Mengkonversi argumen menjadi tipe data string
Ivar( )	Mengkonversi argumen menjadi tipe data variant

 

c.    Fungsi-fungsi matematika 

Fungsi	Keterangan
Abs( )	Mengembalikan nilai absolut dari argumen
Atn( )	Mengembalikan nilai arc tangen dari arguen dalam bentuk radian
Cos( )	Mengembalikan nilai cosinus dari argumen dalam radian
Exp( )	Mengembalikan nilai exponensial dari argumen
Log( )	Mengembalikan nilai logaritma dari argumen
Sin( )	Mengembalikan nilai sinus dar argumen dalam radian
Sqr( )	Mengembalikan nilai akar dari argumen
Tan( )	Mengembalikan nilai tangen dari argumen dalam radian

 

 

d.    Fungsi-fungsi String

Fungsi	Keterangan
Lcase$( )	Mengembalikan argumen string sebagai tipe data string huruf kecil
UCase( )	Mengembalikan argumen string sebagai tipe data variant huruf besar
Ucase$( )	Mengembalikan argumen string sebagai tipe data string huruf besar
Val( )	Mengembalikan nilai number dari argumen string
Len( )	Mengembalikan nilai number yang menunjukkan panjang string

 

e.    Fungsi-fungsi Tanggal dan Waktu

Fungsi	Keterangan
Now( )	Mengembalikan tanggal dan waktu sistem
Date( )	Mengembalikan tanggal dari sistem
Time( )	Mengembalikan waktu dari sistem