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