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