7.1 Subroutine
Subroutine atau procedure adalah suatu blok program
terpisah yang digunakan untuk mengerjakan suatu pekerjaan tertentu. Kegunaan
yang umum dari subroutine adalah menghemat kode
program bila terjadi proses yang
sama diulang berkali-kali. Penulisan
subroutine di dalam Visual Basic dibedakan menjadi 3 macam:
1.
Subroutine yang bersifat event dari komponen
tertentu (subroutine ini sudah tersedia dalam library Visual Basic sebagai
modul OOP dalam Visual Basic) dituliskan dengan:
Private Sub Komponen_Event(Input)
<blok program dalam subroutine>
…………………………………………………………………………………
End Sub
2.
Subroutine yang bersifat metode private dimana
pemanggilan subroutinenya hanya ditulis dengan nama subroutine (Subroutine ini adalah subroutine
yang dibuat sendiri), dituliskan dengan:
Private Sub Nama_Fungsi(Input)
<blok program dalam subroutine>
…………………………………………………………………………………
End Sub
3.
Subroutine yang bukan event atau metode, dimana
pemanggilannya menggunakan call NamaSubroutine, dituliskan dengan:
Sub Komponen_Event(Input)
<blok program dalam subroutine>
…………………………………………………………………………………
End Sub
Pemakaian Subroutine semacam ini banyak ditemui pada pemrograman game
dalam Visual Basic.
7.2 Fungsi
Sama seperti subroutine, fungsi adalah suatu blok
program yang digunakan untuk suatu pekerjaan tertentu. Beda fungsi dan subroutine
adalah subroutine tidak menghasilkan nilasi sedangkan fungsi menghasilkan
nilai.Fungsi sering kali digunakan untuk proses-proses perhitungan. Pernyataan
fungsi secara umum dituliskan dengan:
Output =
Fungsi(Input)
Sebagai contoh untuk menyata kan fungsi f dengan input
x dan output y dituliskan dengan y=f(x). Definisi fungsi di dalam Visual Basic
mengikuti aturan fungsi dimana ada input dan ada output dituliskan dengan:
Private Function NamaFungsi(Input) As Tipe_Data_Output
<Blok di dalam fungsi>
………………………………………………
NamaFungsi=<Nilai yang keluar dari Fungsi>
End Function
Contoh Subroutine
Aplikasi 7.1
Membuat subroutine pilihan option yang dipilih ketika option di-click
seperti gambar 7.1 berikut:
Gambar Aplikasi 7.1
a.
Tambahkan label, isi property [Appereance]
dengan 0-Flat, isi property [Font] size dengan 18 bold.
b.
Tambahkan 4 komponen option menggunakan control
array, isi [Caption] dari masing-masing option dengan {“Komputer”, ”Monitor”,
“Printer”, “Assesories”}. Atur posisinya seperti gambar 7.1.
c.
Pada layar code, tambahkan subroutine berupa event ketika option dipilih:
Private Sub Option1_Click(Index As Integer)
Label1 = Option1(Index).Caption
End Sub
d.
Simpan project dengan nama projectLatihan71.
8. BERMAIN DENGAN WAKTU
8.1 Tipe Data Waktu
Di dalam Visual
Basic, dikenal adanya tipe data waktu baik itu Date maupun Time.Tipe data waktu
ini digunakan untuk keperluan-keperluhan pengolahan yang berhubungan dengan
waktu, misalkan transaksi, lama proses, periode dan lain-lain. Untuk menyatakan
tipe data waktu di dalam Visual Basic seperti halnya tipe data yang lain,
asalkan variabelnya bukan array dan bukan global variable, maka tidak perlu
didefinisikan. Pada dasarnya satuan yang digunakan dalam tipe data waktu di
Visual Basic adalah hari. Untuk mengetahui waktu sekarang dapat menggunakan dua
perintah waktu yaitu:
1.
Time: menyatakan waktu berupa tanggal dan jam
2.
Timer: menyatakan berapa detik hari ini sudah
berjalan, misalkan jam 7.00 maka nilai timernya adalah 7x(60x60) + 0x60 + 0 =
18200.
8.2 Komponen Timer
Selain menggunakan perintah
Time dan Timer, Visual Basic juga
menyediakan komponen Timer dengan ikon
pada toolboxnya. Perintah timer ini sangat baik untuk
mengimplementasikan pengaruh waktu terhadap suatu proses seperti proses animasi
atau dalam pembuatan game supaya kecepatan dari game bisa diatur.
Contoh Aplikasi Bermain dengan
Waktu
Contoh Aplikasi 8.1
Menghitung tanggal setelah 5 hari
dari saat ini , dapat dilakukan dengan :
.png)
Gambar 8.1. Hasil
tampilan 8.1
Pada jendela code, tambahkan kode
program berikut:
Private Sub Command1_Click()
tanggal_hari_ini = Date
tanggal_5_hari_lagi = tanggal_hari_ini + 5
Text1 = tanggal_hari_ini
Text2 = tanggal_5_hari_lagi
End Sub
Perintah Date menghasilkan
tanggal hari ini.Bila data waktu (termasuk tanggal dan waktu) ditambahkan
dengan a, maka artinya ditambah 5 hari. Bila a=1/24 maka artinya waktu ditambah
1/24 hari atau 1 jam. Bila a=1/(24*60) artinya waktu ditambah dengan 1 menit.
Simpan project dengan nama
projectLatihan81.
