[请教]关于GPIB的自动测试编程问题专业讨论-计量管理-计量论坛

oldfish 发表于 2010-9-6 13:53:04

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

想学习一下用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 http://www.gfjl.org/images/common/back.gif

多谢，我先研究下，不懂再请教啊

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 http://www.gfjl.org/images/common/back.gif

同问

页: [1]

计量论坛's Archiver

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