基于指針式電測儀表自動化檢定系統設計

　　3.2 GPIB編程技術

　　數據通信是通過AX4810P型GPIB 接口卡進行的，在通訊時，這需要調用AX4810P.DLL 動態鏈接庫中已聲明的功能函數。通訊前首先要對通訊接口初始化來打開儀器、設置參數，調用ibdev函數。

　　（1）發送命令子程序

　　通過GPIB函數ibwrt將命令發送給Fluke5520A。其中參數dmm為通訊初始化時返回值，MeasureCmd為軟件設定Fluke5520A需產生的信號值。

　　Public Sub SendToDevice (MeasureCmd As String)

　　Dim cmdstr As String

　　‘向Fluke5520A發送需要輸出的信號值

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

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

　　‘使Fluke5520A執行命令

　　cmdstr = "OPER; *WAI"

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

　　End Sub

　　（2）接收數據子程序

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

　　Public Sub ReadFromDevice(count As Integer)

　　‘向儀器發送輸出數據命令

　　cmdstr = "OUT?"

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

　　‘延遲10s

　　delay 1000

　　‘讀取數據

　　ret = ibrd(dmm, reading, count)

　　‘延遲20s

　　delay 2000

　　End Sub