Giga-tronics 58542 - Page 191

Program Examples
Publication 21555, Rev. E, September 2002 A-9
-300, Device-specific error;No Sensor
Calibration FAILED, sensor on calibrator?
410 ASSIGN @Pwr_mtr to 70101
420 CLEAR @Pwr_mtr
440 WAIT 1
450 INPUT Disconnect the sensor from the cable 1 second after hitting ENTER. Hit ENTER.,Dmy
460 PRINT Calibrating Sensor 1
470 OUTPUT @Pwr_mtr;CAL1?
480 ENTER @Pwr_mtr;Pass_cal
490 IF Pass_cal=0 THEN PRINT Calibration Passed
500 IF Pass_cal=1 THEN
510 Ques$=Calibration FAILED, sensor on calibrator?
520 OUTPUT @Pwr_mtr;SYST:ERR?
530 ENTER @Pwr_mtr;Err_msg$ ! Reading an error message clears it.
540 PRINT Err_msg$
550 PRINT Ques$
560 ELSE
570 IF Pass_cal<>0 THEN PRINT Strange Response to CAL1?. Clear output Queue?
580 END IF
590 !
600 !
610 STOP
Program Output:
Calibrating Sensor 1
-300, Device-specific error;Sensor not connected to calibrator
Calibration FAILED, sensor on calibrator?
410 ASSIGN @Pwr_mtr to 70101
420 CLEAR @Pwr_mtr
440 WAIT 1
450 INPUT Do not connect the sensor to the calibrator. Hit ENTER.,Dmy
460 PRINT Calibrating Sensor 1
470 OUTPUT @Pwr_mtr;CAL1?
480 ENTER @Pwr_mtr;Pass_cal
490 IF Pass_cal=0 THEN PRINT Calibration Passed
500 IF Pass_cal=1 THEN
510 Ques$=Calibration FAILED, sensor on calibrator?
520 OUTPUT @Pwr_mtr;SYST:ERR?
530 ENTER @Pwr_mtr;Err_msg$ ! Reading an error message clears it.
540 PRINT Err_msg$
550 PRINT Ques$
560 ELSE
570 IF Pass_cal<>0 THEN PRINT Strange Response to CAL1?. Clear output Queue?
580 END IF
590 !
600 !
610 STOP
Program Output:
Calibrating Sensor 1
-300, Device-specific error;Sensor not connected to calibrator
Calibration FAILED, sensor on calibrator?
410 ASSIGN @Pwr_mtr to 70101
420 CLEAR @Pwr_mtr
440 WAIT 1
449 PRINT Connect the sensor to the calibrator.
450 INPUT Remove the sensor 10 seconds after hitting ENTER. Hit ENTER.,Dmy
460 PRINT Calibrating Sensor 1
470 OUTPUT @Pwr_mtr;CAL1?
480 ENTER @Pwr_mtr;Pass_cal
490 IF Pass_cal=0 THEN PRINT Calibration Passed