Agilent Technologies manual Series N5700 User’s Guide

Models: N5700

1 132
Download 132 pages 28.95 Kb
Page 83
Image 83

Programming Examples 6

' Set the over voltage level

.WriteString "VOLT:PROT:LEV " & Str$(overVoltSetting)

' Turn on over current protection

.WriteString "CURR:PROT:STAT " & Str$(overCurrOn)

' Set the current level

.WriteString "CURR " & Str$(CurrSetting)

'Turn the output on

.WriteString "OUTP ON"

'Make sure that the output is on before continuing

.WriteString "*OPC?"

.ReadString

'Measure the voltage

.WriteString "Meas:Volt?" measVolt = .ReadNumber

MsgBox "Measured Voltage is " & Str$(measVolt)

'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 N5700 User’s Guide

83

Page 83
Image 83
Agilent Technologies manual Series N5700 User’s Guide