Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 54 / 120

SELECT CASE ACK
CASE 1
PRINT "Syntax Error"
CASE 2
PRINT "Execution Error"
CASE 3
PRINT "Synchronization Error"
CASE 4
PRINT "Communication Error"
CASE IS < 1
PRINT "Unknown Acknowledge"
CASE IS > 4
PRINT "Unknown Acknowledge"
END SELECT
CLOSE ’Close all files.
PRINT "Program aborted."
END
END IF
RETURN
’****************** Response subroutine *********************
’This subroutine reads bytes from the RS232 buffer as long
’as they enter. When no bytes enter for 1 second, the program
’assumes that the ScopeMeter has terminated its response.
’All bytes that enter the buffer are appended to the string
’Resp$.
Response:
start! = TIMER
’Wait for bytes (maximum 2 s) to enter RS232 buffer
WHILE ((TIMER < (start! + 2)) AND (LOC(1) = 0))
WEND
IF LOC(1) > 0 THEN ’If RS232 buffer contains bytes
Resp$ = ""
OPEN "Qpfile" FOR OUTPUT AS #2 ’File for print data
DO
’ LOC(1) gives the number of bytes waiting:
ScopeInput$ = INPUT$(LOC(1), #1) ’Input bytes
PRINT #2, ScopeInput$;
start! = TIMER
WHILE ((TIMER < (start! + 2)) AND (LOC(1) = 0))
WEND
LOOP WHILE LOC(1) > 0 ’Repeat as long as bytes enter
CLOSE #2
END IF
RETURN
’****************** End example program ******************