基于指針式電測儀表自動化檢定系統(tǒng)設(shè)計(jì)

　　3.2 GPIB編程技術(shù)

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

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

　　通過GPIB函數(shù)ibwrt將命令發(fā)送給Fluke5520A。其中參數(shù)dmm為通訊初始化時(shí)返回值，MeasureCmd為軟件設(shè)定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執(zhí)行命令

　　cmdstr = "OPER; *WAI"

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

　　End Sub

　?。?）接收數(shù)據(jù)子程序

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

　　Public Sub ReadFromDevice(count As Integer)

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

　　cmdstr = "OUT?"

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

　　‘延遲10s

　　delay 1000

　　‘讀取數(shù)據(jù)

　　ret = ibrd(dmm, reading, count)

　　‘延遲20s

　　delay 2000

　　End Sub