虛擬示波器的數據采集器解析方案

Option Explicit 變量定義

Dim myReq As DEMO_REQ

Dim mOpen As Integer

Private Sub Form_Load( ) 窗口加載事件

Dim mLength As Long

mIndex = 0

mOpen = CH371OpenDevice(mIndex) 窗體加載時(shí)打開(kāi)設備

If mOpen = -1 Then

MsgBox 無(wú)法打開(kāi)CH371設備 加載失敗提示

End If

myReq.mCommand = HFF 用戶(hù)定義命令

myReq.mBuffer(0) = H11 用戶(hù)定義數據

myReq.mBuffer(1) = H22 用戶(hù)定義數據

mLength = Len(myReq)

CH371WriteData(mIndex, myReq, mLength) 通過(guò)CH371發(fā)送命令數據

……

CH371ReadData(mIndex, myReq, mLength) 通過(guò)CH371接收應答數據

……

End Sub

四、結束語(yǔ)

使用CH371設計的USB接口的虛擬示波器目前已完成基本功能的驗證，正在后期完善中，而且可以推出面向多種應用的不同級別的系列產(chǎn)品。實(shí)踐表明其技術(shù)性能良好，功能強大、體積小巧、使用簡(jiǎn)便、價(jià)格低廉，是廣大電子愛(ài)好者、開(kāi)發(fā)者的有力助手。