To Next Page

To Previous Page

5700A/5720A Series II

Operators Manual

5-64

5-51. Calibration Check

1Ø ! THIS IS A PROGRAM FOR REMOTE CALIBRATION CHECK

2Ø !

3Ø REMOTE

4Ø PRINT @4, “*CLS; *SRE 8” ! ENABLE EAV TO TRIGGER SRQ

5Ø ON SRQ GOTO 7Ø ! SRQ HANDLER

6Ø GOTO 15Ø ! START MAIN PROGRAM

7Ø PRINT @4, “FAULT?” \ INPUT @4, A% ! SRQ HANDLER, GET FAULT CODE

8Ø IF A% = Ø GOTO 13Ø ! IF NO FAULT EXIT

9Ø PRINT @4, “EXPLAIN? “;A% \ INPUT @4, A$ ! GET EXPLANATION

1ØØ PRINT

11Ø PRINT “FAULT”;A%;”OCCURRED: “;A$ ! DISPLAY EXPLANATION

12ØG OTO 7Ø ! GET NEXT FAULT

13Ø A% = SPL(4%) ! SERIAL POLL TO CLEAR SP BYTE

14Ø RESUME 3ØØ ! END OF SRQ HANDLER

15Ø PRINT “Ambient temperature in Celsius”; ! MAIN PROGRAM BEGINS

16Ø INPUT T ! GET TEMPERATURE FROM OPERATOR

17Ø PRINT @4, “CAL_TEMP”;T ! SET CAL TEMPERATURE

18Ø PRINT “Doing calibration check. Please wait . . .”

19Ø PRINT @4, “CAL_CHK;*OPC” \ GOSUB 27Ø

2ØØ PRINT “Calibration check finished. Print a report? [y, n]”

21Ø INPUT A$ \ IF LEFT(A$,1)=“N” OR LEFT(A$,1)=“n” GOTO 3ØØ

22Ø PRINT “Set up the peripheral device.” \ GOSUB 25Ø

23Ø PRINT “Printing ...” \ PRINT @4, “CAL_PR CHECK;*OPC” \ GOSUB 27Ø \ GOTO

3ØØ

25Ø PRINT “Press RETURN to continue” ! PAUSE FOR OPERATOR SUBROUTINE

26Ø INPUT A$ \ RETURN ! “

27Ø PRINT @4, “*ESR?” \ INPUT @4,A% ! WAIT FOR OPC SUBROUTINE

28Ø IF A% AND 1% THEN RETURN ! “, RETURN IF OPC BIT IS 1

29Ø GOTO 27Ø ! “, STAY IN LOOP IF OPC IS Ø

3ØØ PRINT “All finished!” \END

Fluke 5700A Series II User Manual

Other manuals for Fluke 5700A Series II