Tegam 2411B, Operation Manual

Page: 88 / 140

Chapter 7 Remote Interface Operation
RS-232 Programming Example (continued)
RS-232 Programming Example (continued)
SUB SendRS232Cmmd (OutputString$)
PRINT #1, OutputString$ + CrLf$; ‘send command to 2411B
PRINT #1, “esr?” + CrLf$; ‘check error code
PRINT #1, Listen$;
LINE INPUT #1, QueryResponse$
StringPos = 0
TrimRxString: ‘flush ‘LFs’ from previous LINE
StringPos = Str 1
IF MID$(QueryResponse$, StringPos, 1) < “ “THEN GOTO TrimRxString
QueryResponse = VAL(RIGHT$(QueryResponse$, StringPos))
‘Print the description of error if any
IF QueryResponse AND 1 THEN PRINT “>> Operation Complete<<”;
IF QueryResponse AND 2 THEN PRINT “>> Request Control (N/I) <<”;
IF QueryResponse AND 4 THEN PRINT “>> QUERY ERROR <<”;
IF QueryResponse AND 8 THEN PRINT “>> Device Dependant ERROR <<”;
IF QueryResponse AND 16 THEN PRINT “>> Execution ERROR <<”;
IF QueryResponse AND 32 THEN PRINT “>> Command ERROR <<”;
IF QueryResponse AND 64 THEN PRINT “>> User Request ( N/I) <<”;
IF QueryResponse AND 128 THEN PRINT “>> Power On <<”;
IF QueryResponse > 0 THEN PRINT “ Status read : “;QueryResponse
END SUB
7-17