Fluke ScopeMeter 190 Series, Руководство программиста

Страница: 33 / 120

’ Page 3.22
’***************** Begin example program *****************
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
CLS
PRINT #1, "HO" ’Sends the HOLD command.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
PRINT "The HOLD command has put the ScopeMeter in HOLD."
PRINT "Check on the ScopeMeter screen."
PRINT "Press any key on the PC keyboard to continue and"
PRINT "enable acquisition again."
SLEEP
PRINT #1, "AT" ’Sends the ARM TRIGGER command to
’enable acquisition again.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
CLOSE #1
END
’**************** Acknowledge subroutine ******************
’Use this subroutine after each command or query sent to the
’ScopeMeter. This routine inputs the acknowledge
’response from the ScopeMeter. If the response is non-zero,
’the previous command was not correct or was not correctly
’received by the ScopeMeter. Then an error message is
’displayed and the program is aborted.
Acknowledge:
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
PRINT "Program aborted."
END
END IF
RETURN
’****************** End example program ******************