Agilent Technologies N6700B, User Manual

Page: 113 / 206

Programming Examples 7
Series N6700 User’s Guide 113
' Send the dwell points
.WriteString "LIST:DWEL " & dwellPoints & "," & channel
' Turn the output on
.WriteString "OUTP ON," & channel
' Wait for output to settle in the ON state.
.WriteString "*OPC?"
.ReadString
' 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