Cách viết chương trình đuổi muỗi đơn giản

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

Command2
Name: 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.

Đây chỉ là 1 chương trình nhỏ được viết bằng VB, nó nhằm mục đích để học nên bạn nào pro đừng "la làng" nhé

giống tiếng bom rơi trong phòng tin bữa trước đó hả ? Đuổi muỗi hay đuổi người ?