--Call function with
ntimes=10 and then enter
data.
Do
strReturnMessage = udfGetTspResponse()
txtData.Text = txtData.Text & strReturnMessage &
vbCrLf
Loop Until Left(strReturnMessage, 3) = "TSP"
If strReturnMessage = "TSP?" Then
txtStatusDesc.Text = "Error Occurred"
Call send(Addr%, "print(errorqueue.next()", intStatus)
strReturnMessage = udfGetTspResponse()
txtStatusDesc.Text = txtStatusDesc.Text &
strReturnMessage & vbCrLf
--Get output from function.
End If
--Take appropriate action
based on error message.
2600S-900-01 Rev. C / January 2008
Return to
3-19
Series 2600 System SourceMeter
Section 3: Test Script Processor Interaction
Figure 3-10
GUI after calling the function (GPIB)
Call send(Addr%, "MeasCurr(10)", intStatus)