虚拟示波器的数据采集器解析方案

机中，再将动态链接库的访问入口及函数定义入口添加至VB6项目中，就是将提供的VB6实例程序中的module功能模块添加到自己的工程项目下即可。此时对USB设备的通信编程就几乎和访问本地硬盘中的文件差不多了，具体差别可以通过分析实例程序的句法来解决。下面给出计算机接收与发送数据的相关程序。

Option Explicit 变量定义

Dim myReq As DEMO_REQ

Dim mOpen As Integer

Private Sub Form_Load( ) 窗口加载事件

Dim mLength As Long

mIndex = 0

mOpen = CH371OpenDevice(mIndex) 窗体加载时打开设备

If mOpen = -1 Then

MsgBox 无法打开CH371设备 加载失败提示

End If

myReq.mCommand = HFF 用户定义命令

myReq.mBuffer(0) = H11 用户定义数据

myReq.mBuffer(1) = H22 用户定义数据

mLength = Len(myReq)

CH371WriteData(mIndex, myReq, mLength) 通过CH371发送命令数据

……

CH371ReadData(mIndex, myReq, mLength) 通过CH371接收应答数据

……

End Sub

四、结束语

使用CH371设计的USB接口的虚拟示波器目前已完成基本功能的验证，正在后期完善中，而且可以推出面向多种应用的不同级别的系列产品。实践表明其技术性能良好，功能强大、体积小巧、使用简便、价格低廉，是广大电子爱好者、开发者的有力助手。