Agilent Technologies N6700 Series User Manual page 105

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
' program to voltage setting
.WriteString "VOLT" & Str$(Voltage) & "," & channel
' Go to final value
.WriteString "VOLT:TRIG" & Str$(finalVoltage) & "," & channel
' Turn the output on
.WriteString "OUTP ON," & channel
' 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
' 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
' 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
Command1.Enabled = True
End Sub
Series N6700 User's Guide
Digitizer Programming Example
105