Fakultas Teknik Praktikum 8
MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC
Moh. Anshori Aris Widya, S.Kom UNIPDU (Universitas Pesantren Tinggi Darul Ulum) 2013-2014
UNIPDU | Komplek Pondok Pesantren Tinggi Darul ‘Ulum Peterongan Jombang 61481
2014
PRAKTIKUM 8 PROCEDURE DAN FUNCTION
A. Tujuan - Mengenal Prosedur (Procedure) dalam Visual Basic 2008 - Mengenal Fungsi (Function) dalam Visual Basic 2008 B. Perangkat Lunak (Software) - Microsoft Visual Basic 2008 C. Procedure dalam Visual Basic 2008 Procedure adalah blok statement (perintah) yang dapat dieksekusi dalam suatu program yang diawali dengan pernyataan deklarasi tertentu dan diakhiri dengan suatu perintah End sebagai tanda akhir dari suatu Procedure. Tujuan dibuatnya sebuah Procedure adalah untuk memudahkan dan melakukan efisiensi dari suatu blok perintah yang dieksekusi berulang-ulang dalam suatu program. Secara umum terdapat 2 macam procedure dalam Visual Basic 2008 yaitu : 1. Sub Sub merupakan Procedure yang tidak mengembalikan nilai balik saat pemanggilan berlangsung. Bentuk penulisannya adalah Penulisan Sub Sub Nama_Procedure Statement1 Statement2 ………….. End Sub Untuk pemanggilan Procedure adalah Call Nama_Procedure
Contoh Penulisan Sub HurufBesar text2.Text = Strings.Ucase(text1.Text) text1.Focus() End Sub Untuk pemanggilan Procedure diatas adalah Call HurufBesar
Contoh diatas merupakan sebuah Procedure yang digunakan untuk membuat tulisan di text2 menjadi huruf kapital semua. 2. Function Function merupakan Procedure yang mengembalikan nilai balik saat pemanggilan berlangsung. Penulisan Function Function Nama_Function(Parameter) Statement1 Statement2 ………….. Return ….. End Function Untuk pemanggilan Procedure adalah Nama_Function(………..)
1 | Pemrograman Visual Basic UNIPDU 2013-2014
Contoh Penulisan Function HurufBesar(ByVal kata As String) As String Dim tulisan$ = Strings.UCase(teks) Return tulisan End Function Untuk pemanggilan Function adalah text2.Text = HurufBesar(text1.Text)
Contoh diatas merupakan sebuah Function yang digunakan untuk membuat tulisan di text2 menjadi huruf kapital semua. Pada penulisan diatas terdapat sebuah parameter. Parameter yang dimaksud adalah data/variabel yang diproses melalui sebuah Procedure. Ada 3 macam parameter dalam Visual Basic 2008 yaitu : a. ByVal ByVal merupakan parameter yang nilai aslinya tidak dapat dimodifikasi oleh Procedure. Parameter ini merupakan parameter default dan yang paling sering digunakan di Visual Basic 2008 b. ByRef ByRef merupakan parameter yang nilai aslinya dapat dimodifikasi oleh Procedure. c. Exception Elemen yang dianggap bukan variabel, tidak akan bisa dimodifikasi meskipun didefinisikan sebagai By Ref Pemanggilan sebuah Function secara umum selalu diarahkan ke sebuah variabel sebagai penampung nilai balik dari fungsi tersebut. Karenanya, sebuah fungsi lebih sering digunakan untuk operasi-operasi matematika atau sesuatu yang menggunakan perhitungan. Dalam Procedure terdapat istilah yang menyatakan bahwa suatu Procedure tertentu (termasuk Method) menangani sebuah Event tertentu. Dengan adanya pernyataan handles maka bisa diasumsikan bahwa sebuah Procedure mampu menangani penggunaan beberapa Control sekaligus (terutama yang sejenis). D. Praktikum Membuat Aplikasi Windows 1. Konsep Project a. Aplikasi berbentuk transparan dan menguji coba procedure. 2. Buat Project baru 3. Tambahkan control-kontrol berikut ke dalam Form Design No
1
Object
Form
Property Name Text FormBorderStyle StartPosition BackColor BackgroundImage BackgroundImageLayout TransparencyKey
Nilai frmtransparan Form Transparan None CenterScreen Control (Isikan gambar yang telah disertakan) Center Control
2
GroupBox
Text
Warna Tulisan
3
GroupBox
Text
Model Tulisan
2 | Pemrograman Visual Basic UNIPDU 2013-2014
RadioButton
Name Text Checked
rbtmerah Merah False
RadioButton
Name Text Checked
rbtputih Putih False
6
RadioButton
Name Text Checked
rbtbiru Biru False
7
RadioButton
Name Text Checked
rbthijau Hijau False
RadioButton
Name Text Checked
rbtkuning Kuning False
9
RadioButton
Name Text Checked
rbthitam Hitam True
10
RadioButton
Name Text Checked
rbtkiri Rata Kiri True
11
RadioButton
Name Text Checked
rbttengah Rata Tengah False
12
RadioButton
Name Text Checked
rbtkanan Kanan False
TextBox
Name Text Font MultiLine BackColor BorderStyle
txttulisan (dikosongi) Calibri, 16 True Silver None
Name BackColor BorderStyle Image
pbok Transparent None (Isi dengan gambar yang telah disertakan) Hand
4
5
8
13
14
PictureBox
Cursor
15
PictureBox
Name BackColor BorderStyle Image Cursor
3 | Pemrograman Visual Basic UNIPDU 2013-2014
pbreset Transparent None (Isi dengan gambar yang telah disertakan) Hand
16
Name BackColor BorderStyle Image
PictureBox
pbkeluar Transparent None (Isi dengan gambar yang telah disertakan) Hand
Cursor
4. Desain sedemikian rupa sehingga menjadi gambar dibawah ini 14
15
1
16
2 3 7 10
4 5
11
6
12
8
9
13
4 | Pemrograman Visual Basic UNIPDU 2013-2014
5. Berikut ini listing aplikasi tersebut a. Procedure WarnaTulisan Sub WarnaTulisan() If rbtmerah.Checked = True Then txttulisan.ForeColor = Color.Red If rbtputih.Checked = True Then txttulisan.ForeColor = Color.White If rbtbiru.Checked = True Then txttulisan.ForeColor = Color.Blue If rbthijau.Checked = True Then txttulisan.ForeColor = Color.Green If rbtkuning.Checked = True Then txttulisan.ForeColor = Color.Yellow If rbthitam.Checked = True Then txttulisan.ForeColor = Color.Black End Sub
b. Procedure ModelTulisan Sub ModelTulisan() If rbtkiri.Checked = True Then txttulisan.TextAlign = HorizontalAlignment.Left If rbttengah.Checked = True Then txttulisan.TextAlign = HorizontalAlignment.Center If rbtkanan.Checked = True Then txttulisan.TextAlign = HorizontalAlignment.Right End Sub
c. pbok Private Sub pbok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbok.Click Call WarnaTulisan() Call ModelTulisan() End Sub
d. pbreset Private Sub pbreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbreset.Click txttulisan.Text = "" rbthitam.Checked = True rbtkiri.Checked = True End Sub
e. pbkeluar Private Sub pbkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbkeluar.Click Close() End Sub
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 7. Analisa dan perhatikan apakah project yang dibuat telah sesuai konsep yang telah ditentukan (konsep akan diterangkan pada saat praktikum). 8. Simpan Project anda (untuk penjelasan mengenai Listing Program akan diterangkan pada saat praktikum). E. Referensi - Soetam Rizky. Learning By Sample Visual Basic 2008, Jakarta: Prestasi Pustaka, 2010.
5 | Pemrograman Visual Basic UNIPDU 2013-2014
