Calibration - Fluke 5700A Series II Operator's Manual

5-50. Calibration

1Ø ! THIS IS A PROGRAM FOR REMOTE MAIN OUTPUT CALIBRATION
2Ø !
25 REMOTE
3Ø PRINT @4, "*CLS; *SRE 8"
4Ø ON SRQ GOTO 6Ø
5Ø GOTO 14Ø
6Ø PRINT @4, "FAULT?" \ INPUT @4, A%
7Ø IF A% = Ø GOTO 12Ø
8Ø PRINT @4, "EXPLAIN? ";A% \ INPUT @4, A$
9Ø PRINT
1ØØ PRINT "FAULT";A%;"OCCURRED: ";A$
11Ø GOTO 6Ø! GET NEXT FAULT
12Ø A% = SPL(4%)
13Ø RESUME 53Ø
14Ø PRINT "Ambient temperature in Celsius";
15Ø INPUT T
16Ø PRINT @4, "CAL_TEMP";T
17Ø PRINT "Connect the 1ØV standard as shown in the manual" \ GOSUB 47Ø
18Ø PRINT "Enter the true value of 1ØV standard in volts"; \ INPUT V
19Ø PRINT "Doing 1ØV reference calibration. Please wait ..."
2ØØ PRINT @4, "CAL_REF ";V;"V;*OPC" \ GOSUB 49Ø
21Ø PRINT "Reverse the polarity of the leads" \ GOSUB 47Ø
22Ø PRINT "Doing -1ØV reference calibration. Please wait ..."
23Ø V = -V
24Ø PRINT @4, "CAL_REF ";V;"V;*OPC" \ GOSUB 49Ø
25Ø PRINT "Connect the 1Ø kilohm standard to the output terminals"\GOSUB 47Ø
26Ø PRINT "Enter the true value of the 1Ø kilohm standard in kilohms";
27Ø INPUT K1
28Ø PRINT "Doing 1Ø kilohm reference calibration. Please wait ..."
29Ø PRINT @4, "CAL_REF ";K1;"KOHM;*OPC" \ GOSUB 49Ø
3ØØ PRINT "Connect the 1 ohm standard to the output terminals"\GOSUB 47Ø
31Ø PRINT "Enter the true value of the 1 ohm standard in ohms"; \ INPUT K2
32Ø PRINT "Doing 1 ohm reference calibration. Please wait ..."
33Ø PRINT @4, "CAL_REF ";K2;"OHM;*OPC" \ GOSUB 49Ø
34Ø PRINT "Doing internal portion of calibration. Please wait ..."
35Ø PRINT @4, "CAL_ADJ;*OPC" \ GOSUB 49Ø
36Ø PRINT "Calibration finished. Print a calibration report? [y, n]"
37Ø INPUT A$ \ IF LEFT(A$,1)="N" OR LEFT(A$,1)="n" GOTO 4ØØ
38Ø PRINT "Set up the peripheral device." \ GOSUB 47Ø
39Ø PRINT "Printing . . ." \ PRINT @4, "CAL_PR CHECK;*OPC" \ GOSUB 49Ø
4ØØ PRINT "Store or discard the constants? [s, d]" \ INPUT A$
41Ø IF LEFT(A$,1)="D" OR LEFT(A$,1)="d" GOTO 53Ø
42Ø PRINT "Set the CALIBRATION switch to ENABLE" \ GOSUB 47Ø
43Ø PRINT "Saving the constants in memory . . ."
44Ø PRINT @4, "CAL_STORE;*OPC" \ GOSUB 49Ø
45Ø PRINT "Set the CALIBRATION switch to NORMAL" \ GOSUB 47Ø \ GOTO 53Ø
47Ø PRINT "Press RETURN to continue"
48Ø INPUT A$ \ RETURN
49Ø PRINT @4, "*ESR?" \ INPUT @4, A%
51Ø IF A% AND 1% THEN RETURN
52Ø GOTO 49Ø
53Ø PRINT "All finished!" \END
Remote Operation
Remote Program Examples
! ENABLE EAV TO TRIGGER SRQ
! SRQ HANDLER
! START MAIN PROGRAM
! SRQ HANDLER, GET FAULT CODE
! IF NO FAULT EXIT
! GET EXPLANATION
! DISPLAY EXPLANATION
! SERIAL POLL TO CLEAR SP BYTE
! END OF SRQ HANDLER
! MAIN PROGRAM BEGINS
! GET TEMPERATURE FROM OPERATOR
! SET CAL TEMPERATURE
! SET THE VARIABLE FOR -1ØV CAL
! SAVE THE CONSTANTS IN MEMORY
! PAUSE FOR OPERATOR SUBROUTINE
! "
! WAIT FOR OPC SUBROUTINE
! ", RETURN IF OPC BIT IS 1
! ", STAY IN LOOP IF OPC IS Ø
5
5-63