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
To Next Page
Loading...
Need help?
General
