Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
3-72 Programming Guide
To Perform a Time Interval Calibration (HP BASIC)
(Continued)
1400 Restore_cal:! Restores the calibration data previously saved.
1410 IF Status=0 THEN
1420 INPUT "Calibration successful, restore backup anyway?",Answer$
1430 ELSE
1440 INPUT "Calibration unsuccessful, restore backup?",Answer$
1450 END IF
1460 IF Answer$[1,1]="y" OR Answer$[1,1]="Y" THEN
1470 PRINT "Restoring saved data"
1480 OUTPUT @Count;":CAL:DATA ";Head1$&Cal_data$! Send calibration data
1490 END IF
1500 GOSUB Read_errors
1510 RETURN
1520 !
1530 Wait_for_input:!
1540 INPUT "Input signal ready?",Answer$
1550 WHILE Answer$[1,1]<>"Y" AND Answer$[1,1]<>"y"
1560 INPUT "Input signal ready?",Answer$
1570 END WHILE
1580 RETURN
1590 !
1600 Read_errors: !
1610 REPEAT
1620 OUTPUT @Count;"SYST:ERR?"
1630 ENTER @Count;Err_num,Err_string$
1640 IF Err_num<>0 THEN
1650 PRINT Err_num,Err_string$
1660 END IF
1670 UNTIL Err_num=0
1680 RETURN
1690 End: !
1700 END
To Next Page
Loading...
