Minggu, 16 Desember 2012

TUGAS 5 PEMROGRAMAN VISUAL

Return Value Function, Overloading Function & Function Bawaan Visual Basic

Assalamu'alaikum.. saya akan menjelaskan sedikit mengenai Function pada Visual Basic 2010. Langsung saja...

 RETURN VALUE FUNCTION
 


Coding 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

 
Coding gambar di atas sebagai berikut:



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
  

Demikian penjelasan singkatnya, semoga bermanfaat. 
Wassalamu'alaikum...

Tidak ada komentar:

Posting Komentar