Fluke 5790A, Руководство оператора

Страница: 102 / 220

5790A
Operators Manual
5-26
add statements to control your calibration sources and adjust them as necessary to obtain
the required accuracy.
10 REM Periodic calibration from remote interface
20 REM Set Bus Timeout to 20 seconds, init IEEE bus
30 TIMEOUT 20 * 1000
40 INIT PORT 0
50 A% = 6 ! IEEE address of 5790A
60 CLEAR @A%
70 PRINT @A%, "*RST"
100 REM Get temperature from operator, and set cal temperature
110 PRINT "Enter ambient temperature: ";
120 INPUT T
130 PRINT @A%, "CAL_TEMP "; T
200 REM Do Full DC Calibration
210 I$ = "INPUT2"
220 PRINT "Connect DC voltage source to "; I$
230 PRINT @A%, "CAL_DC "; I$
240 GOSUB 1000
300 REM Do Full AC Calibration
310 I$ = "INPUT1"
320 PRINT "Connect AC voltage source to "; I$
330 PRINT @A%, "CAL_AC "; I$
340 GOSUB 1000
400 REM Save the calibration constants
410 PRINT "Set CAL STORE switch to ENABLE; press RETURN to continue"
420 INPUTLINE A$
430 PRINT @A%, "CAL_STORE ALL"
440 GOSUB 2000
450 STOP
900 REM Subroutines
1000 REM Do calibration steps until procedure is done
1010 PRINT @A%,"CAL_NEXT?"
1020 INPUT @A%, V,F
1030 IF (F < 0) GOTO 1200
1040 REM Automated procedures put code to program source to new value here
1050 PRINT "Set source to "; V; "V, "; F; "Hz"
1060 PRINT "Once source is stable and measured, enter exact source value:"
1070 PRINT "V = ";
1080 INPUT V
1090 REM Do the calibration step, then check for errors
1100 PRINT @A%, "CAL_NEXT "; V
1110 GOSUB 2000
1150 PRINT @A%, "ERR?"
1160 INPUT @A%, ER%, ER$
1170 IF (ER% = 0) GOTO 1010
1180 PRINT "ERROR: #" ER%; ": "; ER$
1190 GOTO 1120
1200 PRINT "Procedure is complete."
1210 RET