Wideband Ac Module (Option 5700A-03) Gain Calibration - Fluke 5700A Series II Operator's Manual

5-52. Wideband AC Module (Option 5700A-03) Gain Calibration

1Ø ! THIS IS A PROGRAM FOR REMOTE WIDEBAND (OPTION -Ø3) GAIN CALIBRATION
2Ø ! WHICH IS PART OF ROUTINE CALIBRATION IF A WIDEBAND MODULE IS INSTALLED
3Ø !
4Ø REMOTE
5Ø PRINT @4, "*CLS ; *SRE 8"
6Ø ON SRQ GOTO 8Ø
7Ø GOTO 15Ø
8Ø PRINT @4, "FAULT?" \ INPUT @4, A%
9Ø IF A% = Ø GOTO 13Ø
1ØØ PRINT @4, "EXPLAIN? ";A% \ INPUT @4, A$
11Ø PRINT "FAULT";A%;"OCCURRED: ";A$
12Ø GOTO 8Ø ! GET NEXT FAULT
13Ø A% = SPL(4%)
14Ø RESUME 42Ø
15Ø PRINT "Ambient temperature in Celsius";
16Ø INPUT T
17Ø PRINT @4, "CAL_TEMP";T
18Ø PRINT "Connect the wideband cable to the SENSE binding posts through the"
19Ø PRINT "5Ø ohm terminator with shield to LO as shown in the manual."
2ØØ GOSUB 37Ø
21Ø PRINT "Calibrating wideband positive gain, please wait ..."
22Ø PRINT @4, "CAL_WBGAIN PGAIN;*OPC" \ GOSUB 39Ø
23Ø PRINT "Reverse the polarity at the SENSE binding posts."
24Ø GOSUB 37Ø
25Ø PRINT "Calibrating wideband negative gain, please wait ..."
26Ø PRINT @4, "CAL_WBGAIN NGAIN;*OPC" \ GOSUB 39Ø! CALIBRATES NEGATIVE GAIN
27Ø PRINT "Wideband gains calibration finished. Print a report? [y, n]"
28Ø INPUT A$ \ IF LEFT(A$,1)="N" OR LEFT(A$,1)="n" GOTO 31Ø
29Ø PRINT "Set up the peripheral device." \ GOSUB 37Ø
3ØØ PRINT "Printing . . ." \ PRINT @4, "CAL_PR CHECK;*OPC" \ GOSUB 39Ø
31Ø PRINT "Store or discard the constants? [s, d]" \ INPUT A$
32Ø IF LEFT(A$,1)="D" OR LEFT(A$,1)="d" GOTO 42Ø
33Ø PRINT "Set the CALIBRATION switch to ENABLE" \ GOSUB 37Ø
34Ø PRINT "Saving the constants in memory . . ."
35Ø PRINT @4,"CAL_WBGAIN STORE;*OPC" \ GOSUB 39Ø
36Ø PRINT "Set the CALIBRATION switch to NORMAL" \ GOSUB 37Ø \ GOTO 42Ø
37Ø PRINT "Press RETURN to continue"
38Ø INPUT A$ \ RETURN
39Ø PRINT @4, "*ESR?"\ INPUT @4,A%
4ØØ IF A% AND 1% THEN RETURN
41Ø GOTO 39Ø
42Ø PRINT "All finished!" \ END
Remote Operation
Remote Program Examples
! ENABLE FAULT 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
! MAIN PROGRAM BEGINS
! GET TEMPERATURE FROM OPERATOR
! SET CAL TEMPERATURE
! PAUSE FOR KEY
! CALIBRATES POSITIVE GAIN
! PAUSE FOR KEY
! SAVE THE CONSTANTS
! PAUSE FOR OPERATOR SUBROUTINE
! "
! WAIT FOR OPC SUBROUTINE
! ", RETURN IF OPC BIT IS 1
! ", STAY IN LOOP IF OPC IS Ø
5
5-65