Contoh
Program : Procedure Test
1. Aktifkan VB 6 melalui tombol Start.
2. Buka kembali project Latihan.vbp.
3. Tambahkan Form baru ke dalam Project.
4. Pada Jendela Form
buatlah UI seperti ini :
5. (Gunakan komponen
Label dan CommandButton)
6. Pengaturan
property setiap object-nya adalah sebagai berikut :
Opject
|
Properties
|
Value
|
Form11
|
Caption
StartUpPosition
|
Procedure Test
2 – Center Screen
|
Label1
|
Alignment
BackColor
Font
ToolTipText
|
2 – Center
Palette : <putih>
Size : 24
Dobel-Klik di Sini
|
Command1
|
Caption
ToolTipText
|
Sub Test
Klik di Sini
|
Command2
|
Caption
|
Function Test
|
7. Buka
Jendela Code, lalu pada bagian Code Editor ketikkan kode programnya sebagai
berikut :
Private Sub TulisTeks(teks As String,
warna As ColorConstants)
With Label1
.Caption = teks
.ForeColor = warna
End With
End Sub
Private Function JumlahAngka() As
String
Dim angka1 As String, angka2 As String
Dim hasil As Single
angka1 = InputBox("Tulis angka 1
:", "Jumlah Angka")
angka2 = InputBox("Tulis angka 2
:", "Jumlah Angka")
If angka1 <> "" And
angka2 <> "" Then
hasil = CSng(angka1) + CSng(angka2)
JumlahAngka = Cstr(hasil)
End If
End Function
Private Sub Label1_DblClick()
Call TulisTeks("Hai",
vbBlue)
End Sub
Private Sub Command1_Click()
Call TulisTeks("Hallo",
vbRed)
End Sub
Private Sub Command2_Click()
Label1.Caption = "Jumlah = "
& JumlahAngka()
End Sub
8.
Simpan Form11 (nama file : Lat11.frm).
Catatan
: Anda bisa men-download file Lat1-11.zip.
Klik
menu Project > Project1 Properties lalu klik tab General. Gantilah Startup
Object-nya menjadi Form11.
Coba
jalankan Project-nya :
Dobel-klik Label1, akan muncul tulisan “Hai” dengan warna biru.
Klik Command1, akan muncul tulisan “Hallo” dengan warna merah.
Klik Command2, akan muncul kotak input.
Ketikkan angka 5, lalu klik tombol OK.
Ketikkan angka 10, lalu klik tombol OK.
Akan muncul tulisan “Jumlah = 15”.
Dapat anda lihat
bahwa prosedur Tulisteks dipanggil, dan dimasukkan 2 variabel ke dalamnya yaitu
teks dan warna. Selanjutnya kedua argumen tersebut diolah oleh prosedure
Tulisteks. Akhirnya ditampilkan tulisan dan warnyanya yang merupakan hasil dari
properti Caption dan Forecolor dari obyek label.
1.4 Pernyataan
Optional
Nilai argumen di dalam
sebuah procedure dapat dibuat menjadi optional (boleh ada atau tidak ada). Bila
nilai argumen yang optional tidak ada, maka yang digunakan adalah nilai
default-nya. Untuk membuat nilai argumen menjadi optional, tambahkan pernyataan
Optional di depan argumen-nya dan berikan nilai default-nya, contoh :
vbMagenta)
With Label1
.Caption = teks
.ForeColor = warna
End With
End Sub
Bila
nilai argumen warna tidak ada, maka warna teks pada Label1 adalah magenta,
contoh :
Call TulisTeks("Hallo")
1.5 Pernyataan
ByRef dan ByVal
Nilai argumen yang dikirimkan ke dalam procedure bisa saja berasal
dari sebuah variabel. Namun demikian, perlu diperhatikan bahwa nilai argumen
yang dikirimkan ke dalam procedure bisa berdasarkan referensi (ByRef) atau
berdasarkan nilai (ByVal). Default-nya nilai argumen dikirimkan berdasarkan
referensi. Apabila variabel dikirimkan berdasarkan referensi, maka semua
perubahan yang dilakukan terhadap argumen akan mempengaruhi variabel tersebut.
Hal ini terkadang menimbulkan logical error. Sebagai ilustrasi
perhatikan contoh berikut ini :
Dim
Harga As Currency, Total As Currency
Private Sub HitungDiskon(HargaAwal As
Currency, Diskon As Single)
HargaAwal = HargaAwal * (1 - Diskon)
Total = CCur(HargaAwal)
Private Sub Command3_Click()
Harga = 10000
Total = 0
Call HitungDiskon(Harga, 0.1)
MsgBox "Harga " & Harga
& " setelah diskon 10% menjadi " & Total
End Sub
Hasilnya
Harga 9000 setelah
diskon 10% menjadi 9000
Variabel
Harga dikirimkan berdasarkan referensi (ByRef), sehingga perubahan pada argumen
HargaAwal akan mempengaruhi variabel Harga.
Modifikasi
procedure sub HitungDiskon menjadi sebagai berikut :
Private Sub HitungDiskon(ByVal
HargaAwal As Currency, Diskon As Single)
HargaAwal = HargaAwal * (1 - Diskon)
Total = CCur(HargaAwal)
End Sub
Hasilnya
Harga 10000 setelah
diskon 10% menjadi 9000
Sekarang variabel Harga dikirimkan
berdasarkan nilai (ByVal), sehingga perubahan pada argumen HargaAwal tidak akan
mempengaruhi variabel Harga.
1.6
Procedure Built-in
VB6
menyediakan cukup banyak procedure yang siap-pakai (built-in) untuk
berbagai ‘tugas’. Coba klik menu View – Object Browser atau tekan tombol F2
pada keyboard :
1.
Cari module Strings pada bagian Classes.
2.
Lihat daftar pada bagian Member of ‘Strings’ yang merupakan kumpulan
procedure dengan ‘tugas’ pengolahan data string.
3.
Klik nama procedure untuk mengetahui apa ‘tugas’-nya.
|