Agilent Technologies N6700 Series User Manual page 103

' Send the voltage list points
.WriteString "LIST:VOLT " & voltPoints & "," & channel
' Send the Current list points
.WriteString "LIST:CURR " & currPoints & "," & channel
' Send the dwell points
.WriteString "LIST:DWEL " & dwellPoints & "," & channel
' Turn the output on
.WriteString "OUTP ON," & channel
' Set the trigger source to bus
.WriteString "TRIG:TRAN:SOUR BUS," & channel
' Initiate the transient system
.WriteString "INIT:TRAN " & channel
' Trigger the unit
.WriteString "*TRG"
' Check instrument for any errors
.WriteString "Syst:err?"
ErrString = .ReadString
' give message if there is an error
If Val(ErrString) Then
MsgBox "Error in instrument!" & vbCrLf & ErrString
End If
End With
End Sub
Series N6700 User's Guide
List Programming Example
103