I. Khởi động hệ thống- Đầu tiên bạn khởi động Visual Basic 6 (VB), chọn
Standard EXE và nhấn OK.
- Nhấn
Ctrl+T, chọn kiểm dòng
Microsoft Windows Common Controls 6.0 (SP6)II. Thiết kế giao diện chương trình- Bạn hãy tạo giao diện chương trình như sau
Cách tạo:- Nhấn
và rê chuột và khung thiết kế, kéo vẽ 1 hình chữ nhật. Vậy là bạn đã tạo được 1 nhãn chữ, kéo nó lại cho đúng với hình.
- Nhấn
để kéo vẽ thêm 4 nút lệnh
- Nhấn
để tạo thêm 1 đồng hồ.
- Nhấn
rồi tạo thêm 1 thanh trượt.
- Nhấp vô khoảng trống trên cửa sổ, rồi kéo các ô vuông lại cho vừa với các control, bạn sẽ được như vầy:
Thiết lập thuộc tính cho các control:- Bạn có thấy cái Properties bên tay phải mình không ?
- Nhấn chọn
Form1, thiết lập các thuộc tính như sau:
Name: FrmMain
Caption: Anti Mosquito
BorderStyle: 1 – Fixed Single
MiniButton: True
- Tương tự, bạn thiết lập thuộc tính cho các control khác:
Slider1
Name: SldFeq
Max: 12000
TickStyle: 4 - SldNoTicks
Value: 12000
Command1
Name: CmdStart
Caption: Start
Command2Name: CmdStop
Caption: Stop
Command3: Name: CmdAbout
Caption: About
Command4:Name: CmdExit
Caption: Exit
Timer1:
Name: TimTimer
Enabled: False
Interval: 100
- Vậy là bạn được như sau:
III. Viết code :
- Chọn
View > code, khung soạn thảo code hiện ra:
- Bạn dán đoạn mã này vào:
- Code:
-
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Dim TanSo As Long
Private Sub CmdAbout_Click()
MsgBox "Make By Quang Luc", vbInformation
End Sub
Private Sub CmdExit_Click()
TimTimer.Enabled = False
Unload
End Sub
Private Sub CmdStart_Click()
TimTimer.Enabled = True
End Sub
Private Sub CmsStop_Click()
TimTimer.Enabled = False
End Sub
Private Sub SldFeq_Change()
TanSo = SldFeq.Value
End Sub
Private Sub TimTimer_Timer()
Beep TanSo, 50
DoEvents
End Sub
Vậy là xong, bây giờ dịch chương trình ra thành 1 file exe, vào
File >
Make Project1.exe, chọn nơi lưu file là xong.
4/2/2008, 6:55 pm
