PAT-T 4kW
A-31
Appx
dVoltTrig = 15 'volts
' trigger voltage setting value : 15V
dCurrTrig = 60 'amps
' trigger current setting value : 60A
' Set the immediate voltage
io.WriteString ":VOLT" & Str$(dVolt)
' Set the immediate current
io.WriteString ":CURR" & Str$(dCurr)
' Set the triggered voltage
io.WriteString ":VOLT:TRIG" & Str$(dVoltTrig)
' Set the triggered current
io.WriteString ":CURR:TRIG" & Str$(dCurrTrig)
' Turn the output on
io.WriteString ":OUTP ON"
' Measure the output voltage and current,
' before sending the trigger
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
' Initiate the trigger subsystem and send the trigger
io.WriteString ":INIT:SEQ1"
' Send the Initiate Sequence 1
io.WriteString "*TRG"
' Send the Trigger command
' Measure the output voltage and current,
' after the triggered change
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...
