Andy Prasetyo Utomo, S.Kom Pemrograman Terstruktur (Visual Basic 6.0)

Andy Prasetyo Utomo, S.Kom

Pemrograman Terstruktur (Visual Basic 6.0)

Procedure & Function (Visual Basic 6.0) Seringkali kita menuliskan beberapa kode yang sama berulang - ulang, yang sangat memboroskan memory dan membuat ukuran file kita semakin membengkak. Untuk mengatasi hal tersebut dapat dilakukan penghematan penulisan terhadap kode yang sering berulang dengan cara menggunakan sebuah/beberapa prosedur dan atau fungsi yang memang disediakan oleh Visual Basic. Berikut penjelasan mengenai procedure dan function tersebut.

Prosedur (Procedure) Dalam kenyataan seringkali program yang harus ditulis cukup panjang, sehingga kesalahan yang mungkin dibuat oleh seorang programmer semakin besar. Untuk mengatasi masalah tersebut dapat dilakukan dengan memecah program tersebut menjadi bagian-bagian kecil (rutin) tetapi tetap logis. Rutin-rutin kecil tersebut akan membuat penelusuran dan perawatan program menjadi lebih mudah dan terstruktur. Rutin-rutin kecil tersebut sering disebut dengan nama prosedur. Dalam Visual Basic terdapat 2 macam prosedur yaitu : 1) Prosedur umum (general purpose procedure) merupakan prosedur yang ditemukan di dalam daftar Drop Down pada jendela kode. 2) Prosedur Kejadian (Event procedure), prosedur yang berisi kode yang dijalankan ketika suatu kejadian dari kontrol di bangkitkan. Sedangkan prosedur-prosedur yang ditambahkan dalam sebuah program tersebut disebut subprogram. Ada 2 jenis subprogram dalam Visual Basic yaitu prosedur subrutin (subroutine procedures) dan prosedur fungsi (function procedures). I. Subrutin Subrutin merupakan prosedur umum (general porpuse procedure) yang ditulis dan ditambahkan dalam program. Format penulisan sebuah subrutin adalah sebagai berikut. [Public | Private] Sub ([<argumen>]) End Sub

Contoh Private Sub Pangkat() Dim Bilangan as Integer Bilangan = txtTotal.Text lblBilangan.Caption = Bilangan * Bilangan End Sub

Universitas Muria Kudus

1

Sistem Informasi



Keterangan : - Pernyataan [Public | Private] menentukan ruang lingkup (scope) procedure. Sebuah procedure dengan scope public bisa digunakan dalam lingkup project. Sedangkan procedure dengan scope private hanya bisa digunakan dalam lingkup form saja. - dibuat sebagai pengenal procedure saat di-‘panggil’. Aturan penamaan sebuah procedure sama dengan aturan penamaan sebuah variabel. Nama sebuah procedure dibuat unik, tidak boleh ada yang sama. - <argumen> merupakan serangkaian nilai dan tipe data yang dipakai oleh procedure untuk mengerjakan ‘tugas’-nya atau sering disebut sebagai paramater. Sebuah procedure bisa saja tidak memakai argumen sama sekali. Untuk menggunakan sebuah procedure, maka procedure tersebut harus di‘panggil’ pada bagian tertentu dari kode program. Procedure subrutin di-‘panggil’ dengan pernyataan : Call ([<argumen>])

Contoh Call Pangkat()

# Contoh Penerapan Aplikasi pemakaian subrutin (Program Pengatur property Font) 1) Buat desain form seperti dibawah ini.


2

Sistem Informasi



2) Atur Property Kontrol Seperti dibawah ini

Kontrol Form1 Frame1 Checkbox1 Checkbox2 Checkbox3 Checkbox4 Checkbox5 Textbox1 Frame2 Label1 Timer1

Property Name Caption Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Text Alignment Caption Name Caption Interval

Nilai Frmfont Setting Property Font Property Font Chkbold Font Bold Chkitalic Font Italic Chkunder Font Underline Chkstri Font Strikethru Chksize Font Size Txtsize 8 1 Preview lblset Latihan VB 500

3) Source Code


3

Sistem Informasi




4

Sistem Informasi



4) Aplikasi Pengatur Property Font Setelah Dijalankan

# Latihan Penerapan pemakaian subrutin 1)

Buat aplikasi program X pangkat Y yang sudah dicontohkan pada materi kemarin dengan menggunakan subrutin, dimana X dan Y nya adalah parameternya.

2)

Aplikasi untuk menampilkan bilangan dengan kelipatan 3 atau 4 dengan rentang tertentu seperti latihan kemarin tetapi menggunakan procedure dimana rentang nilai sebagai parameternya.


5

Sistem Informasi



II. Function Subrutin dan Fungsi sebenarnya mirip yaitu prosedur umum (general purpose procedure) yang ditulis dan ditambahkan dalam program. Bedanya Fungsi mengembalikan nilai sedangkan Subrutin tidak. Format penulisan sebuah Fungsi adalah sebagai berikut : [Public | Private] Function ([<argumen>]) As tipe_data> End Function

Contoh Function Pangkat(Bilangan as Integer) Pangkat = Bilangan * Bilangan End 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. - <argumen> 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 : ReturnVal = FunctionName [(Argumen list)]

Keterangan ReturnVal – merupakan nilai pengembalian (return value). Contoh Txtpangkat.text = pangkat(3)


6

Sistem Informasi



# Contoh Penerapan

Aplikasi pemakaian function (Program Konversi

angka ke terbilang) 1) Buat desain form seperti dibawah ini.

2) Atur Property Kontrol Seperti dibawah ini

Kontrol Form1 Frame1 Textbox1

Textbox2 Cmdbutton1


Property Name Caption Caption Name Text Alignment Maxlength Name Text Name Caption

7

Nilai Frmkonversi Konversi Angka ke Terbilang Txtangka 0 2 2 Txtterbilang Cmdkonversi Konversi

Sistem Informasi



3) Source Code


8

Sistem Informasi



4) Aplikasi Pengatur Property Font Setelah Dijalankan

5) Keterangan Syntax Baru

Syntax

Parameter

Left

(data string, panjang)

Right

(data string, panjang)

Mid

(data string, start, panjang)

Str

(data number)

Val

(data string)

Trim

(data string)


9

Kegunaan Mengambil Sejumlah karakter dari sebuah data string dari kiri sejumlah panjang yang telah ditentukan. Mengambil Sejumlah karakter dari sebuah data string dari kanan sejumlah panjang yang telah ditentukan. Mengambil Sejumlah karakter dari sebuah data string dari start yang telah ditentukan sejumlah panjang yang telah ditentukan. Mengkonversi tipe data kelompok number ke tipe data string Mengkonversi tipe data string ke tipe data number Menghilangkan karakter spasi pada data string

Sistem Informasi



# Latihan Penerapan pemakaian function Buat lah program konversi angka ke terbilang seperti contoh diatas, tapi jumlah maksimal digitnya 3


10

Sistem Informasi

Andy Prasetyo Utomo, S.Kom Pemrograman Terstruktur (Visual Basic 6.0)

Recommend Documents