PROCEDURE DAN FUNCTION Mardhiya Hayaty, ST, M.Kom
Sub Rutin
Adalah kumpulan program Digunakan untuk mengurangi jumlah baris kode program yang penggunaannya mungkin berulangulang/sering dipakai Dalam bahasa pemrograman visial basic, sub rutin terbagi 2 yaitu : procedure dan function
Procedure & Function 1. 2. 3.
Keuntungan : Kode program menjadi lebih sederhana Satu prosedur dapat dipakai berulang-ulang Mudah dikembangkan dan mudah dimodifikasi terutama utnuk kode program yang rumit
Procedure Sintaks untuk prosedur Sub adalah: [Private|Public][Static]Sub namaprosedur (argumen) statements End Sub Keterangan : Public : Procedure dapat diakses di semua procedur dalam sebuah modul. Private : Procedure dapat dikases oleh procedure lain dalam satu modul Static : Variabel lokal dari procedure dipertahankan nilainya
Procedure
Contoh: Private Sub TampilkanPesan() Dim strKalimat As String strKalimat = "Selamat datang di Visual Basic Indonesia" MsgBox strKalimat, vbInformation End Sub
Procedure
Pernyataan-pernyataan yang berada di antara baris Sub dan End Sub dieksekusi (statements) Prosedur Sub dapat ditempatkan di dalam standard modules, class modules, dan module form. Prosedur Sub secara default Public dalam semua module, yang artinya mereka dapat dipanggil dari manapun di aplikasi.
Tipe procedure 1.
2.
General procedure Didefinisikan sendiri oleh programmer Akan bekerja setelah procedure tersebut dipanggil Event Procedure Akan bekerja jika ada event/kejadian pada saat run –time Event procedure dipasangkan pada event sebuah objek/component
Memanggil procedure
Call namaprosedur atau langsung dipanggil nama prosedurnya Contoh : Call TampilkanPesan Atau TampilkanPesan
Function
Seperti prosedur, Function adalah kumpulan perintah yang terpisah yang dapat menerima argumen, mengeksekusi sekumpulan pernyataan, dan mengubah nilai argumennya. Tidak seperti prosedur, Function dapat mengembalikan nilai ke pemanggil prosedurnya.
Function
Sintak [Private|Public][Static]Function procedurename (arguments) [As type] statements End Function Argument adalah parameter beserta tipe datanya
Procedure vs Function Procedure Definisi
Sebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnya
Parameter
Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional). Menggunakan keyword “Sub”.
Deklarasi
Function
Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel. Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional). Menggunakan keyword “Function”,untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.
Function
Contoh Function luas_segitiga(alas, tinggi) As Double luas_segitiga = 0.5 * alas * tinggi End Function
Contoh pemanggilan Private Sub CMd_Hitung_Click()
Txthasil.Text = luassegitiga(5, 11) End Sub
Function
Contoh pemanggilan 2
Private Sub CMd_Hitung_Click() Txthasil.Text = luassegitiga(txtalas.Text, txttinggi.Text)
End Sub Adalah nilai parameter input Adalah sebuah nama function
Built in Function
Adalah function yang disediakan oleh visual basic/vendor Fungsi Built in - string Fungsi built in - matematika
Built in function - String
Left Right Mid LTrim kiri RTrim kanan Trim kanan Len LCase UCase Str (int) Chr (Asscii)
→ mengambil karakter dari sebelah kiri → mengambil karakter dari sebelah kanan → mengambil karakter dari tengah → membuang semua semua awal spasi yang ada disebelah → membuang semua semua awal spasi yang ada disebelah → membuang semua spasi yang ada disebelah kiri dan → memberikan nilai balik integer sebagai panjang string → mengubah string menjadi huruf kecil semua → mengubah string menjadi huruf besar semua → mengubah bilangan menjadi string (konversi) → konversi dari nilai ascii menghasilkan karakter
Built in function - mathematics
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
Built in function – date and time
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
