Tegam 2711A, Operation Manual

Page: 67 / 98

7 - 17
7
Chapter 7 Remote Interface Operation
GPIB Programming Example (continued)
GPIB Programming Example (continued)
SUB SendGpibCmmd (OutputString$)
CALL ibwrt(ArbGen%, OutputString$) ‘send command to 2711A
CALL ibwrt(ArbGen%, “*ESR?”) ‘check error code
WaitDelay (.01)
InputString$ = SPACE$(100)
CALL IBRD(ArbGen%, InputString$)
IF VAL(InputString$) AND 1 THEN PRINT “>> Operation Complete <<”;
IF VAL(InputString$) AND 2 THEN PRINT “>> Request Control ( N/I ) <<”;
IF VAL(InputString$) AND 4 THEN PRINT “>> QUERY ERROR <<”;
IF VAL(InputString$) AND 8 THEN PRINT “>> Device Dependant ERROR <<”;
IF VAL(InputString$) AND 16 THEN PRINT “>> Execution ERROR <<”;
IF VAL(InputString$) AND 32 THEN PRINT “>> Command ERROR <<”;
IF VAL(InputString$) AND 64 THEN PRINT “>> User Request ( N/I ) <<”;
IF VAL(InputString$) AND 128 THEN PRINT “>> Power On <<”;
IF VAL(InputString$) > 0 THEN PRINT “Status read : “; VAL(InputString$)
IF VAL(InputString$) > 0 THEN CALL ibwrt(ArbGen%, “*cls”)
IF VAL(InputString$) > 0 THEN BEEP
CALL ibwrt(ArbGen%, “*cls”)
END SUB
SUB WaitDelay (Sec)
StrtTime = TIMER
CurrentTime = TIMER
StpTime = St (Sec)
DO WHILE CurrentTime < StpTime
CurrentTime = TIMER
LOOP
END SUB