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)設(shè)備

If mOpen = -1 Then

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

End If

myReq.mCommand = HFF 用戶定義命令

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

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

mLength = Len(myReq)

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

……

CH371ReadData(mIndex, myReq, mLength) 通過(guò)CH371接收應(yīng)答數(shù)據(jù)

……

End Sub

四、結(jié)束語(yǔ)

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