Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 102 / 120

’ Page 3.73
’***************** Begin example program *****************
CLS ’Clears the PC screen.
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
PRINT #1, "PC 12345" ’Sends a baud rate value that is
’ out of range for the ScopeMeter.
GOSUB Acknowledge.Status ’Input acknowledge from ScopeMeter
’and the status value if the
’acknowledge value is non-zero.
END
’************* Ackno Status subroutine ***********
’This subroutine inputs the acknowledge value from the
’ScopeMeter. If the acknowledge value is non-zero,
’the ST query is used to get further status information from
’the ScopeMeter with respect to the error.
’In case of an error the program is aborted.
Acknowledge.Status:
INPUT #1, ACK ’Reads acknowledge from ScopeMeter.
IF ACK <> 0 THEN
PRINT "Error "; ACK; ": ";
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
GOSUB Status.display ’Further specifies the error.
PRINT "Program aborted."
END
END IF
RETURN
’