Tài liệu thực hành thiết bị số - Bài 7: Giao tiếp hid - Usb bằng vb6

Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 1 BÀI 7: GIAO TIẾP HID-USB BẰNG VB6 1. SƠ ĐỒ MẠCH ĐIỆN TỬ GIAO TIẾP USB VỚI VB6: Khi chạy mô phỏng proteus nếu chương trình proteus không kết nối USB, vào thư mục C:\Program Files\Labcenter Electronics\Proteus 8 Professional\DRIVERS Cài VirtualUSBDriver.exe vào máy. Chuyển sơ đồ nguyên lý sang PCB và thi công mạch. M C L R RB0 RB1 RB2 RB3 RB4 RB5 RB6 PGC RB7 PGD RD0 RD1 RD2 RD3 RD4 RD5 RD6 RD7 R B 0 R B 1 R B 2 R B 3 R B 4 R B 5 R B 6 R B 7 RA0 RA1 RA2 RA3 RA4 RA0 RD0 RD1 RD2 RD3 RD4 RD5 RD6 RA4 RA1 RA2 RA3 MCLR PGD PGC TXD RXD RA0/AN0 2 RA1/AN1 3 RA2/AN2/VREF-/CVREF 4 RA3/AN3/VREF+ 5 RA4/T0CKI/C1OUT/RCV 6 RA5/AN4/SS/LVDIN/C2OUT 7 RA6/OSC2/CLKO 14 OSC1/CLKI 13 RB0/AN12/INT0/FLT0/SDI/SDA 33 RB1/AN10/INT1/SCK/SCL 34 RB2/AN8/INT2/VMO 35 RB3/AN9/CCP2/VPO 36 RB4/AN11/KBI0/CSSPP 37 RB5/KBI1/PGM 38 RB6/KBI2/PGC 39 RB7/KBI3/PGD 40 RC0/T1OSO/T1CKI 15 RC1/T1OSI/CCP2/UOE 16 RC2/CCP1/P1A 17 VUSB 18 RC4/D-/VM 23 RC5/D+/VP 24 RC6/TX/CK 25 RC7/RX/DT/SDO 26 RD0/SPP0 19 RD1/SPP1 20 RD2/SPP2 21 RD3/SPP3 22 RD4/SPP4 27 RD5/SPP5/P1B 28 RD6/SPP6/P1C 29 RD7/SPP7/P1D 30 RE0/AN5/CK1SPP 8 RE1/AN6/CK2SPP 9 RE2/AN7/OESPP 10 RE3/MCLR/VPP 1 U1 PIC18F4550 R1 10k C5 10u VCC D+ D- GND J1 AU-Y1005-R X1 20Mhz C6 22pF C7 22pF D1 LED-BIBY D2 LED-BIBY D3 LED-BIBY D4 LED-BIBY D5 LED-BIBY D6 LED-BIBY D7 LED-BIBY D8 LED-BIBY R2 330 R3 330 R4 330 R5 330 R6 330 R7 330 R8 330 R9 330 8 3 % RV1 1k R10 330 R11 330 R12 330 R13 330 R14 330 R15 330 R16 330 R17 4K7 R18 4K7 R19 4K7 R20 4K7 C9 100u C10 104 R21 470 D9 LED-BIBY 1 2 3 4 5 J3 BUS NAP Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 2 2. THIẾT KẾ GIAO DIỆN VB6 GIAO TIẾP USB ĐIỀU KHIỂN 8 LED ĐƠN: Yêu cầu: Thiết kế giao diện gồm 3 nút nhấn: nút nhấn 1 điều khiển 8 led sáng, nút nhấn 2 điều khiển 8 led tắt, nút nhấn 3 điều khiển thoát khởi chương trình. Hướng dẫn: Vẽ giao diện như hình vẽ: Add thêm HIDcomm ActiveX Control Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 3 Kích chuột phải vào HID chọn properties: Cửa sổ properties pages hiện ra chọn Browse Chọn thiết bị USB cần kết nối giao tiếp Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 4 Viết chương trình như sau: Nhấp double vào form viết chương trình sau: Private Sub Form_Load() If HIDComm1.Connected = False Then HIDComm1.Connect End If End Sub Nhấp double vào nút nhấn “SÁNG 8 LED” viết code: Private Sub Command1_Click() Dim buffer() As Byte ReDim buffer(8) buffer(0) = 255 HIDComm1.WriteTo buffer(), 8 End Sub Nhấp double vào nút nhấn “TẮT 8 LED” viết code: Private Sub Command2_Click() Dim buffer() As Byte ReDim buffer(8) Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 5 buffer(0) = 0 HIDComm1.WriteTo buffer(), 8 End Sub Nhấp double vào nút nhấn “THOÁT” viết code: Private Sub Command3_Click() End End Sub 3. THIẾT KẾ GIAO DIỆN VB6 GIAO TIẾP USB ĐIỀU KHIỂN LED 7 ĐOẠN SÁNG TỪ 0 ĐẾN 9: Vẽ giao diện như hình vẽ: Viết code như sau: Dim I Dim MA7DOAN(10) As Byte Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 6 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() MA7DOAN(0) = &HC0 MA7DOAN(1) = &HF9 MA7DOAN(2) = &HA4 MA7DOAN(3) = &HB0 MA7DOAN(4) = &H99 MA7DOAN(5) = &H92 MA7DOAN(6) = &H82 MA7DOAN(7) = &HF8 MA7DOAN(8) = &H80 MA7DOAN(9) = &H90 If HIDComm1.Connected = False Then HIDComm1.Connect End If End Sub Private Sub Timer1_Timer() Dim buffer() As Byte ReDim buffer(8) buffer(1) = MA7DOAN(I) HIDComm1.WriteTo buffer(), 8 If I < 9 Then Tài liệu thực hành thiết bị số Ngô Thanh Đông Trang 7 I = I + 1 Else I = 0 End If End Sub