Fluke 54200 - Page 255

Remote Control
Programming Examples
6
6-47
DATA END,end,GTL,gtl,GTR,gtr,GTR,gtr,DCL,dcl,LLO,llo,LLO,llo,STB,stb,DTR,dtr
SUB ClrBuf
'clear input buffer of comm. port
DO WHILE LOC(1) > 0 'while buffer not empty
C$ = INPUT$(1, #1) 'read one character
LOOP
END SUB
SUB InitCom
'Inilize serial communication channel
PRINT "Please set the RS-232 parameters of the FLUKE 54200/100 to : "
PRINT " Baudrate : 9600"
PRINT " Data : 8"
PRINT " Stop bits : 1"
PRINT " Parity : none"
PRINT " Handshake : yes"
PRINT
PRINT "Which communucation port of the PC do You use ? "
PRINT " COM1 [1]"
PRINT " COM2 [2] please select : ";
C$ = ""
DO UNTIL (C$ = "1" OR C$ = "2")
C$ = INKEY$
LOOP
PRINT C$
ComStr$ = "COM" + C$ + ":9600,N,8,1,CS,DS,LF"
PRINT
OPEN ComStr$ FOR RANDOM AS #1
PRINT "Special commands : GTL : go to local"
PRINT " GTR : go to remote"
PRINT " DCL : device clear"
PRINT " LLO : local lock out"
PRINT " STB : get status byte"
PRINT " DTR : device trigger"
PRINT
PRINT
PRINT "To leave running program type 'END' or 'end'. Press a key to
continue ";
PRINT
BEEP
C$ = ""
DO WHILE C$ = "" 'waiting for a key
C$ = INKEY$
LOOP
PRINT
PRINT
END SUB