Programming Examples 7
Series N6700 User’s Guide
111
' Set the voltage
.WriteString "VOLT" & Str$(VoltSetting) & "," & channel
' Set the over voltage level
.WriteString "VOLT:PROT:LEV " & Str$(overVoltSetting) & "," & channel
' Set current level
.WriteString "CURR " & Str$(CurrSetting) & "," & channel
' Turn on over current protection
.WriteString "CURR:PROT:STAT ON," & channel
' Turn the output on
.WriteString "OUTP ON," & channel
' Wait for previous commands to complete.
.WriteString "*OPC?"
.ReadString
' Measure the voltage
.WriteString "MEAS:VOLT? " & channel
MeasureVoltString = .ReadString
MsgBox "Measured Voltage is " & MeasureVoltString & "At channel" & channel
' 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
Содержание N6700B
Страница 1: ...A A A A Agilent Technologies Modular Power System Series N6700 User s Guide...
Страница 28: ......
Страница 160: ......
Страница 168: ......
Страница 181: ...Service Appendix D Series N6700 User s Guide 181 2 3 4 1 COMMON COMMON N6700B BIAS BOARD A4 N6700A CARRIER BOARD A4...