MACAM - MACAM FUNCTION BAWAAN DARI VISUAL BASIC

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.

Untuk mendeklarasikan atau syntax penulisan dari function procedure adalah sebagai berikut :

Private/Publik function nmfu (byref/byval/optional/paramarray nmparam as type)type data
..........(berisi 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

Itu beberapa penjelasan dari macam-macam function bawaan yang terdapat dalam VB yang sering kita gunakan.

Function dengan Return Value Berupa Array

Dibawah ini merupakan contoh program praktikum dengan penggunaan fungtion return value beberapa array

Tampilan awal program yang telah di beri beberapa atribut atau toolbarnya

Tampilan proses program

Untuk Kode Programnya Sebagai Berikut:

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)

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() = 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

Penjelasan Kode Program Sebagai Berikut:

Private Function fstat(ByVal ParamArray args() As Object) As Single()

Berfungsi untuk deklarasi fungsi yang diberikan nama fstat 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.

BERBAGI ILMU