Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 90 / 120

’ Page 3.62
’***************** Begin example program *****************
CLS ’Clears the PC screen.
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
PRINT #1, "RI" ’Sends the RESET INSTRUMENT command.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
SLEEP 2 ’Delay (2 s) necessary after reset.
GOSUB ClearPort ’Clears pending data from port.
PRINT #1, "ID" ’Sends IDENTIFICATION query.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
INPUT #1, IDENT$ ’Inputs the queried data.
PRINT IDENT$ ’Displays queried data.
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
’******* Clears pending data from the RS232 port *********
ClearPort:
WHILE LOC(1) > 0
Dummy$ = INPUT$(1, #1)
WEND
RETURN
’****************** End example program ******************