基于指針式電測儀表自動(dòng)化檢定系統設計

　　3.2 GPIB編程技術(shù)

　　數據通信是通過(guò)AX4810P型GPIB 接口卡進(jìn)行的，在通訊時(shí)，這需要調用AX4810P.DLL 動(dòng)態(tài)鏈接庫中已聲明的功能函數。通訊前首先要對通訊接口初始化來(lái)打開(kāi)儀器、設置參數，調用ibdev函數。

　?。?）發(fā)送命令子程序

　　通過(guò)GPIB函數ibwrt將命令發(fā)送給Fluke5520A。其中參數dmm為通訊初始化時(shí)返回值，MeasureCmd為軟件設定Fluke5520A需產(chǎn)生的信號值。

　　Public Sub SendToDevice (MeasureCmd As String)

　　Dim cmdstr As String

　　‘向Fluke5520A發(fā)送需要輸出的信號值

　　cmdstr = "OUT " MeasureCmd + "; *WAI"

　　ret = ibwrt(dmm, cmdstr, Len(cmdstr))

　　‘使Fluke5520A執行命令

　　cmdstr = "OPER; *WAI"

　　ret = ibwrt(dmm, cmdstr, Len(cmdstr))

　　End Sub

　?。?）接收數據子程序

　　Fluke5520A向PC機返回的測量值存放在reading變量中，在調用此過(guò)程時(shí)所需要傳遞的參數count為PC機要從GPIB讀取數值的字節數。

　　Public Sub ReadFromDevice(count As Integer)

　　‘向儀器發(fā)送輸出數據命令

　　cmdstr = "OUT?"

　　ret = ibwrt(dmm, cmdstr, Len(cmdstr))

　　‘延遲10s

　　delay 1000

　　‘讀取數據

　　ret = ibrd(dmm, reading, count)

　　‘延遲20s

　　delay 2000

　　End Sub