User's Manual

R e m o t e C o n t r o l a n d P r o g r a m m i n g R e f e r e n c e f o r t h e F L U K E 1 9 0 f a m i l y o f S c o p e M e t e r ® t e s t t o o l s
p a g e 4 7
‘***************** Beginning of example program *****************
CLS ‘Clears the PC screen.
OPEN “COM1:1200,N,8,1,CS,DS,RB2048” FOR RANDOM AS #1
PRINT #1, “RP” ‘Queries for number of valid replay
‘screens + active screen number
GOSUB Acknowledge ‘Input acknowledge from ScopeMeter.
INPUT #1, nr.of.screens ‘1
st
<decimal_number>
IF (nr.of.screens < 0) OR (nr.of.screens > 100) THEN
PRINT nr.of.screens; “ is not a valid number of replay screens”
ELSE
PRINT “Number of valid replay screens =”; nr.of.screens
END IF
INPUT #1, current.index ‘2
nd
<decimal_number>
PRINT “Current replay screen number = “; current.index
PRINT “Previous replay screen number = “; current.index – 1
‘
PRINT #1, “RP “; ‘Queries for the current replay screen
PRINT #1, current.index – 1
GOSUB Acknowledge ‘Input acknowledge from ScopeMeter.
PRINT
PRINT “View the previous Replay screen.”
PRINT “Press any key on the PC keyboard to continue.”
SLEEP
PRINT #1, “AT” ‘Go back to normal (running) mode
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 of example program ********************