PAT-T 4kW
A-29
Appx
' Set the voltage
io.WriteString ":VOLT" & Str$(dVolt)
' Set the current
io.WriteString ":CURR" & Str$(dCurr)
' Set the overvoltage protection
io.WriteString ":VOLT:PROT:LEV" & Str$(dOVP)
' Set the overcurrent protection
io.WriteString ":CURR:PROT:LEV" & Str$(dOCP)
' Turn the output on
io.WriteString ":OUTP ON"
' Measure the output voltage and current
Dim dVoltMeasure As Double
Dim dCurrMeasure As Double
io.WriteString ":MEAS:VOLT:DC?"
' Send the query command for output voltage
dVoltMeasure = Val(io.ReadString(256))
' Read 256 bite from the Receiving buffer,
' convert from the text to numerical value and
' substitute for the dVoltMeasure variable
io.WriteString ":MEAS:CURR:DC?"
' Send the query command for output current
dCurrMeasure = Val(io.ReadString(256))
' Read 256 bite from the Receiving buffer,
' convert from the text to numerical value and
' substitute for the dCurrMeasure variable
' Check if there is an instrument error
Dim strErr As String
io.WriteString ":SYST:ERR?"
' Send the query command for system error
strErr = io.ReadString(256)
' Read 256 bite from the Receiving buffer,
' substitute for the strErr variable
' Close the VISA session
io.Close
' Issue the Close command
End Sub
Summary of Contents for PAT160-25T
Page 17: ...General Description This chapter describes an overview and describes the features...
Page 22: ...1 6 PAT T 4kW...
Page 34: ...2 12 PAT T 4kW...
Page 106: ...6 12 PAT T 4kW...
Page 158: ...7 52 PAT T 4KW...
Page 159: ...Maintenance This chapter describes maintenance such as cleaning inspecting and calibrating...
Page 171: ...Specifications This chapter describes the specifications and gives the dimensions of the PAT...
