Remote Operation
Remote Program Examples 5
5-63
5-50. Calibration
1Ø ! THIS IS A PROGRAM FOR REMOTE MAIN OUTPUT CALIBRATION
2Ø !
25 REMOTE
3Ø PRINT @4, “*CLS; *SRE 8” ! ENABLE EAV TO TRIGGER SRQ
4Ø ON SRQ GOTO 6Ø ! SRQ HANDLER
5Ø GOTO 14Ø ! START MAIN PROGRAM
6Ø PRINT @4, “FAULT?” \ INPUT @4, A% ! SRQ HANDLER, GET FAULT CODE
7Ø IF A% = Ø GOTO 12Ø ! IF NO FAULT EXIT
8Ø PRINT @4, “EXPLAIN? “;A% \ INPUT @4, A$ ! GET EXPLANATION
9Ø PRINT
1ØØ PRINT “FAULT”;A%;”OCCURRED: “;A$ ! DISPLAY EXPLANATION
11Ø GOTO 6Ø! GET NEXT FAULT
12Ø A% = SPL(4%) ! SERIAL POLL TO CLEAR SP BYTE
13Ø RESUME 53Ø ! END OF SRQ HANDLER
14Ø PRINT “Ambient temperature in Celsius”; ! MAIN PROGRAM BEGINS
15Ø INPUT T ! GET TEMPERATURE FROM OPERATOR
16Ø PRINT @4, “CAL_TEMP”;T ! SET CAL TEMPERATURE
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 ! SET THE VARIABLE FOR -1ØV CAL
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Ø ! SAVE THE CONSTANTS IN MEMORY
45Ø PRINT “Set the CALIBRATION switch to NORMAL” \ GOSUB 47Ø \ GOTO 53Ø
47Ø PRINT “Press RETURN to continue” ! PAUSE FOR OPERATOR SUBROUTINE
48Ø INPUT A$ \ RETURN ! “
49Ø PRINT @4, “*ESR?” \ INPUT @4, A% ! WAIT FOR OPC SUBROUTINE
51Ø IF A% AND 1% THEN RETURN ! “, RETURN IF OPC BIT IS 1
52Ø GOTO 49Ø ! “, STAY IN LOOP IF OPC IS Ø
53Ø PRINT “All finished!” \END
To Next Page
Loading...
Need help?
General
