找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索

[体系] [请教]关于GPIB的自动测试编程问题

[复制链接]
oldfish 发表于 2010-9-6 13:53:04 | 显示全部楼层 |阅读模式
想学习一下用VB编程通过GPIB来控制测量仪器,请问有关于这方面的书籍吗?或者这方面比较详细的资料。
多谢达人指点!
 楼主| oldfish 发表于 2010-9-7 23:03:32 | 显示全部楼层
请搞过这方面的前辈指点一下,谢谢
回复

使用道具 举报

 楼主| oldfish 发表于 2010-9-13 22:36:08 | 显示全部楼层
:( 不晓得该如何入手呀
回复

使用道具 举报

b7e3 发表于 2010-9-13 22:45:05 | 显示全部楼层
個人覺得用LabView來進行GPIB控制可能更簡單也更實用
回复

使用道具 举报

 楼主| oldfish 发表于 2010-9-13 22:57:30 | 显示全部楼层
是的,类似平台确实方便,我只是想学习下vb对于控制gpib的编程
回复

使用道具 举报

jecmeasurement 发表于 2010-9-14 21:31:51 | 显示全部楼层
我也建议用LabView來進行GPIB控制。确实很方便!
回复

使用道具 举报

 楼主| oldfish 发表于 2010-9-15 20:56:59 | 显示全部楼层
应该有不少前辈做过VB对GPIB的编程吧,指点一下吧,谢谢
回复

使用道具 举报

DouYa 发表于 2010-11-16 20:24:42 | 显示全部楼层
回复 6# jecmeasurement


    能给点指导吗,
回复

使用道具 举报

hunter 发表于 2010-11-17 18:25:37 | 显示全部楼层
首先,要简单学习vb,至少要达到简单编程的程度,手里有一半vb编程的书。其次,安装Agilent的IO套件,主要应用在vb与仪器直接的连接及编程时SCPI语言与vb之间的连接,相当于函数库,利用这个函数库,直接将SCPI命令写入vb代码中即可。数据输出,建议使用Excel,比较简单,网上有很多vb和Excel的源代码可以参考。
setup:  'ioDmm1.WriteString("*RST") '初始化设置5720A
        'ioDmm1.WriteString("*RST") '初始化设置5720A
        ioDmm2.WriteString("*RST")                     ' Reset the dmm
        ioDmm2.WriteString("*CLS")                     ' Clear dmm status registers

DCV100mv:
        Dim i As Integer
        ioDmm2.WriteString(":conf:Volt:dC 10,0.1,") '初始化设置34401A
        ioDmm2.WriteString(":conf:Volt:dC:NPLC 10")
        ioDmm2.WriteString("TRIGger:SOURce IMMediate")
        ioDmm2.WriteString("TRIGger:DELay 10")
        ioDmm2.WriteString("SAMPle:COUNt 1")
        'ioDmm1.WriteString("out 10 mv")
        'ioDmm1.WriteString("oper")
        
以上程序,'ioDmm1.WriteString(xxxx), ioDmm1 为自定义变量,WriteString就是Agilent IO套件的函数,(xxxx)就是cspi命令

以下是34401A的部分命令
Measurement Commands
MEASure:CAPacitance? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:CONTinuity?

MEASure:CURRent:AC? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:CURRent[:DC]? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:DIODe?

MEASure:FREQuency? [{<range>|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:FRESistance? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:PERiod? [{<range>|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:RESistance? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure:TEMPerature? {FRTD|RTD|THERmistor|DEF}, {<type>|DEF} [,1 [,{<resolution>|MIN|MAX|DEF}] ]

MEASure[:VOLTage]:AC? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]

MEASure[:VOLTage][:DC]? [{<range>|AUTO|MIN|MAX|DEF} [,{<resolution>|MIN|MAX|DEF}] ]



希望对你有用
回复

使用道具 举报

DouYa 发表于 2010-11-22 19:58:29 | 显示全部楼层
回复 9# hunter


    顺便问一下34401A还有5700的命令在哪找得到呢,
回复

使用道具 举报

 楼主| oldfish 发表于 2010-12-1 22:52:40 | 显示全部楼层
首先,要简单学习vb,至少要达到简单编程的程度,手里有一半vb编程的书。其次,安装Agilent的IO套件,主要 ...
hunter 发表于 2010-11-17 18:25



    多谢,我先研究下,不懂再请教啊
回复

使用道具 举报

caohua 发表于 2010-12-22 08:33:27 | 显示全部楼层
GPIB我没学过我现在只会用VC对串口的操作和对USB口的操作,有兴趣可以砌磋一下
回复

使用道具 举报

tanfootball 发表于 2010-12-22 16:57:40 | 显示全部楼层
我們也在搞自動話,准備用的是NI公司的LabView平台。不過價格不便宜。
回复

使用道具 举报

叮当许 发表于 2010-12-26 14:49:07 | 显示全部楼层
回复  hunter


    顺便问一下34401A还有5700的命令在哪找得到呢,
DouYa 发表于 2010-11-22 19:58



   
同问
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|计量论坛 ( 闽ICP备06005787号-1|闽公网安备35020602000072号 )
电话:0592-5613810 QQ:473647 微信:gfjlbbs 原国防计量论坛(-=始于2005年=-)

GMT+8, 2026-1-13 01:08

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表