YOKOGAWA WT110 User Manual page 153

Appendix 1.2 Sample Program
'*********************************************************************
'* WT110/WT130
'* Program for adjusting range
'* Turn ON the power while pressing the SHIFT key.
'*
'*********************************************************************
REM $INCLUDE: 'qbdecl4.bas'
BORD$ = "GPIB0": CALL IBFIND(BORD$, BD%)
IF BD% < 0 THEN GOTO ERRDISP
CALL IBSIC(BD%): GOSUB ERRCHK
DEVICE$ = "WT": CALL IBFIND(DEVICE$, WT%)
IF WT% < 0 THEN GOTO ERRDISP
CALL IBCLR(WT%): GOSUB ERRCHK
'
DO
CLS
PRINT "Main menu for range adjustment"
PRINT ""
PRINT "1:Range adjustment"
PRINT "2:Adjustment of ext. sensor range"
PRINT "0:End
PRINT "Command >> "; : LINE INPUT C$
IF C$ = "1" THEN
ELSEIF C$ = "2" THEN
ELSEIF C$ = "0" THEN
END IF
LOOP
'
PRGEND:
CALL IBLOC(WT%)
END
'
RANGE:
CMD$ = "CAL1": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
DO
CLS
PRINT "Range adjustment"
PRINT ""
PRINT "1: 30.00 V range"
PRINT "2: 300.0 V range"
PRINT "3: 1.000 A range"
PRINT "4: 10.00 A range"
PRINT "S: Adjustment values will be kept"
PRINT "C: Adjustment values will not be kept"
PRINT "Command >> "; : LINE INPUT C$
IF C$ = "1" THEN
ELSEIF C$ = "2" THEN
ODDISP
ELSEIF C$ = "3" THEN
ELSEIF C$ = "4" THEN
ELSEIF C$ = "S" THEN
ELSEIF C$ = "C" THEN
END IF
LOOP
RETURN
'
ODDISP:
PRINT "1: Adjustment values of this range will be updated"
PRINT "0: Return to previous menu"
DO
CMD$ = "OD": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
LOCATE 15, 1
BUF$ = SPACE$(255)
DO
App1-12
Microsoft QuickBASIC 4.0/4.5 Version
"
GOSUB RANGE
GOSUB SHUNT
EXIT DO
CMD$ = "CR0": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB ODDISP
CMD$ = "CR1": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB
CMD$ = "CR2": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB ODDISP
CMD$ = "CR3": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB ODDISP
CMD$ = "END": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: EXIT DO
CMD$ = "CAN": CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: EXIT DO
*
*
*
*
IM 253401-01E