3-18 Test Script Processor Interaction
Series 2600 System SourceMeters User’s Manual
2600S-900-01 Rev. A / May 2006
Return to
Call send(Addr%, "localnode.showerrors =
0", intStatus)
--Disable automatic display of errors - leave
error messages in queue and enable
Error Prompt. The "localnode" unit is
being communicated with via GPIB or RS-
232.
Call send(Addr%, "localnode.prompts = 1",
intStatus)
strReturnMessage = udfGetTspResponse()
--Turn on prompts; need to start handling
the prompts as soon as this command
is sent.
Open App.Path & "\" & "MeasCurr-
Script.tsp" For Input As #1
--Open the script file for sequential input.
Call send(Addr%, "loadscript MeasCurr-
Script", intStatus)
strReturnMessage = udfGetTspResponse()
--“loadscript” identifies the beginning of the
script.
“MeasCurrScript” is the name assigned to
the script.
--Read the file.
Do While Not EOF(1)
--Loop until the end of the script file.
Line Input #1, strScriptline
--Read a line from the script file
Call send(Addr%, strScriptline, intSta-
tus)
--Send script line to Series 2600
strReturnMessage = udfGetTspResponse()
strReturnMessage = Left(strReturnMessage,
4)
Select Case strReturnMessage
Case ">>>>"
--Continuation prompt.
TSP received script line successfully;
waiting for next line.
Case "TSP>"
--Ready prompt.
TSP received script successfully; ready
for next command.
Exit Do
Case "TSP?"
--Error prompt.
Error occurred; handle as desired.
Use “errorqueue” commands to read and
clear errors.
Case Else
--No prompt received.
Response other than shell prompt was
received; handle as desired.
End Select
Loop
Close #1
--Close the script file.
Call send(Addr%, "endscript", intStatus)
strReturnMessage = udfGetTspResponse()
--Tell TSP complete script has been down-
loaded.
Содержание SourceMeter 2611
Страница 103: ...W What is a script 3 2...
Страница 104: ......
Страница 106: ......
Страница 107: ......