IM 253401-01E
App1-12
Appendix 1.2 Sample Program
‘*********************************************************************
‘* WT110/WT130 *
‘* Program for adjusting range *
‘* Turn ON the power while pressing the SHIFT key. *
‘* Microsoft QuickBASIC 4.0/4.5 Version *
‘*********************************************************************
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
‘
D O
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
GOSUB RANGE
ELSEIF C$ = “2” THEN
GOSUB SHUNT
ELSEIF C$ = “0” THEN
EXIT DO
END IF
LOOP
‘
PRGEND:
CALL IBLOC(WT%)
END
‘
RANGE:
CMD$ = “CAL1”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
D O
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
CMD$ = “CR0”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB ODDISP
ELSEIF C$ = “2” THEN
CMD$ = “CR1”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB
ODDISP
ELSEIF C$ = “3” THEN
CMD$ = “CR2”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB ODDISP
ELSEIF C$ = “4” THEN
CMD$ = “CR3”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: GOSUB ODDISP
ELSEIF C$ = “S” THEN
CMD$ = “END”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: EXIT DO
ELSEIF C$ = “C” THEN
CMD$ = “CAN”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: EXIT DO
END IF
LOOP
RETURN
‘
ODDISP:
PRINT “1: Adjustment values of this range will be updated”
PRINT “0: Return to previous menu”
D O
CMD$ = “OD”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
LOCATE 15, 1
BUF$ = SPACE$(255)
DO
