usb_module.bas

vb与USB通信的通用编程示例 基于vb的主机编程示例实现对usb的数据传输

Attribute VB_Name = "TMC_USB_Module"
'*******************************************************************************************
'USB Drv Module
'*******************************************************************************************

Option Explicit

'驱动用消息ID
Public Const DEV_DEP_MSG_OUT = 1
Public Const REQUEST_DEV_DEP_MSG_IN = 2

Public bulkOutbTag As Byte          'USB Flag Counter

'/*******************************************************************************
'
'  **  函数名称:     ReadUSB
'  **  输入参数
'  **  devIndex ---  设备编号
'  **  wLength  ---  需要从USB端口读取数据的长度（字节为单位）
'  **  pBuffer  ---  接收返回数据的存储空间的指针（应用程序端开辟该存储空间）
'  **
'  **  输出参数:
'  **  返回类型 ---  BOOL类型
'  **
'  **  描    述:     读USB端口，使用批量传输从设备读取数据
'********************************************************************************/
Public Declare Function ReadUSB Lib "RigolTMCUsb_UI.dll" (ByVal devIndex As Long, _
                                                          ByVal wLength As Long, _
                                                          ByVal pBuffer As Long) As Boolean


'/*******************************************************************************
'
'  **  函数名称:     WriteUSB
'  **  输入参数
'  **  devIndex ---  设备编号
'  **  MsgID    ---  需要的消息id号
'  **  bTag     ---  传输标志
'  **  wLength  ---  需要从USB端口读取数据的长度（字节为单位）
'  **  pBuffer  ---  应用程序端开辟该存储空间用于存放要写入设备的数据
'  **
'  **  输出参数:
'  **  返回类型 ---  BOOL类型
'  **
'  **  描    述:     写USB端口，使用批量传输向设备写入数据
'********************************************************************************/
Public Declare Function WriteUSB Lib "RigolTMCUsb_UI.dll" (ByVal devIndex As Long, _
                                                           ByVal MsgID As Integer, _
                                                           ByVal bTag As Byte, _
                                                           ByVal wLength As Long, _
                                                           ByVal pBuffer As Long) As Boolean


'//获取当前系统中的设备数目
Public Declare Function GetTMCDeviceNum Lib "RigolTMCUsb_UI.dll" () As Byte


'*******************************************************************************************
'  **  函数名称: BuildBulkbTag
'  **  输入参数: 无
'  **  输出参数: 无
'  **  函数说明: 建立传输标志
'*******************************************************************************************
Sub BuildBulkbTag()
    bulkOutbTag = bulkOutbTag + 1
    If (bulkOutbTag >= 255 Or bulkOutbTag < 0) Then
        bulkOutbTag = 0
    End If
End Sub