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

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

’ Page 3.31
’***************** Begin example program *****************
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
CLS
GOSUB ClearPort ’Clears pending data from port.
PRINT #1, "QS" ’Queries the actual setup data.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
GOSUB Response ’Writes the setup data to file.
PRINT "Present setup data are stored in the file SETUP0"
PRINT "This setup will now be retrieved from the file and"
PRINT "sent back to the ScopeMeter."
PRINT "To see if this works, change the present settings and"
PRINT "verify if the ScopeMeter returns to the previous"
PRINT "settings."
PRINT
PRINT "Press any key on the PC keyboard to continue."
SLEEP
CLS
PRINT #1, "PS" ’Program header for programming
’the setup data to the ScopeMeter.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
OPEN "SETUP0" FOR INPUT AS #2
’Opens file SETUP0 for data retrieval.
DO WHILE NOT EOF(2)
SUCHR$ = INPUT$(1, #2) ’Reads setup data from file
PRINT #1, SUCHR$; ’Programs ScopeMeter with the"
’setup data stored in SETUP0$.
LOOP
PRINT #1, CHR$(13); ’Program message terminator
CLOSE #2 ’Close file SETUP0.
GOSUB Acknowledge ’Input acknowledge from ScopeMeter.
END
’