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

上一页  [1] [2] [3]  下一页