USB.zip_Basic Compiler_usb_vb USB编程

-> Z.x 使用VB.NET执行USB传输 使用USBDLL.dll档的3个函式CheckHidDevice(),ReadUSB(),WriteUSB(),执行USB传输界面的输出入. 步骤1: 开启VB.NET新专案, 步骤2: 在Form1.vb程式码的"Windows Form 设计工具产生的程式码"的下方,输入下列程式码,如图x. Declare Auto Function CheckHidDevice Lib "USBDLL.dll" (ByVal PID As Integer, ByVal VID As Integer) As Integer Declare Auto Function ReadUSB Lib "USBDLL.dll" (ByVal Buffer As Byte(), ByVal Size As Integer) As Integer Declare Auto Function WriteUSB Lib "USBDLL.dll" (ByVal Buffer As Byte(), ByVal Size As Integer) As Integer 步骤3:在表单加入一按钮物件Button1,设定[text]属性为" 启动UBS连线",并输入下列程式码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckHidDevice(&HFF0A, &H102C) = 0 Then MsgBox("Connect Device Error") Else Button1.Text = "connect ....Now" End If End Sub 步骤4:在表单加入一文字方块TextBox1,设定[text]属性为" 0";再加入一按钮物件Button2,设定[text]属性为" 写入USB",并输入下列程式码, Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Buf(1024) As Byte Dim size As Integer Buf(0) = &H0 Buf(1) = Hex(TextBox1.Text) size = WriteUSB(Buf, 2) If size = 0 Then MsgBox("Write Data Error") Else MsgBox(size) End If End Sub 步骤5:在表单加入文字标签Label1,设定[text]属性为" 0";加入一按钮物件Button3,设定[text]属性为" 读取USB"再加入一计时器Timer1并输入下列程式码, Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Buf(1024) As Byte Dim i As Integer Dim size As Integer For i = 0 To 1023 Buf(i) = 0 Next size = ReadUSB(Buf, 3) If size = 0 Then MsgBox("Read Error") Timer1.Stop() Else Label1.Text() = Buf(1) End If End Sub 步骤6:在表单加入一按钮物件Button4,设定[text]属性为" 结束连线",并输入下列程式 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click End End Sub 步骤6:点选[建置-建置方案]功能表指令,完成专案的建置. 步骤7: 将" USBDLL.dll"档案复制到本专案下的bin子目录. 启动专案子目录bin内的ET44USB1.exe程式,画面如下图: