如何编写VB.NET程序远程控制6060B(电负载)
How do I write VB.NET program to remotely control 6060B (electric load)
我正在编写一个vb.net程序来远程控制6060B(电力负载)。到目前为止,我已经成功地将我的电脑连接到 6060B,并且我能够从负载中查询信息。下面是我写的部分代码:
Dim mbSession As MessageBasedSession;
mbSession = ResourceManager.GetLocalManager().Open("GPIB::6::INSTR");
Dim responseString As String = mbSession.Query("*idn?");
这个returns我加载的信息--"responseString is HEWLETT-PACKARD..."。但是,我不知道应该如何 change/set 电流、电压等,就像我通常在面板上所做的那样。我在网上搜索了一下,我发现我可以使用HPSL编程语言,但是我应该使用vb.net来远程控制6060B吗?我正在使用 NI-VISA.NET API.
您需要找到命令参考。有一个标准,SCPI,其命令通常采用
形式
MEASure:CURRent?
同样,这是一个标准,您应该找到适用于您的设备的特定命令参考,HP(是德科技/安捷伦)6060B 300 瓦直流电子负载。
hp 6060b 手册 的搜索引擎结果应该会产生一些不错的结果。寻找通常有命令参考的操作或编程手册。
这应该适合你:
' This example sets the current level to 0.75 amps
' and then reads back the actual current value.
' set input off
mbSession.Write("INPUT OFF")
' set mode to current
mbSession.Write("MODE:CURR")
' set current range
mbSession.Write("CURR:RANG 1")
' set current value
mbSession.Write("CURR 0.75")
' set input on
mbSession.Write("INPUT ON")
' measure current
Dim result As String
result = mbSession.Query("MEAS:CURR?")
Dim measuredCurrent As Single = Single.Parse(result)
示例取自 operating manual I found.
第 70 页
一般来说,如果提供示例代码,事情通常会更容易。我通常会使用示例代码来获得基线工作操作,然后将代码复制到我的项目中并根据需要进行操作。
我正在编写一个vb.net程序来远程控制6060B(电力负载)。到目前为止,我已经成功地将我的电脑连接到 6060B,并且我能够从负载中查询信息。下面是我写的部分代码:
Dim mbSession As MessageBasedSession;
mbSession = ResourceManager.GetLocalManager().Open("GPIB::6::INSTR");
Dim responseString As String = mbSession.Query("*idn?");
这个returns我加载的信息--"responseString is HEWLETT-PACKARD..."。但是,我不知道应该如何 change/set 电流、电压等,就像我通常在面板上所做的那样。我在网上搜索了一下,我发现我可以使用HPSL编程语言,但是我应该使用vb.net来远程控制6060B吗?我正在使用 NI-VISA.NET API.
您需要找到命令参考。有一个标准,SCPI,其命令通常采用
形式MEASure:CURRent?
同样,这是一个标准,您应该找到适用于您的设备的特定命令参考,HP(是德科技/安捷伦)6060B 300 瓦直流电子负载。
hp 6060b 手册 的搜索引擎结果应该会产生一些不错的结果。寻找通常有命令参考的操作或编程手册。
这应该适合你:
' This example sets the current level to 0.75 amps
' and then reads back the actual current value.
' set input off
mbSession.Write("INPUT OFF")
' set mode to current
mbSession.Write("MODE:CURR")
' set current range
mbSession.Write("CURR:RANG 1")
' set current value
mbSession.Write("CURR 0.75")
' set input on
mbSession.Write("INPUT ON")
' measure current
Dim result As String
result = mbSession.Query("MEAS:CURR?")
Dim measuredCurrent As Single = Single.Parse(result)
示例取自 operating manual I found.
第 70 页一般来说,如果提供示例代码,事情通常会更容易。我通常会使用示例代码来获得基线工作操作,然后将代码复制到我的项目中并根据需要进行操作。