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/VirtualSerialPortDriver691134.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

[jaxuan]

Mình đang làm một đồ án và có bài này mình không biết phải làm sao. Cho mình hỏi về giao tiếp Vb với led. Trên Vb mình tạo nút dịch trái và dịch phải, khi mình ấn nút dịch trái (hay dịch phải) thì led sáng dần trên protues. Mình không biết viết code như thế nào trên VB và code cho pic để nạp. Mong các bạn giải đáp thắc mắc cho mình, cám ơn!!