基于指针式电测仪表自动化检定系统设计

　　3.2GPIB编程技术

　　数据通信是通过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