Deny's Blogspot

7. SUBROUTINE DAN FUNGSI

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 :

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.