Function dengan Return Value Berupa Array
Interface
Tampilan Pada Saat diklik Proces
Koding
Public Class Form1
Private Function lat(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)
hasil(3) = args(i)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
hasil(3) = hasil(0) / 10
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() = lat(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("anda yakin ingin keluar", vbYesNo + vbQuestion + vbDefaultButton1, "atention") = vbYes Then
Me.Close()
End If
End Sub
End Class
Penjelasan Kode Programnya
Private Function lat (ByVal ParamArray args() As Object) As Single()
Berfungsi mendeklarasikn fungsi yang diberikan nama lat yang memiliki tipe Single(), yang memiliki parameter berupa Array yang bernama args() dengan tipe Object.
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)
hasil(3) = args(i)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
hasil(3) = hasil(0) / 10
Next i
Proses perulangan akan dilakukan sebanyak jumlah perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah dari semua angka.
- Hasil (1) akan menghasilkan nilai terbesar dalam array.
- Hasil (2) akan menghasilkan nilai terkecil dalam array.
- Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.
Return hasil
Perintah yang akan mengembalikan nilai hasil ke dalam fungsi sehingga ketika fungsi dipanggil harus menggunakan variabel yang bertipe array.
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, 10, 4, 7, 9, 8, 5, 3)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
End Class
Merupakan sebuah proses pemanggilan fungsi pada event Button1 pada saat di-klik. Pada pemanggilan fungsi terlebih dahulu dideklarasikan sebuah variabel yang bertipe array, Kemudian nilai pada index satu ditampilkan pada textbox yang kita inginkan.
Pengertian Function Bawaan
Function 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.
Adapun cara untuk
mendeklarasikan atau syntax penulisan dari function procedure adalah sebagai berikut :
Private/Publik function nmfu (byref/byval/optional/paramarray nmparam as type)type data
..........baris perintah.........
End Function
Cara pemanggilan sebuah fungsi dapat dilakukan melalui beberapa cara, yaitu;
- Variabel = nama Function Procedure
- Call NamaFunctionProcedure (Parameter)
- NamaFunctionProcedure (Parameter)
Macam-macam fungsi bawaan
Dalam VB juga terdapat fungsi-fungsi bawaan yang bisa digunakan secara langsung. Ada sejumlah fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu Textbox menjadi tipe data Numeric agar dapat digunakan untuk operasi perhitungan.
Fungsi yang berkaitan dengan matematika diantaranya:
Fungsi untuk mengkonversi ke integer
Ada tiga macam fungsi yang melakukan konversi ke tipe integer,antara lain
- Int() Yaitu pembulatan kebawah suatu nilai decimal
- Fix() Yaitu pemotongan suatu nilai desimal menjadi integer
- Cint() Yaitu pembulatan nilai desimal 0.5 atau lebih ke integer yang lebih dekat
contoh pendeklarasian pada Int
Dim bil As Double bil = Int(Val(TextBox1.Text))
TextBox2.Text = bil
contoh diatas berlaku juga untuk Fix dan Cint
Fungsi String
- Left mengambil karakter dari sebelah kiri
- Right mengambil karakter dari sebelah kanan
- Mid mengambil karakter dari tengah
- LTrim membuang semua semua awal spasi yang ada disebelah kiri
- RTrim membuang semua semua awal spasi yang ada disebelah kanan
- Trim membuang semua spasi yang ada disebelah kiri dan kanan
- Len memberikan nilai balik integer sebagai panjang string
- LCase mengubah string menjadi huruf kecil semua
- UCase mengubah string menjadi huruf besar semua
- Str (int) mengubah bilangan menjadi string (konversi)
- Chr (Asscii) konversi dari nilai ascii menghasilkan karakter
Fungsi-fungsi matematika
- Abs() Mengembalikan nilai Absolut dari argumen
- Atn() Mengembalikan nilai arc tangen dari argumen dalam bentuk radian
- Cos() Mengembalikan nilai cosinus dari argumen dalam radian
- Exp() Mengembalikan nilai Eksponensial dari argumen
- Log() Mengembalikan nilai logaritma dari argumen
- Sin() Mengembalikan nilai sinus dari argumen dalam radian
- Sqr() Mengembalikan nilai akar dari argumen
- Tan() Mengembalikan nilai tangen dari argumen dalam radian
Fungsi Tanggal dan Waktu
- Date() mengambil tanggal system komputer
- IsDate memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
- DateValue konversi string menjadi date
- Time() mengambil waktu dari system komputer
- TimeValue(str) konversi string ke variable date
- D(Date),M(Date),Y(Date) memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
- H(Date),M(Date),S(Date) memberikan nilai integher dari variable date untuk jm, menit dan deik
Demikian penjelasan dari macam-macam fungtion bawaan yang ada pada VB