Title: BAB 11
1BAB 11
- KOMPONEN-KOMPONEN LAIN DALAM VB6
2- PENGUBAHSUAIAN CIRI OBJEK SEMASA LARIAN
- ATURCARA dan penggunaan metod
- Anda boleh mengubahsuai ciri objek semasa larian
- aturcara mengikut kehendak anda.
- Dalam hal ini penggunaan metod untuk acara adalah
- sangat penting. Berikut adalah contoh metod bagi
satu - form bernama frmUbahSuai.
3Bagaimana menggunakan metod. Contoh berikut
menunjukkan bagaimana apabila tetikus digerakkan
diatas form akan berlaku perubahan
kepada ciri-ciri form tersebut. Objek-objek yang
wujud di atas form juga boleh diubahsuai
ciri-cirinya berdasarkan acara. Jadi tetikus yang
digerakkan adalah merupakan acara.
4Bina sebuah antaramuka seperti dalam rajah
dibawah
Sebelum larian aturcara, ciri-ciri objek adalah
menggunakan default. Apabila larian dilakukan.
Pergerakan tetikus boleh mengubah ciri-ciri objek
yang wujud di dalam form.
5Gunakan aturcara yang berikut Untuk acara
menggerakkan tetikus di atas form. Private Sub
Form_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single) listHasil.AddIt
em ("Tetikus anda sedang digerakkan") listHasil.Ad
dItem ("warna latarbelakang frameHasil
diubah") lblMakluman.FontName "Arial
Black" lblMakluman.BackColor HFF0000 lblMakluma
n.FontSize "10" frmUbahSuai.BackColor
HFFFF listHasil.BackColor vbGreen frameHasil.F
ontName "Tahoma" frameHasil.BackColor
vbBlue frameHasil.Caption "Hasil telah diubah
ketika tetikus digerakkan" End Sub
6Gunakan aturcara yang berikut Untuk acara klik
tetikus di atas form. Private Sub
Form_Click() End End Sub Apabila penggunakan
klik tetikus di mana-mana kawasan form maka akan
menamatkan larian aturcara ini.
7Contoh larian aturcara
Setelah tetikus digerakkan di atas form
Sebelum tetikus diletakkan di atas form
82. PENGGUNAAN TIMER Timer merupakan objek untuk
membuat jangkaan masa. Ia merupakan objek yang
sangat istimewa berbanding objek lain dalam VB
kerana ia hanya satu acara Timer(). Metod
interval dalam timer pula kebiasaannya adalah
1000 kerana 1000 bersamaan 1 saat masa
sebenar. Bagaimana timer boleh digunakan?. Lihat
contoh berikut dimana timer digunakan untuk
memaparkan jam digital bergantung kepada masa
sistem komputer yang digunakan.
9Bina sebuah antaramuka seperti dalam rajah
dibawah
lblTimer
frmUntukTimer
timerJam
Berikan nama-nama yang sesuai bagi setiap objek
yang wujud di dalam antaramuka di atas. Setkan
interval kepada 1000. Lihat rajah dibawah ini.
10Gunakan aturcara yang berikut Untuk acara
Form_Load() Private Sub Form_Load() lblTimer.Cap
tion Hour(Time) "" Minute(Time) ""
Second(Time) End Sub Pada permulaan larian
aturcara, akan dipaparkan waktu sekarang
berdasarkan waktu pada komputer yang melaksanakan
aturcara ini.
11Gunakan aturcara yang berikut Untuk acara
timerJam_Timer() Private Sub timerJam_Timer() sa
at Second(Time) minit Minute(Time) jam
Hour(Time) If Time gt "120000" Then pmoram
" Petang" If saat lt 59 Then
lblTimer.Caption Hour(Time) ""
Minute(Time) "" saat pmoram End If
If minit lt 59 Then lblTimer.Caption
Hour(Time) "" minit "" Second(Time)
pmoram End If If jam lt 23 Then
lblTimer.Caption jam "" Minute(Time) ""
Second(Time) pmoram End If Else
Sambungan
12Sambung
pmoram " Pagi" If saat lt 59 Then
lblTimer.Caption Hour(Time) ""
Minute(Time) "" saat pmoram End If
If minit lt 59 Then lblTimer.Caption
Hour(Time) "" minit "" Second(Time)
pmoram End If If jam lt 23 Then
lblTimer.Caption jam "" Minute(Time) ""
Second(Time) pmoram End If End If End Sub
13Contoh larian aturcara
Detik pertama
Beberapa detik kemudian
Detik apabila bertukar dari 153459 kepada
15350
Detik-detik seterusnya
143. TIME/DATE Fungsi time dan date adalah
penting untuk mendapatkan masa daripada sistem
komputer. Ia amat penting untuk diletakkan dalam
form atau memasukkan masa ke dalam pangkalan
data. Contoh ini akan menggunakan penentuan
login dan password untuk memasukki sesuatu
sistem.
15Bina sebuah antaramuka seperti dalam rajah
dibawah
frmTimeDate Digunakan sebagai antaramuka utama
Berikan nama yang sesuai bagi setiap objek yang
wujud
frmpaparmasuk Digunakan untuk memaparkan
maklumat tarikh masuk dan masa masuk untuk
pengguna tersebut
16Gunakan aturcara yang berikut Untuk frmTimeDate
Untuk butang clear Private Sub
cmdClear_Click() txtLogin "" txtPword "" End
Sub Untuk butang keluar Private Sub
cmdKeluar_Click() End End Sub
17Gunakan aturcara yang berikut Untuk butang
masuk Private Sub cmdMasuk_Click() jumpa
False lblMesej "" lblMesej.BackColor
HFFFF00 adoLogin.RecordSource "select from
maklumatLogin" adoLogin.Refresh adoLogin.Recordset
.MoveFirst Do While adoLogin.Recordset.EOF
False If adoLogin.Recordset("login")
txtLogin And adoLogin.Recordset("password")
txtPword Then adoLogin.Recordset("tarikhma
suk") Date adoLogin.Recordset("masamasuk
") Time jumpa True End If
adoLogin.Recordset.MoveNext Loop
Sambungan..
18Sambung
If jumpa Then frmpaparmasuk.lblLogin
txtLogin frmpaparmasuk.lblPassword
txtPword frmpaparmasuk.lbltmasuk Date
frmpaparmasuk.lblmmasuk Time Call
frmpaparmasuk.Show Else lblMesej.BackColor
HFFFF00 lblMesej " Tiada maklumat dalam
pangkalan data" End If End Sub
19Gunakan aturcara yang berikut Untuk
frmpaparmasuk Untuk butang ok Private Sub
cmdOk_Click() frmTimeDate.lblMesej.BackColor
H8000000F Unload Me End Sub
20Contoh larian aturcara
Sebelum masuk login dan password
selepas masuk login dan password dan pengguna
tersebut wujud dalam pangkalan data
21Contoh larian aturcara
Jika maklumat pengguna tidak wujud, maka ada
paparan mesej untuknya
Jika password yang dimasukkan tidak betul
224. MESSAGE BOX Message box merupakan paparan
maklumat kepada pengguna melalui menu paparan. Ia
mempunyai butang kawalan untuk pengguna klik
apabila selesai membaca maklumat. Contoh berikut
ini akan memaparkan satu message box untuk tekaan
yang tepat dan juga tekaan yang tidak tepat. Ia
juga akan mengubah warna lblHasil kepada hijau
bila tepat dan merah apabila tidak tepat. Tiada
proses menekan butang. Jadi metod yang digunakan
adalah txtNombor_KeyUp(KeyCode As Integer, Shift
As Integer) Message box ini juga akan memaparkan
icon information untuk tekaan tidak tepat dan
icon exclamation untuk tekaan tepat
23Bina sebuah antaramuka seperti dalam rajah
dibawah
txtNombor
frmMsgBox
lblHasil
cmdKeluar
24Gunakan aturcara yang berikut Untuk
txtNombor_KeyUp(KeyCode As Integer, Shift As
Integer) gunakan aturcara berikut Private Sub
txtNombor_KeyUp(KeyCode As Integer, Shift As
Integer) nomborbaca txtNombor If nomborbaca ltgt
12 Then lblHasil.BackColor HFF i
MsgBox("Tekaan tidak tepat", vbOKOnly
vbExclamation vbCritical, "Teka Lagi!!")
lblHasil.BackColor H8000000F Else
lblHasil.BackColor HFF00 i
MsgBox("Tekaan anda tepat", vbOKOnly
vbInformation, "Tahniah !!")
lblHasil.BackColor H8000000F End If End Sub
25Hasil larian aturcara
Detik permulaan
Tekaan tidak tepat
Tekaan tepat
265. PENGGUNAAN DRIVELISTBOX, DIRLISTBOX DAN
FILELISTBOX. Di dalam contoh ini ditunjukkan
cara menyenaraikan nama semua fail yang wujud
dalam sesebuah direktori. Penggunaan yang sangat
mudah. Tetapi contoh ini terhad untuk melihat
nama fail sahaja dan tidak melibatkan sebarang
proses.
27Bina antaramuka seperti dalam rajah berikut
Pilih semua objek itu dari toolbox. Klik dan
letak sahaja di atas form
28Letakkan aturcara pendek berikut Private Sub
Dir1_Change() File1.Path Dir1.Path End
Sub Private Sub Drive1_Change() Dir1.Path
Drive1.Drive End Sub
29Contoh larian aturcara
Sungguh mudah !!!!!
307. PENGGUNAAN MODULES Modules merupakan suatu
kemudahan seakan-akan sebuah fungsi. Modules
boleh disediakan oleh pengaturcara dengan
menggunakan arahan-arahan bahasa pengaturcaraan
VB. Modules di dalam VB akan disediakan
berasingan dari aturcara utama di dalam
form. Modules boleh dikenali oleh sesuatu form
berdasarkan nama fungsi yang terkandung di dalam
modules. Modules akan disimpan dalam sebuah fail
khas dengan sambungan .bas. Contohnya
modCariBesar.bas Di dalam contoh-contoh yang akan
ditunjukkan diberikan perbezaan fungsi dalam form
dengan modules.
31Contoh penggunaan fungsi 1. Dalam contoh ini
ditunjukkan penggunaan fungsi. Fungsi ini dibina
di dalam form yang sama dengan aturcara
utama. Berlainan dengan fungsi yang dibina dalam
modules, fungsi di dalam form yang sama hanya
boleh dicapai oleh form tersebut dan tidak boleh
dicapai oleh form-form lain walaupun ia berada
dalam satu projek yang sama. Lihat contoh ini,
satu jadual sifir akan dilaksanakan.
32Bina antaramuka seperti dalam rajah berikut
listNombor
frmGunaFunc
Dalam contoh ini satu lagi metod
listNombor_Click() akan digunakan
33Gunakan aturcara berikut untuk acara
listNombor_Click() Private Sub
listnombor_Click() Dim X, Y As Integer Dim nilai
As Integer Dim sifirapa As String frmGunaFunc.Cls
Print Print Print Print Print Print Print Print
Sambungan
34Sambung
y listNombor.Text sifirapa tentuSifir(Y) Print
(" " sifirapa) Print For X 1
To 12 nilai kiraDarab(X, Y) Print ("
" X " x " Y " "
nilai) Next End Sub
35Gunakan aturcara berikut untuk dua fungsi yang
ditakrifkan di dalam form tersebut. Untuk fungsi
kiraDarab. Digunakan untuk mengira hasil darab
antara dua parameter dan memulangkan hasilnya
kepada aturcara utama dalam frmGunaFunc. Private
Function kiraDarab(ByVal nombor As Integer, ByVal
sifir As Integer) As Integer Dim i As Integer i
nombor sifir kiraDarab i End Function
36Untuk fungsi tentuSifir Digunakan untuk
menentukan bentuk ayat yang sesuai dengan sifir
tersebut. Contohnya jika pilih 1 maka fungsi ini
akan memulangkan string Sifir Satu Private
Function tentuSifir(ByVal ambil As Integer) As
String Select Case ambil Case 1
tentuSifir " Satu " Case 2
tentuSifir " Dua " Case 3
tentuSifir " Tiga " Case 4
tentuSifir " Empat "
Sambungan..
37Sambung..
Case 5 tentuSifir " Lima " Case 6
tentuSifir " Enam " Case 7
tentuSifir " Tujuh " Case 8
tentuSifir " Lapan " Case 9
tentuSifir " Sembilan " Case 10
tentuSifir " Sepuluh " Case 11
tentuSifir " Sebelas " Case 12
tentuSifir " Dua belas " End Select tentuSifir
" Sifir" tentuSifir End Function
38Contoh larian aturcara
Detik apabila 8 dipilih dan klik
Detik permulaan
39Contoh penggunaan fungsi 2 (penggunaan
modules) Dalam contoh ini ditunjukkan penggunaan
fungsi. Fungsi ini dibina didalam modules tetapi
boleh digunakan oleh form-form lain yang wujud
dalam projek yang sama. Berlainan dengan fungsi
yang dibina dalam form, fungsi di dalam modules
boleh dicapai oleh mana-mana form, asalkan
modules itu dikenali di dalam projek. Berikut
adalah rajah bagaimana modules telah dikenali di
dalam sesuatu projek
40Perhatian !!!!!. Aturcara di dalam form hanya
mengenali nama fungsi yang wujud di dalam modules
tersebut. Tetapi kebiasaannya kita boleh
gunakan nama fungsi yang sama dengan nama modules
untuk memudahkan proses rujukan kepada modules
tersebut. Seperti biasa nama memainkan peranan
untuk memudah pengaturcara untuk mengetahui
fungsinya
41- Contoh yang akan ditunjukkan akan membahagikan
pembinaan aturcara kepada 3 bahagian. - Membina form bernama frmGunaModules
- Membina modules bernama terbesar yang mempunyai
fungsi CariTerbesar yang akan disimpan di dalam
fail cariBesar.bas - Membina modules bernama terkecil yang mempunyai
fungsi CariTerkecil yang akan disimpan di dalam
fail cariKecil.bas - Aturcara ini akan menentukan nombor terbesar dan
nombor terkecil daripada 3 nombor yang diinputkan
oleh pengguna.
42- Membina form bernama frmGunaModules
- Bina antaramuka seperti dalam rajah dibawah
frmGunaModules
txtNombor1
txtNombor2
txtNombor3
txtTerbesar
txtTerkecil
cmdKeluar
cmdTentukan
43Gunakan aturcara berikut Untuk butang tentukan.
Dim nilaiterbesar, nilaiterkecil As
Integer Private Sub cmdTentukan_Click() nilaiterbe
sar CariTerbesar(txtNombor1, txtNombor2,
txtNombor3) txtTerbesar nilaiterbesar nilaiterke
cil CariTerkecil(txtNombor1, txtNombor2,
txtNombor3) txtTerkecil nilaiterkecil End
Sub Dalam aturcara di atas diperlukan dua
fungsi. Tetapi fungsi ini tidak berada dalam form
yang sama. Ia berada di dalam modules.
44Gunakan aturcara berikut Untuk modules
terbesar(CariBesar.bas) Option Explicit Dim
terbesar As Integer Public Function
CariTerbesar(ByVal nom1 As Integer, ByVal nom2 As
Integer, ByVal nom3 As Integer) As Integer If
nom1 gt nom2 And nom1 gt nom3 Then terbesar
nom1 ElseIf nom2 gt nom1 And nom2 gt nom3 Then
terbesar nom2 Else terbesar nom3 End
If CariTerbesar terbesar End Function
45Gunakan aturcara berikut Untuk modules
terkecil(CariKecil.bas) Option Explicit Dim
terkecil As Integer Public Function
CariTerkecil(ByVal nom1 As Integer, ByVal nom2 As
Integer, ByVal nom3 As Integer) As Integer If
nom1 lt nom2 And nom1 lt nom3 Then terkecil
nom1 ElseIf nom2 lt nom1 And nom2 lt nom3 Then
terkecil nom2 Else terkecil nom3 End
If CariTerkecil terkecil End Function