Giao diện VB 6 điều khiển LED

[caremlanh]

Bài viết có tham khảo từ trang http://www.hocavr.com/index.php/app/gtmt/gtmt2#laptrinh

Dùng phần mềm tạo cổng com ảo
http://www.4shared.com/file/ygCSieKa...ver691134.html
add pair COM4 và COM5 để mô phỏng
COM4 dùng cho Proteus, COM5 dùng cho VB.

Link download
http://www.mediafire.com/download.php?nr9ngswev4je6td

[caremlanh]

1. Chạy Visual Basic 6, vào menu “File/New Project” và tạo 1 Project “Standard EXE”



Menu “File / Save Project As”, save Form và Project với tên bất kì.

[caremlanh]

2. Đặt một “Frame” lên Form
- Caption = DATA

[caremlanh]

3. Đặt một “Label” lên Frame
- Name lblLED
- Caption = LED0
- Index = 0
- Font = “chọn Font chữ, cỡ chữ”

[caremlanh]

4. Đặt một “Shape” lên Frame
- Name shpLED
- Shape = 3-Circle
- FillStyle = 1-Transparent
- FillColor chọn màu đỏ.
- Index=0

[caremlanh]

4. Đặt một “checkBox” lên Frame
- Name chkSW
- Caption để trống
- Index = 0

[caremlanh]

5. Giữ Ctrl hoặc Shift, nhấp chọn Label, Shape, checkBox tạo ở trên và Copy.
Chú ý nhấp chọn Frame trước rồi Paste lên Frame
Đổi Label Caption thành LED1,…, LED7.
Index sẽ tự động tăng từ 1 => 7

[caremlanh]

6. Đặt “label”
- Caption = Nhan ON/OFF de bat tat LED

[caremlanh]

7. Tìm và đặt MSComm lên Form
Menu “Project / Components”

[caremlanh]

8. Nhấp đúp vào Form và viết code





Giải thích:
- CommPort = 5 nghĩa là chúng ta muốn kết nối với cổng COM5.
- Settings = "9600,N,8,1" nghĩa là tốc độ Baud=9600, không sử dụng bit Parity, độ dài khung truyền là 8, có 1 bit Stop.
- RThreshold = 1 nghĩa là khi có 1 ký tự đến cổng COM, ngắt nhận dữ liệu xảy ra
- InputLen = 1 nghĩa là khi đọc dữ liệu từ bộ đệm nhận, chúng ta sẽ đọc lần lượt 1 ký tự (1 byte).
- PortOpen = True tức cho phép “mở” cổng COM để sẵn sàng giao tiếp
Chọn menu “View / Object” hoặc Shift-F7 để quay lại Form

[caremlanh]

9. Nhấp đúp vào biểu tượng MSComm1 để viết code vào sự kiện MSComm1_OnComm()

[caremlanh]

10. Nhấp đúp vào 1 chkSW bất kì

[caremlanh]

11. Chọn vị trí Layout


12. Menu “Run / Start” hoặc bấm F5 để chạy file giao diện
Mở file Proteus lên và chạy mô phỏng

Mẹo nhỏ: Ta có thể tạo file exe để sử dụng mà ko cần mở project
Menu “File / Make … exe”

[longero]

chuong trinh viet cho pic sao bien dich bao loi hoai vay anh

[caremlanh]

Nguyên văn bởi longero

chuong trinh viet cho pic sao bien dich bao loi hoai vay anh

kiếm file def_877a.h bỏ vô project hay bỏ vô thư mục Devices của CCS, mình thì để trong Devices nên lúc post quên mất chuyện này