PIC Vietnam

PIC Vietnam (http://www.picvietnam.com/forum/index.php)
-   Giao tiếp cổng COM và LPT (http://www.picvietnam.com/forum/forumdisplay.php?f=44)
-   -   Giao diện VB 6 điều khiển LED (http://www.picvietnam.com/forum/showthread.php?t=11175)

caremlanh 13-09-2011 01:08 AM

Hướng dẫn tạo giao diện VB 6 điều khiển LED
 
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.
http://i1218.photobucket.com/albums/...D/0-ketqua.png
Link download
http://www.mediafire.com/download.php?nr9ngswev4je6td

caremlanh 13-09-2011 10:31 PM

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

http://i1218.photobucket.com/albums/.../1-project.png

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

caremlanh 13-09-2011 10:33 PM

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

http://i1218.photobucket.com/albums/...ED/2-frame.png

caremlanh 13-09-2011 10:35 PM

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

http://i1218.photobucket.com/albums/...ED/3-label.png

caremlanh 13-09-2011 10:38 PM

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

http://i1218.photobucket.com/albums/...ED/4-shape.png

caremlanh 13-09-2011 10:41 PM

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

http://i1218.photobucket.com/albums/...5-checkbox.png

caremlanh 13-09-2011 10:45 PM

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

http://i1218.photobucket.com/albums/...LED/6-copy.png

caremlanh 13-09-2011 10:46 PM

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

http://i1218.photobucket.com/albums/...D/7-on-off.png

caremlanh 13-09-2011 10:47 PM

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

http://i1218.photobucket.com/albums/..._LED/8-com.png

caremlanh 13-09-2011 11:30 PM

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

http://i1218.photobucket.com/albums/...LED/9-code.png

http://i1218.photobucket.com/albums/...0-Formload.png

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 13-09-2011 11:38 PM

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

http://i1218.photobucket.com/albums/...D/11-oncom.png

caremlanh 13-09-2011 11:39 PM

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

http://i1218.photobucket.com/albums/...D/12-click.png

caremlanh 13-09-2011 11:42 PM

11. Chọn vị trí Layout
http://i1218.photobucket.com/albums/.../13-layout.png

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 24-11-2011 01:46 PM

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

jaxuan 23-02-2012 10:41 AM

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!!


Múi giờ GMT. Hiện tại là 06:27 PM.

Tên diễn đàn: vBulletin Version 3.8.11
Được sáng lập bởi Đoàn Hiệp.
Copyright © PIC Vietnam