首先,要简单学习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}] ]
希望对你有用 |