Kali ini saya akan menjelaskan ttg function" yg ada pd visual basic, mari simak penjelasan di bawah ini,
yang pertama sbg berikut,
Function Return Value
Public Class Form6
Private Function fstat(ByVal ParamArray args() As Object) As Single()
// Membuat
sub program dengan Function dengan variable fstat dengan parameter
ByVal yang bererti melewatkan parameter secara nilai dengan tipe single
yang berarti bilangannya bulat.
Dim hasil(3) As Single
// Membuat variable dengan nama hasil dengan jumlah teratas atau Ubound 3 yang bertipe data single.
Dim i As Integer
// Membuat variable dengan nama i yang bertipe data integer.
For i = 0 To UBound(args)
// Merupakan perulangan untuk i=0 sampai batas teratas dari array
_MORE_TEXT_TAG_
hasil(0) = hasil(0) + args(i)
// hasil (0) = 0 karena perulangan belum di mulai. // args(i) = nilai dari indeks array ke i
If i = 0 Then
// jika i = 0 maka lakukan sebagai berikut
hasil(1) = args(i)
// hasil 1 = nilai dari indeks ke i
hasil(2) = args(i)
// hasil 2 =nilai dari indeks ke i
End If
// Selain i=0,atau jika i bukan sama dengan 0
If hasil(1) < args(i) Then hasil(1) = args(i)
// Jika hasil 1 lebih kecil dari nilai i maka hasil 1= nilai dai indeks ke i
If hasil(1) > args(i) Then hasil(1) = args(i)
// Jika hasil 2 lebih kecil dari nilai i maka hasil 2= nilai dai indeks ke i
Next i
Return hasil
// Akan kembali ke hasil
End Function
End Class
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)
// Membuat vaariable dengan nama ststistik yang bertipe data single dengan nilai array pada indeks ke 0=1
// Indeks ke 1=6
// Indeks ke 2=2
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
// Pada texbox1 akan bernilai sesuai dengan statistik dari indeks ke 0
// Demikian juga pada texbox ke 2 dan 3
End Sub
yang kedua sbg berikut,
Over Loading Function
Overloading
function adalah beberapa fungsi yang memiliki perintah berbeda tetapi
namanya sama. Sebagai contoh adalah program dibawah ini. Terdapat 2
Function hitung pada program ini namun program hanya akan menjalankan
salah satunya saja.
1. Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
2. 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
Pada
dua procedure diatas, yg pertama mempunyai dua buah deklarasi variabel
dan yang kedua mempunyai tiga deklarasi variabel, lalu bagaimana cara
kerjanya?
Hal ini bergantung dari variabel yg anda suplay pada saat procedure tersebut anda panggil,
jika
anda hanya menyuplai tiga variabel, pada saat pemanggilan procedure
maka yg di eksekusi adalah procedure yang kedua, akan tetapi
jika anda memberikan dua nilai variabel pada saat pemanggilan procedure maka yg dieksekusi adalah procedure yg pertama.
yang ketiga sbg berikut,
FUNGSI BAWAAN DALAM 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.
macam-macam function bawaan pada visual
basic dan disini kita bahas satu-persatu.
~ Fungsi Numeric
CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
Fix () ===> Pemotongan suatu nilai desimal menjadi integer
Int () ===> Pembuatan ke bawah suatu nilai desimal
~ 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 Matematika
Val (Str) → konversi string menjadi integer
Asc(Char) → konversi karakter menghasilkan
nilai ascii
Abs(Number) → memberikan nilai mutlak dari
suatu nilai negatif
Round(Number,Decimal) → membulatkan suatu
angka sampai beberapa digit decimal
Sqr(Number) → memberikan hasil akar kuadrat
dari suatu nilai
Tan() → mengembalikan nilai tangen dari
argument dalam radian
Cos() → mengembalikan nilai cosinus dari
argument dalam radian
Atn() → mengembalikan nilai arc tangen dari
argument dalam bentuk radian
Long() → mengembalikan nilai logaritma dari argument
CInt() → pembulatan nilai decimal 0.5 dan
lebih ke integer yang terdekat
Fix() → pemotongan suatu nilai decimal
menjadi integer
Int() → pembulatan ke bawah suatu nilai
decimal
~ 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
D(Date),M(Date),Y(Date) → memberikan nilai
integer dari Variabel Date untuk hari , bulan dan tahun
Time() → mengambil waktu dari system
komputer
H(Date),M(Date),S(Date) → memberikan nilai
integher dari variable date untuk jm, menit dan deik
TimeValue(str) → konversi string ke
variable date
Itulah, function-function bawaan yang bisa
diapplikasikan dalam visual basic
Demikian penjelasan ini saya buat, semoga bermanfaat.Mohon maaf jika ada kesalahan atau kekurangan dari analisis saya karena saya juga masih dalam tahap belajar. ^_^
Tidak ada komentar:
Posting Komentar