6 Programming Examples
Output Programming Example
This program sets the voltage, current,
Sub main_EZ()
Dim IDN As String
Dim IOaddress As String
Dim ErrString As String
'This variable controls the voltage Dim VoltSetting As Double
'This variable measures the voltage Dim measVolt As Double
'This variable controls the current Dim CurrSetting As Double
'These variables control the over voltage protection settings Dim overVoltSetting As Double
'These variables control the over current protection
Dim overCurrOn As Long
'These variable are neccessary to initialize the VISA COM. Dim ioMgr As AgilentRMLib.SRMCls
Dim Instrument As VisaComLib.FormattedIO488
'The following command line provides the program with the VISA name of the
'interface that it will communicate with. It is currently set to use GPIB. IOaddress = "GPIB0::5::INSTR"
'Use the following line for LAN communication
'IOaddress="TCPIP0::141.25.36.214"
'Use the following line instead for USB communication
'IOaddress = "USB0::2391::1799::US00000002"
'Initialize the VISA COM communication
Set ioMgr = New AgilentRMLib.SRMCls
Set Instrument = New VisaComLib.FormattedIO488
Set Instrument.IO = ioMgr.Open(IOaddress)
VoltSetting = 3 |
|
|
CurrSetting = 1.5 | ' amps |
|
overVoltSetting = 10 |
|
|
overCurrOn = 1 | '1 for | on, 0 for off |
With Instrument
'Send a power reset to the instrument
.WriteString "*RST"
'Query the instrument for the IDN string
.WriteString "*IDN?" IDN = .ReadString
'Set the voltage
.WriteString "VOLT" & Str$(VoltSetting)
82 | Series N5700 User’s Guide |