Agilent Technologies 5750A, 5752A, 5744A, 5743A, 5748A, 5741A, 5746A, 5751A Series N5700 User’s Guide

Models: 5751A 5744A 5743A 5750A 5749A 5752A 5747A 5742A 5748A 5741A 5745A 5746A

1 132
Download 132 pages 2.14 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 5750A, 5752A, 5744A, 5743A, 5748A, 5741A, 5746A, 5751A, 5742A, 5745A, 5747A, 5749A Series N5700 User’s Guide