MODUL V FUNCTION DAN BUILT IN 1.
Function Seperti sebuah Procedur, Function juga terdiri dari kumpulan perintah yang dapat atau tanpa disertai argument (parameter). Yang membedakan adalah sebuah function apat mengembalikan nilai. Bentuk umum :
Contoh function
Keterangan : Pernyataan [Public | Private] menentukan ruang lingkup (scope) function. Sebuah function dengan scope public bisa digunakan dalam lingkup project. Sedangkan function dengan scope private hanya bisa digunakan dalam lingkup form saja.
dibuat sebagai pengenal function saat di-‘panggil’. Aturan penamaan sebuah function sama dengan aturan penamaan sebuah variabel. Nama sebuah function dibuat unik, tidak boleh ada yang sama. <argument> merupakan serangkaian nilai dan tipe data yang dipakai oleh function untuk mengerjakan ‘tugas’-nya atau sering disebut sebagai paramater. Sebuah function bisa saja tidak memakai argumen sama sekali. Pernyataan As pada function menentukan tipe data nilai yang akan dikembalikan (return value) setelah ‘tugas’-nya selesai. Untuk menggunakan sebuah procedure, maka procedure tersebut harus di- ‘panggil’ pada bagian tertentu dari kode program. Procedure subrutin di-‘panggil’ dengan pernyataan :
Keterangan ReturnVal : merupakan nilai pengembalian (return value). Contoh :
Latihan Buatlah desain form seperti ini
Atur propertinya seperti ini Kontrol Form 1 Frame1 Textbox1
Textbox2 Cmdbutton1
Tulis Source codenya seperti ini
Properti Name Caption Caption Name Text Alignment Maxlength Name Text Name Caption
Nilai Frmkonversi Konversi Angka ke Terbilang Txtangka 0 2 2 Txtterbilang Cmdkonversi Konversi
Hasil setelah dijalankan :
Dalam contoh latihan di atas terdapat beberapa syntax baru yang termasuk ke dalam function built-in, antara lain sebagai berikut : Syntax Left
Parameter (data string, panjang)
Right
(data string, panjang)
Mid
(data string, start, panjang)
Str
(data number)
Val
(data string)
Trim
(data string)
Kegunaan Mengambil sejumlah karakter dari sebuah data string dari kiri sejumlah panjang yang dutentukan. Mengambil sejumlah karakter dari sebuah data string dari kanan sejumlah yang telah ditentukan. Mengambil sejumlah karakter dari sebuah data string dari start yang telah ditentukan sejumlah panjang yang ditentukan. Mengkonversi tipe data kelompok number ke tipe data string. Mengkonversi tipe data string ke tipe data number Menghilangkan karakter spasi pada data string.
2. Built-In Function Selain function (fungsi) yang didefinisikan sendiri oleh programmer, visual basic juga menyediakan function bawaan yang dikenal dengan nama Built-In Function. Function Built-In ini disediakan untuk menangani beberapa masalah pengolahan, misalnya pengolahan string, bilangan, konversi dan lain-lain. Built-In String Function ini menangani operasi-operasi string. Left Fungsi ini akan mngembalikan nilai sejumlah karakte sebelah kiri ke sebuah string. Contoh penulisan syntax dalam bentuk umum Left(string, length)
Keterangan : - String : karakter yang aka diambil nilainya - Length : jumlah karakter yang diambil. Misal Dim MyString, strKiri MyString = “VBScript” strKiri = Left(MyString,, 3) ‘isi strKiri “VBS”. dari syntax tersebut di atas akan mengambil tiga string dari sebelah kiri. Right Fungsi ini akan mengembalikan nilai sejumlah karakter dari sebelah kanan sebuah string. Contoh penulisan dalam bentuk umum : Right(String, Length) Keterangan : - String : karakter yang akan diambil nilainya. - Length : jumlah karakter yang diambil. Misal Dim Teks, MyStr Teks = “Hello World” MyStr = Right(Teks, 1) MyStr = Right(Teks, 6) MyStr = Right(Teks, 20)
‘ ‘ ‘ ‘
Mendefinisikan String. Hasil “d”. Hasil “World”. Hasil “Hello World”.
Mid Mid ini digunakan untuk mengambil sebagian isi string dengan jumlah tertentu dari posisi yang anda tentukan. Contoh penulisan dalam bentuk umum : Mid(string, start, [length] Ketrangan : - String : strig yang akan diambil, dapat berupa variabel bertipe string. - Start : urutan karakter yang pertama diambil. - Length : Panjang karakter yang diambil. Misal Dim MyVar MyVar = Mid(“VB itu menggemaskan!”, 4, 3)
‘MyVar berisi “itu”.
Len Mengembalikan nilai numeric (angka) jumlah dari string atau variabel yang ditentukan. Contoh penulisan dalam bentuk umum : Len (string|variabel) Keterangan - String atau Variabel
: karakter atau variabel yang akan diambil nilainya.
MIsal Dim MyString MyString = Len (“VBScript”)
‘ MyString contains 8.
Berarti dalam program di atas nilai variabel MyString bernilai 8. Ltrim Ltrim ini digunakan untuk menghapus spasi di sebelah kiri sebelum ditemukan karakter selain spasi. Selain itu ada juga fungsi Rtrim yang digunakan untuk menghapus karakter spasi di sebelah kanan string. Contoh penulisan dalam bentuk umum : Ltrim(String) Rtrim(string) Trim(String) Keterangan - String : string yang akan dihilangkan spasinya. Misal Dim MyVar, Teks Teks = “VBScript” MyVar = Ltrim(Teks) MyVar = Rtrim(Teks) MyVar = Trim(Teks)
‘ MyVar berisi “VBScript”. ‘ MyVar berisi “VBScript”. ‘MyVar berisi “VBScript”.
Lcase dan Ucase Lcase ini berfungsi mengembalikan nilai string yang sudah diubah menjadi huruf kecil atau Lower Case, sementara fungsi dari Ucase berfungsi sebaliknya yaitu mengembalikan nilai string yang sudah diubah menjadi huruf besar atau Upper Case. Contoh penulisan dalam bentuk umu : UCase(string) LCase(string) Misal Dim MyString Dim LCaseString
Dim UCaseString MyString = “VBScript” LCaseString = LCase(MyString) UCaseString = UCase(MyString)
‘LCaseString “VBScript”. ‘LCaseString “VBScript”.
Split Fungsi ini digunakan untuk membagi string menjadi beberapa bagian yang dimasukan dalam array satu dimensi. Contoh penulisan bentuk umum : Split(string[,delimeter[,count[,compare]]]) Keterangan - String - Delimeter
: string yang akan di split : tanda yang dijadikan pemisah
Misal Dim MyString, MyArray MyString = Split(“VBxPACALxJAVA”,”x”) ‘ MySTring(0) isi “VB”. ‘ MyString(1) isi “PASCAL”. ‘ MyString(2) isi “JAVA”. String Dalam fungsi ini nantinya akan mengembalikan nilai karakter dengan menuliskan berulanulang karakter yang diinginkan. Contoh penulisan dalam bentuk umum : String(number, character) Misal Dim MyString MyString = String(5,”*”)
‘ hasil”*****”.
Asc Fungsi Asc akan mengembalikan nilai ACII dari sebuah karakter, dan jika sebuah string maka hasil dari ACII yang dipakai adalah sqmq. Contoh penulisan damam dalam bentuk umum : Asc(String) Misal Dim MyNumber MyNumber = Asc(‘A’) MyNUmber = Asc(‘a’) MyNumber = Asc(‘Apple”)
‘Returns 5. ‘Returns 97. ‘Returns 65.
StrReverse Fungsi ini akan mengembalikan nilai dengan mengembalikan urutan suatu string. Contoh penulisan dalam bentuk umum : strReverse(string1) Misal Dim MyStr MyStr = StrReverse(“VBScript”)
‘MyStr berisi “tpircSBV”.
InStr dan InStrRev Fungsi ini digunakan untuk mencari strig di dalam string dan akan mengembalikan nilai posisi pertama dari string yang dicari. Jika InStrRev sama dengan InStr maka pencarian dimulai dari belakang. Contoh penulisan dalam bentuk umum : InStr([start, ]string1, string2[, compare]) Misal Dim Teks, Cari, Posisi Teks = “XXpXXpXXPXXP” Cari = “P” Posisi = InStr(Teks, Cari)
LATIHAN
1.
Buatlah desain form seperti berikut
Kemudian tuliskan syntax programnya seperti berikut :
Jika di jalankan akan muncul seperti di bawah ini
2. Buatlah desain form seperti ini
Atur propertinya seperti ini Kontrol Form 1 Frame1 Textbox1
Textbox2 Cmdbutton1
Tulis Source codenya seperti ini
Properti Name Caption Caption Name Text Alignment Maxlength Name Text Name Caption
Nilai Frmkonversi Konversi Angka ke Terbilang Txtangka 0 2 2 Txtterbilang Cmdkonversi Konversi
Hasil setelah dijalankan :
