不知道你用的是什么仪器。agilent提供了一个visa32.bas供调用。在这个平台下可以方便调用有关的函数,比如: 用34401三用表测量电压,如下: Public Function getvolt() As Double ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''通用函数-34401A测量电压'''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim defrm As Long Dim vi As Long Dim cmd34401 As String Dim volt As String * 20 Dim actual As LongCall viOpenDefaultRM(defrm) Call viOpen(defrm, "GPIB0::22::INSTR", 0, 0, vi)'34401默认地址22,计算机gpib卡默认为0 Call viClear(vi) cmd34401 = "MEAS:VOLT:DC? DEF,DEF" + Chr(10) Call viWrite(vi, cmd34401, Len(cmd34401), actual) Call viRead(vi, volt, 20, actual) Call viClose(vi) Call viClose(defrm) getvolt = Val(volt)End Function具体的用法,在visahelp.chm和agilent user's help中可以查询得到
上网搜visahelp.chm之类的可以找到好多资料
或者有些VB調用例子的。
用34401三用表测量电压,如下:
Public Function getvolt() As Double
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''通用函数-34401A测量电压''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim defrm As Long
Dim vi As Long
Dim cmd34401 As String
Dim volt As String * 20
Dim actual As LongCall viOpenDefaultRM(defrm)
Call viOpen(defrm, "GPIB0::22::INSTR", 0, 0, vi)'34401默认地址22,计算机gpib卡默认为0
Call viClear(vi)
cmd34401 = "MEAS:VOLT:DC? DEF,DEF" + Chr(10)
Call viWrite(vi, cmd34401, Len(cmd34401), actual)
Call viRead(vi, volt, 20, actual)
Call viClose(vi)
Call viClose(defrm)
getvolt = Val(volt)End Function具体的用法,在visahelp.chm和agilent user's help中可以查询得到
谢谢各位的支持[email protected]
可以借看一下调用AGILENT 34401A的SCPI来做Calibration的例子程序吗
现在用两台34401A做一个双表法测量的软件
由于对仪器控制不是很了解 希望向你请教一下经验
控制3458A的程序 控制34401A要做什么改动?/
我的QQ70427900
邮箱[email protected]