Return Value Function
Tampilan awal :
Tampilan saat di tekan Button 1:
Koding programnya:
Public Class Form1 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, 7, 8)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
Penjelasan :
Private Function fstat(ByVal ParamArray args() As Object) As Single()
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
Return hasil
End Function
Jika i=0 maka hasil 1 = args jumlah index nya demikian juga hasil2
jika hasil1 kurang dari args(i) maka hasil1 sama dengan hasil args(i) nya, demikian juga hasil2 lebih besar dari args (i) maka hasil2 sama dengan args (i) dan terus mengulang sampai jumlah index
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim statistik As Single() = fstat(1, 7, 8)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
Sebuah proses pemanggilan fungsi pada Button1 pada saat di-klik, pada textbox1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan, pada textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut, pada textbox3 ubtuk menampilkan nilai atau angka terkecil dari array tersebut.
OVERLOADING FUNCTION
Tampilan awal:
Tampilan saat di tekan Button 1:
Koding Programnya:
Public Class Form1
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
Penejelasan :
Public Class Form1
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
Proses ini bertugas untuk menjumlahkan bil1
dengan bil2.
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function
Dan proses ini berfungsi untuk menjumlahkan
bil1, bil2, dan bil3.
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
Proses di atas pemanggilan fungsi pada Button1 ketika di klik. Jadi pada saat Button1 kita klik, maka pada textbox1 akan menampilkan 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.
1.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 tabel .
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
Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) .
c) Fungsi-fungsi matematika
2.Fungsi-fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut 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)
contoh :
3.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 tabel di bawah :
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.
