Agilent Technologies 5749A, 5752A, 5744A, 5743A, 5748A, 5741A, 5746A, 5751A Output Programming Example

6 Programming Examples

Output Programming Example

This program sets the voltage, current, over-voltage, and the over- current protection. It turns the output on and takes a voltage measurement. When done, the program checks for instrument errors and gives a message if there is an error.

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