Measurement Computing DAC488 v.1 - Manual (Page 51)

DAC488 User’s Manual DAC488 Calibration 45
950 PRINT#1,"ENTER ";KAD$
960 INPUT#2,MOSTGAIN$:MVAL!=VAL(MOSTGAIN$)
970 '
980 PRINT#1,"OUTPUT ";DAD$;";R";RANGE;"V#4000J0,0X"
990 GOSUB 1520:REM delay
1000 PRINT#1,"ENTER ";KAD$
1010 INPUT#2,NOGAIN$:NOVAL!=VAL(NOGAIN$)
1020 GAINBIT! = (MVAL!-NOVAL!)/256
1030 PERR = PVAL!-ZVAL!-FULLPOS
1040 NERR = NVAL!-ZVAL!-FULLNEG
1050 PADJ = CINT(128 - (PERR / GAINBIT))
1060 IF PADJ < 0 THEN PADJ = 0
1070 ELSE IF PADJ > 255 THEN PADJ = 255
1080 NADJ = CINT(128 + (NERR / GAINBIT))
1090 IF NADJ < 0 THEN NADJ = 0
1100 IF NADJ > 255 THEN NADJ = 255
1110 PRINT#1,"OUTPUT ";DAD$;";J";PADJ;",";NADJ;"X"
1120 'ROUTINE TO CALCULATE OFFBIT VALUE
1130 '
1140 PRINT#1,"OUTPUT ";DAD$;";R";RANGE;"V0H-255X"
1150 GOSUB 1520:REM delay
1160 PRINT#1,"ENTER ";KAD$
1170 INPUT#2,NOFF$:NOFFVAL!=VAL(NOFF$)
1180 PRINT#1,"OUTPUT ";DAD$;";R";RANGE;"V0H255X"
1190 GOSUB 1520:REM delay
1200 PRINT#1,"ENTER ";KAD$
1210 INPUT#2,POFF$:POFFVAL!=VAL(POFF$)
1220 OFFBIT!=(POFFVAL!-NOFFVAL!)/512
1230 PRINT#1,"OUTPUT ";DAD$;";H0V0X"
1240 GOSUB 1520:REM delay
1250 PRINT#1,"ENTER ";KAD$
1260 INPUT#2,ZEROVAL$:ZERR!=VAL(ZEROVAL$)
1270 IF (ZERR!/OFFBIT!) < 0 THEN ZADJ= CINT( -(ZERR!/OFFBIT!)) ELSE ZADJ= -
CINT(ZERR!/OFFBIT!)
1280 IF ZADJ < -255 THEN ZADJ = 255 ELSE IF ZADJ>255 THEN ZADJ = 255
1290 PRINT#1,"OUTPUT ";DAD$;";H";ZADJ;"X"
1300 'Measure error after calibration'
1310 '
1320 PRINT#1,"OUTPUT ";DAD$;";R";RANGE;"V0X"
1330 GOSUB 1520:REM delay
1340 PRINT#1,"ENTER ";KAD$
1350 INPUT#2,ZEROVAL$:OFS!(PORT,RANGE) = VAL(ZEROVAL$)
1360 IF RANGE = 0 THEN GOTO 1450
1370 PRINT#1,"OUTPUT ";DAD$;";V#4000X"
1380 GOSUB 1520:REM delay
1390 PRINT#1,"ENTER ";KAD$
1400 INPUT#2,POSVAL$:PFS!(PORT,RANGE)=((VAL(POSVAL$)/FULLPOS) * 100)-100
1410 PRINT#1,"OUTPUT ";DAD$;";V#-4000X"
1420 GOSUB 1520:REM delay
1430 PRINT#1,"ENTER ";KAD$
1440 INPUT#2,NEGVAL$:NFS!(PORT,RANGE)=((VAL(NEGVAL$)/FULLNEG) * 100)-100
1450 GAIN(PORT,RANGE,1) = PADJ
1460 GAIN(PORT,RANGE,2) = NADJ
1470 OFFSET(PORT,RANGE) = ZADJ
1480 RETURN
1490 PRINT "Error calibrating Port #";PORT;" ";FULLPOS;" RANGE:return
1500 'Delay routine allows readings to stabilize
1510 '
1520 FOR DELAY = 0 TO 2
1530 NEXT DELAY
1540 RETURN
1550 'Print Calibration Report'
1560 '
1570 INPUT "Enter the units serial number";SERNUM
1580 LPRINT CHR$(12):LPRINT:LPRINT
1590 DA$ = DATE$
1600 LPRINT" Calibration Report ";DA$
1610 LPRINT
1620 IF DAC2$ <> "Y" THEN GOTO 1650
1630 LPRINT"Manufacturer: IOtech Model: DAC488/2 Serial#";
1640 GOTO 1660 CALIBRATION REPORT ";DA$
1650 LPRINT"Manufacturer: IOtech Model: DAC488/4 Serial#";
1660 LPRINT USING "######";SERNUM