YOKOGAWA WT200 User Manual page 155

13.2 Sample Program
13-16
'***************************************************************
'*
'* WT200 range adjust program
'* [SHIFT] + power on
'*
'***************************************************************
REM $INCLUDE: 'qbdecl.bas'
DECLARE SUB gpiberr (msg$)
PRINT ""
CALL IBDEV(0, 1, 0, T10s, 1, 0, DEV%)
IF (DEV% <= 0) THEN CALL gpiberr("Ibdev error")
' interface clear
CALL IBCLR(DEV%)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibclr error")
IO = 0
RTN = 0
' display main menu
MENU:
CLS
PRINT "main menu of range adjust"
PRINT ""
PRINT "1: adjust normal mesurement range"
PRINT "2: adjust sensor range"
PRINT "0: end"
PRINT "Command >> "; : LINE INPUT C$
IF C$ = "1" THEN GOSUB RANGE: GOTO RESTART
IF C$ = "2" THEN GOSUB SHUNT: GOTO RESTART
IF C$ = "0" THEN END
RESTART:
GOTO MENU
END:
STOP: END
' display measured data for adjust normal mesurement range
ODDISP:
PRINT "1: refresh adjusted data"
PRINT "0: back to previous display"
WRTDATA:
WRT$ = "OD"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
LOCATE 15, 1
RDDATA:
RD$ = SPACE$(255)
CALL IBRD(DEV%, RD$)
IF (ibsta% AND EERR) THEN
CALL gpiberr("Ibrd error")
GOTO ENDODDISP
ELSE
RD$ = LEFT$(RD$, ibcnt% - 2)
PRINT RD$
IF (RD$ <> "END") GOTO RDDATA
END IF
GOSUB WAITING
IF C$ = "1" THEN
WRT$ = "ENT"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
RTN = 0: GOTO ENDODDISP
ELSE IF C$ = "0" THEN RTN = 0: GOTO ENDODDISP
END IF
GOTO WRTDATA
*
*
*
*
IM 253421-01E