Agilent Technologies N5700 User Manual

This program sets the voltage, current, over-voltage, and the over-
current protection. 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 MeasureVoltString As String 
 
    ' This variable controls the current 
    Dim CurrSetting As Double 
 
    ' This variable controls the over voltage protection setting 
    Dim overVoltSetting As Double 
 
    ' This variable controls the over current protection 
    Dim overCurrentOn As Long 
 
    ' These variables are necessary to initialize the VISA COM 
    Dim ioMgr As AgilentRMLib.SRMCls 
    Dim Instrument As VisaComLib.FormattedIO488 
 
    ' The following line provides the VISA name of the GPIB interface 
    IOaddress = "GPIB0::5::INSTR" 
 
    ' Use the following line instead 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(GPIBaddress) 
 
    VoltSetting = 3                                 ' volts 
    CurrSetting = 1.5                               ' amps 
    overVoltSetting = 10                            ' volts 
    overCurrentOn = 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)