Function dengan
return value berupa array, Overloading Function
dan Fungsi bawaan pada Visual Basic 2010.
Penjelasan
Program
Private Function fstat(ByVal ParamArray args() As Object) As Single()
·
Baris
koding di atas menunjukan pendeklarasian sebuah sub program berupa function
dengan variabel fstat. Deklarasi function di atas menggunakan paramater ByVal
yang berarti melewatkan parameter secara nilai dan bertipe data Single (bulat).
·
Deklarasi
di atas hanya bisa diekanali di lokal form. Itu dapat dilihat dari penyebutan
private di awal deklarasi.
Dim
hasil(3) As Single
Dim i As Integer
·
Baris
koding diatas adalah sebuah pendeklarasian variabel dengan nama hasil. 3,
merupakan jumlah teratas pada array atau Ubound. Dan tipe data yang digunakan
adalah Single.
·
Dim
i As Integer bermaksud, pendeklarasian variabel bernama i dengan tipe data
integer.
For i = 0 To UBound(args)
·
Koding
diatas menjelaskan perulangan untuk i=0 sampai batas teratas dari Array (Ubound)
hasil(0) = hasil(0) + args(i)
·
Dapat
dijelaskan bahwa hasil(0)=hasil(0) kerena perulangan belum dimulai dan args(i)=
nilai dari indeks array ke i
If
i=0 Then
·
Artinya
jika i=0, maka lakukan perintah
hasil(1)=args(i)
·
hasil1
= nilai dari indeks ke i
hasil(2)=args(i)
·
hasil2
= nilai dari indeks ke i
End If
·
perintah
diakhiri apabila i tidak sama dengan 0
If hasil(1) > args(i) Then
hasil(1) = args(i)
·
jika
hasil 1 lebih besar dari nilai i maka hasil 1 dari indeks ke i
If hasil(2) < args(i) Then
hasil(2) = args(i)
·
jika
hasil 2 lebih kecil dari nilai i maka hasil 2 dari indeks ke i
Next i
Return hasil
·
Kembali
ke hasil
End Function
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
·
Method
pada button1_Click
Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
·
Pendeklarasian
variabel dengan nama statistik dengan tipe data single. Dan nilai array pada
indeks ke 0=1.
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
·
Textbox
satu sampai ke tiga akan bernilai statistik dari indeks ke 0
End Sub
Saat Program dijalankan
Kode Program secara lengkap
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, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
==========================================================================================================================================================================================
Overloading Function
Contoh 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)
End Sub
End Class
Penjelasan Program:
Pada contoh program di atas, ada dua sub program yang sama namun masing-masing memiliki variabel yang berbeda.
cara kerjanya adalah:
hasil yang akan diberikan di atas tergantung dari berapa variabel yang kita berikan saat memangil sub program.
pada contoh di atas, saya berikan 2. yang artinya, program akan mengksekusi function yang pertama. namun apa bila kita pesan pada pemanggilan sub progaram sejumlah 3, maka sub program yang akan di eksekusi adalah yang ke 2.
==========================================================================================================================================================================================
Macam-macam fungsi bawaan pada Visual basic 2010
1. Fungsi Numerik
Fungsi pembulatan angka.
Contoh penggunaan program :
2. Fungsi Matematika
- fungsi-fungsi yang berkaitan dengan tujuan matematis terdapat dalam class math.
- pemanggilan fungsi ini harus diawalai (prefiks) math.
Contoh fungsi matematika:
3. Fungsi string
Adalah fungsi yang digunakan untuk operasi string.
a. Fungsi String Lcase() dan Ucase()
- Lcase()
akan mengembalikan suatu string dalam tipe huruf kecil (lowercse)
- Ucase()
akan mengembalikan suatu string dalam tipe huruf besar (upercase)
- Contoh
Dim inStr As String ="Ikut Kuliah Pak Nandang"
Dim outStr As String
‘mengembalikan "ikut kuliah pak nandang"
outStr = LCase(inStr)
‘mengembalikan "IKUT KULIAH PAK NANDANG"
outStr = Ucase(inStr)
b. Fungsi String Left(), Mid() dan Right()
Ketiga fungsi ini mengembalikan substring dengan jumlah karakter yang telah ditentukan dari suatu argumen.
Pengambilan karakter ini dimulai dari sisi paling kiri (Left), dari sisi paling kanan (Right), atau dari urutan tertentu.
- Contoh
Dim inString As String = “Hai, Dunia!”
‘mengembalikan "Hai"
Left(inString, 3)
‘mengembalikan "Dunia!"
Right(inString, 6
‘mengembalikan "Hai"
Mid(inString, 1, 3)
‘mengembalikan "Dun"
Mid(inString, 6, 8)
c. Fungsi String Len()
Mengembalikan nilai integer yang merupakan panjang string
- Contoh
Dim inStr As String = "Hai, Dunia!"
'mengembalikan 11
Dim outStr As Integer = Len (inStr)
d. Fungsi String Ltrim(), Rtrim(), Trim()
- mengembalikan suatu string tanpa menyertakan spasi yang terletak sebelumnya (LTrim), spasi yang terletak setelahnya (RTrim), atau spasi yang terletak sebelum dan setelahnya (Trim).
- Contoh
Dim inStr As String = " <-Alpro-> "
Dim outStr As String
outStr = LTrim(inStr)
outStr = RTrim(inStr)
outStr = LTrim(RTrim(inStr))
outStr = Trim(inStr)
e. Fungsi string Replace()
Mengembalikan suatu string dimana suatu substring pada argumen tersebut telah digantikan oleh substring yang lain.
- Contoh
Dim inString As String = "Shopping List"
Dim outString As String = _
Replace (inString, "o", "i")
f. Fungsi string StrComp()
Mengembalikan -1,0 atau 1 berdasarkan hasil dari perbandingan dua string. Opsi metode perbandingan dapat menggunkan text (lower atau upercase dihirraukan) atau binary (lower atau upercse diperhatikan).
- Contoh
Dim inStr1 As String = "ABCD"
Dim inStr2 As String = "abcd"
Dim inStr3 As String =
outStr = StrComp (inStr1, inStr2, _ CompareMethod.Text)
outStr = StrComp (inStr1, inStr2, _ CompareMethod.Binary)
outStr = StrComp (inStr1, inStr2)
g. Fungsi String StrReverse()
Mengembalikan suatu string yang mempunyai karakter sama dengan argumen, tetapi dengan urutan yang berkebalikan.
- Contoh
Dim inStr As String = "ABCDEFG"
Dim outStr As String = StrReverse (inStr)
h. Fungsi String StrDup()
Mengembalikan suatu string yang terdiri dari karakter yang berulang. Karakter yang diulang ini merupakan karakter awal dari string yang menjadi argumen.
- Contoh
Dim inStr As String = "Hai, Dunia !"
Dim outStr As String
outStr = StrDup (9, "s")