北极星

搜索历史清空

  • 水处理
您的位置:电力技术正文

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

2011-03-04 16:11来源:中国工控展览网关键词:指针式电测仪电力仪器仪表收藏点赞

投稿

我要投稿

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

投稿与新闻线索:陈女士 微信/手机:13693626116 邮箱:chenchen#bjxmail.com(请将#改成@)

特别声明:北极星转载其他网站内容,出于传递更多信息而非盈利之目的,同时并不代表赞成其观点或证实其描述,内容仅供参考。版权归原作者所有,若有侵权,请联系我们删除。

凡来源注明北极星*网的内容为北极星原创,转载需获授权。

指针式电测仪查看更多>电力仪器仪表查看更多>