PERTEMUAN 8
1. Penjelasan Program ParamArray
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
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
2. Penjelasan Over Loading Function
Overloading
function adalah beberapa fungsi yang memiliki perintah berbeda tetapi
namanya sama. Sebagai contoh adalah program dibawah ini. Terdapat 2
Fuction hitung pada program ini namun program hanya akan menjalankan
salah satunya saja.
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
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.
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.
3. Macam-Macam Function Bawaan
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 .
· 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. Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan
yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai
yang sama.
·
ans1 = Int (14.5) mengembalikan 14
·
ans2 = Fix (14.5) mengembalikan 14
Namun fungsi Fix() dan
Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan
berikut memberikan pengembalian yang berbeda.
·
ans1 = Int (-14.5) mengembalikan -15
·
ans2 = Fix (-14.5) mengembalikan 14
Sedangkan fungsi CInt()
mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan
CInt() :
·
ans1 = CInt (14.1) mengembalikan 14
·
ans2 = CInt (14.5) mengembalikan 14
·
ans3 = CInt (14.6) mengembalikan 14
·
ans2 = CInt (-14.5) mengembalikan -14
b. Fungsi
’f1’endash Fungsi konversi tipe data
·
CCur () mengkonversi argumen menjadi tipe
data currency
·
CDbl () mengkonversi argumen menjadi tipe
data double (presisi ganda)
·
CLng () mengkonversi argumen menjadi tipe data
long integer
·
CSng () mengkonversi argumen menjadi tipe
data single
·
CStr () mengkonversi argumen menjadi tipe
data string
·
Ivar () mengkonversi argumen menjadi tipe
data variant
c. Fungsi-fungsi
matematika Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada:
·
Abs () mengembalikan nilai absolut dari
argumen
·
Atn () mengembalikan nilai arc tangen dari
argumen dalam bentuk radian
·
Cos () mengembalikan nilai cosinus dari
argumen radian
·
Exp () mengembalikan nilai exponensial 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
2. Fungsi-fungsi String
Selain
fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi
String diantaranya seperti berikut :
·
LCase$ () mengembalikan argumen string
sebagai tipe data string huruf
·
Ucase () mengembalikan argumen string sebagai
tipe data variant huruf besar
·
Ucase$ () mengembalikan argumen string
sebagai tipe data string huruf besar
·
Val () mengembalikan nilai number dari
argumen string
·
Len () mengembalikan nilai sumber yang
menunjukan panjang string
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)
Fungsi ini mengembalikan
nilai string dari startVal sebanyak length karakter .
Contoh :
HurufKecil = LCase (“Rinda”) ’HurufKecil = “rinda”
HurufBesar = Ucase (“Astuti”) ’HurufBesar = “ASTUTI”
Title = “Apa Kabar”
lTitle = Left$ (Title, 4) ’lTitle = “Halo”
RTitle = Right$ (Title, 5) ’RTitle = “Dunia”
MTitle = Left$ (Title, 2, 6) ’MTitle = “alo Du”
Panjang = Len (“Biru dan hijau”) ’length = 14
3. Fungsi-fungsi Tanggal dan Waktu
Jika
dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem,
Visual Basic menyediakan fungsi ’endash fungsi Now(), Date(), dan Time(). Fungsi-fungsi
Tanggal dan Waktu :
·
Now () mengembalikan tanggal dan waktu sistem
·
Date () mengembalikan tanggal dari sistem
·
Time () mengembalikan waktu dari sistem
Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu
format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu. Format (Expresi
[, format[, firstdayofweek[, firstweekofyear]]]). Fungsi ini mengembalikan
nilai variant atau string sesuai dengan format yang ditentukan.
4. Fungsi Date and Time pada VB
Time
: mencari tahu waktu saat ini atau menetapkan waktu, tergantung format pemakaiannya
( lihat contoh di bawah ini)
A$ = Time ’lquote hasil 18:16:35 AM
MyTime = #4:35:17 PM# ’lquote assign a time
Time = MyTime ’lquote set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ’lquote hasil 10/8/02 18:16:35 AM
