Agilent Technologies N6751A User Manual page 115

With Instrument
' Send a power reset to the instrument
.WriteString "*RST"
' Query the instrument for the IDN string
.WriteString "*IDN?"
IDN = .ReadString
' Put the Voltage into step mode which causes it to transition from one
' voltage to another upon receiving a trigger
.WriteString "VOLT:MODE STEP," & channel
' Set the voltage
.WriteString "VOLT" & Str$(VoltSetting) & "," & channel
' Go to final value
.WriteString "VOLT:TRIG" & Str$(finalVoltage) & "," & channel
' Turn the output on
.WriteString "OUTP ON," & channel
' Wait for output to turn on.
.WriteString "*OPC?"
.ReadString
' Set the bus as the transient trigger source
.WriteString "TRIG:TRAN:SOUR BUS," & channel
' Set the number of points for the measurement system to use as an offset
.WriteString "SENS:SWE:OFFS:POIN" & Str$(measOffset) & "," & channel
' Set the number of points that the measurement system uses
.WriteString "SENS:SWE:POIN" & Str$(measPoints) & "," & channel
' Set the time interval between points
.WriteString "SENS:SWE:TINT" & Str$(timeInterval) & "," & channel
' Set the measurement trigger source
.WriteString "TRIG:ACQ:SOUR BUS," & channel
' Initiate the measurement trigger system
.WriteString "INIT:ACQ " & channel
' Initiate the transient trigger system
.WriteString "INIT:TRAN " & channel
' Wait for INITiate commands to complete
Do
.WriteString "STAT:OPER:COND? " & channel
Status = .ReadString
Loop Until (Status And (WTG_MEAS + WTG_TRANS)) = (WTG_MEAS + WTG_TRANS)
' Trigger the unit
.WriteString "*TRG"
' Read back the voltage points
.WriteString "FETC:ARR:VOLT? " & channel
VoltPoints = .ReadList
' Print the first 10 voltage points
For i = 0 To 9
Debug.Print i, VoltPoints(i)
Next i
Series N6700 User's Guide
Programming Examples 7
115