ch375dll.bas

控制USB通信芯片ch372（VB端的程序）

Attribute VB_Name = "CH375DLL"

' 2003.09.08, 2003.12.28, 2004.10.15, 2004.12.05, 2004.12.10, 2005.01.20, 2005.02.23, 2005.07.15
'****************************************
'**  Copyright  (C)  W.ch  1999-2005   **
'**  Web:  http:'www.winchiphead.com  **
'****************************************
'**  DLL for USB interface chip CH375  **
'**  C, VC5.0                          **
'****************************************
'
' USB总线接口芯片CH375的应用层接口库  V2.1
' 南京沁恒电子有限公司  作者: W.ch 2005.07
' CH375-DLL  V2.1 , Support: Ctrl/Bulk/Int
' 运行环境: Windows 98/ME, Windows 2000/XP
' support USB chip: CH372/CH375
'
'

Type mUspValue
        mUspValueLow As Byte                  ' 02H 值参数低字节
        mUspValueHigh As Byte                 ' 03H 值参数高字节
End Type
Type mUspIndex
        mUspIndexLow As Byte                  ' 04H 索引参数低字节
        mUspIndexHigh  As Byte                ' 05H 索引参数高字节
End Type
Type USB_SETUP_PKT                            ' USB控制传输的建立阶段的数据请求包结构
    mUspReqType As Byte                       ' 00H 请求类型
    mUspRequest As Byte                       ' 01H 请求代码
    mUspValue As mUspValue                    ' 02H-03H 值参数
    mUspIndex As mUspIndex                    ' 04H-05H 索引参数
    mLength As Integer                        ' 06H-07H 数据阶段的数据长度
End Type

Public Const mCH375_PACKET_LENGTH = 64          ' CH375支持的数据包的长度
Public Const mCH375_PKT_LEN_SHORT = 8           ' CH375支持的短数据包的长度

Type WIN32_COMMAND                              '定义WIN32命令接口结构
   mFunction As Long                            '输入时指定功能代码或者管道号
                                                '输出时返回操作状态
   mLength As Long                              '存取长度,返回后续数据的长度
   mBuffer(mCH375_PACKET_LENGTH - 1) As Byte    '数据缓冲区,长度为0至255B
End Type
Public mWIN32_COMMAND As WIN32_COMMAND


' WIN32应用层接口命令
'Public Const IOCTL_CH375_COMMAND = (FILE_DEVICE_UNKNOWN * (2 ^ 16) Or FILE_ANY_ACCESS * (2 ^ 14) Or &HF37 * (2 ^ 2) Or METHOD_BUFFERED) ' 专用接口
'Public Const mWIN32_COMMAND_HEAD = mOFFSET(mWIN32_COMMAND, mBuffer)      ' WIN32命令接口的头长度
'Public Const mCH375_MAX_NUMBER = 16                                      ' 最多同时连接的CH375数
'Public Const mMAX_BUFFER_LENGTH = &H1000                                 ' 数据缓冲区最大长度4096
'Public Const mMAX_COMMAND_LENGTH = (mWIN32_COMMAND_HEAD + mMAX_BUFFER_LENGTH)        ' 最大数据长度加上命令结构头的长度
'Public Const mDEFAULT_BUFFER_LEN = &H400                                             ' 数据缓冲区默认长度1024
'Public Const mDEFAULT_COMMAND_LEN = (mWIN32_COMMAND_HEAD + mDEFAULT_BUFFER_LEN)      ' 默认数据长度加上命令结构头的长度

' CH375端点地址
Public Const mCH375_ENDP_INTER_UP = &H81            ' CH375的中断数据上传端点的地址
Public Const mCH375_ENDP_AUX_DOWN = &H1             ' CH375的辅助数据下传端点的地址
Public Const mCH375_ENDP_DATA_UP = &H82             ' CH375的数据块上传端点的地址
Public Const mCH375_ENDP_DATA_DOWN = &H2            ' CH375的数据块下传端点的地址

' 设备层接口提供的管道操作命令
Public Const mPipeDeviceCtrl = &H4                  ' CH375的综合控制管道
Public Const mPipeInterUp = &H5                     ' CH375的中断数据上传管道
Public Const mPipeDataUp = &H6                      ' CH375的数据块上传管道
Public Const mPipeDataDown = &H7                    ' CH375的数据块下传管道
Public Const mPipeAuxDown = &H8                     ' CH375的辅助数据下传管道

' 应用层接口的功能代码
Public Const mFuncNoOperation = &H0                 ' 无操作
Public Const mFuncGetVersion = &H1                  ' 获取驱动程序版本号
Public Const mFuncGetConfig = &H2                   ' 获取USB设备配置描述符
Public Const mFuncSetExclusive = &HB                ' 设置独占使用
Public Const mFuncResetDevice = &HC                 ' 复位USB设备
Public Const mFuncResetPipe = &HD                   ' 复位USB管道
Public Const mFuncAbortPipe = &HE                   ' 取消USB管道的数据请求
Public Const mFuncSetTimeout = &HF                  ' 设置USB通讯超时
Public Const mFuncBufferMode = &H10                 ' 设定缓冲上传模式及查询缓冲区中的数据长度

' USB设备标准请求代码
Public Const mUSB_CLR_FEATURE = &H1
Public Const mUSB_SET_FEATURE = &H3
Public Const mUSB_GET_STATUS = &H0
Public Const mUSB_SET_ADDRESS = &H5
Public Const mUSB_GET_DESCR = &H6
Public Const mUSB_SET_DESCR = &H7
Public Const mUSB_GET_CONFIG = &H8
Public Const mUSB_SET_CONFIG = &H9
Public Const mUSB_GET_INTERF = &HA
Public Const mUSB_SET_INTERF = &HB
Public Const mUSB_SYNC_FRAME = &HC

' CH375控制传输的厂商专用请求类型
Public Const mCH375_VENDOR_READ = &HC0              ' 通过控制传输实现的CH375厂商专用读操作
Public Const mCH375_VENDOR_WRITE = &H40             ' 通过控制传输实现的CH375厂商专用写操作

' CH375控制传输的厂商专用请求代码
Public Const mCH375_SET_CONTROL = &H51              ' 输出控制信号
Public Const mCH375_GET_STATUS = &H52               ' 输入状态信号

' 寄存器的位定义
Public Const mBitInputRxd = &H2                     ' 只读,RXD#引脚输入状态,1:高电平,0:低电平
Public Const mBitInputReq = &H4                     ' 只读,REQ#引脚输入状态,1:高电平,0:低电平


' 直接输入的状态信号的位定义
Public Const mStateRXD = &H200                      ' RXD#引脚输入状态,1:高电平,0:低电平
Public Const mStateREQ = &H400                      ' REQ#引脚输入状态,1:高电平,0:低电平

Declare Function CH375OpenDevice Lib "CH375DLL.DLL" (ByVal iIndex As Long) As Long
'打开CH375设备,返回句柄,出错则无效. 指定CH375设备序号,0对应第一个设备

Declare Sub CH375CloseDevice Lib "CH375DLL.DLL" (ByVal iIndex As Long)
'关闭CH375设备,指定CH375设备序号

Declare Function CH375GetVersion Lib "CH375DLL.DLL" ()
'获得DLL版本号,返回版本号

Declare Function CH375DriverCommand Lib "CH375DLL.DLL" (ByVal iIndex As Long, ByRef ioCommand As WIN32_COMMAND) As Long
' 直接传递命令给驱动程序,出错则返回0,否则返回数据长度
' iIndex 指定CH375设备序号
' WIN32_COMMAND 命令结构的指针
' 该程序在调用后返回数据长度,并且仍然返回命令结构,如果是读操作,则数据返回在命令结构中,
' 返回的数据长度在操作失败时为0,操作成功时为整个命令结构的长度,例如读一个字节,则返回mWIN32_COMMAND_HEAD+1,
' 命令结构在调用前,分别提供:管道号或者命令功能代码,存取数据的长度(可选),数据(可选)
' 命令结构在调用后,分别返回:操作状态代码,后续数据的长度(可选),
'   操作状态代码是由WINDOWS定义的代码,可以参考NTSTATUS.H,
'   后续数据的长度是指读操作返回的数据长度,数据存放在随后的缓冲区中,对于写操作一般为0

Declare Function CH375GetDrvVersion Lib "CH375DLL.DLL" () As Long
'获得驱动程序版本号,返回版本号,出错则返回0


Declare Function CH375ResetDevice Lib "CH375DLL.DLL" (ByVal iIndex As Long) As Boolean
' 复位USB设备, iIndex 指定CH375设备序号

Declare Function CH375GetDeviceDescr Lib "CH375DLL.DLL" (ByVal iIndex As Long, ByRef oBuffer As Any, ByRef ioLength As Long) As Boolean
' 读取设备描述符