Giga-tronics 58542 - Sensor Serial Number Identification

Program Examples
Publication 21555, Rev. E, September 2002 A-51
A.11.3 Sensor Serial Number Identification
Tracking sensor serial numbers is important. Measurements cannot be performed unless the sensor has
been calibrated to the meter using the built-in power sweep calibrator: this ensures that measurements
will never be performed with an uncalibrated sensor. The Giga-tronics 58542 tracks this requirement by
reading the sensor’s serial number. Thus, by reading in the sensor’s serial number at the beginning of
measurement subroutines, the user can automatically determine whether or not power sweep calibration
is required. This is illustrated in the following example.
990 Compare_serno: !
995 !
1000 !#############################################
1010 !
1020 ! This program identifies sensors by their serial number
1030 ! and jumps to a calibration subroutine if it is a new sensor.
1040 !
1050 !#############################################
1060 !
1070 ! Sensor Identification routine at beginning of measurement sequence.
1080 ! New sensors will not operate unless they pass calibration first.
1090 !
1100 OUTPUT @Pwr_mtr;SENS1:CORR:EEPROM:TYPE?
1110 ENTER @Pwr_mtr;New_snsr1_model,New_snsr1_serno
1120 OUTPUT @Pwr_mtr;SENS2:CORR:EEPROM:TYPE?
1130 ENTER @Pwr_mtr;New_snsr2_model,New_snsr2_serno
1140 !
1150 IF Old_snsr1_serno=New_snsr1_serno THEN
1160 !
1170 ELSE
1180 GOSUB Pwr_swp_cal1 ! New Sensor 1, Must Calibrate To the Meter
1190 END IF
1200 !
1210 IF Old_snsr2_serno=New_snsr2_serno THEN
1220 !
1230 ELSE
1240 GOSUB Pwr_swp_cal2 ! New Sensor 2, Must Calibrate To the Meter
1250 END IF
1260 !
1270 ! Concludes Sensor Serial Number Comparison
1280 ! Use a similar routine when a particular sensor model is required.
1290 ! To do both: Nest an IF-THEN for model # ahead of GOSUB
! Pwr_swp_cal#.
1300 !
1310 !######################################################
1320 !
1330 ! Main loop
1340 !
1350 OUTPUT @Pwr_mtr;SENS1:AVER:TCON:MOV
! MOV, Average new sample with previous samples
1360 OUTPUT @Pwr_mtr;SENS2:AVER:TCON:MOV
! MOV, Average new sample with previous samples
1370 !
1380 LOOP
1390 OUTPUT @Pwr_mtr;MEAS1?
! TRIGGER AND READ CHANNEL 1
1400 ENTER @Pwr_mtr;MEAS1
1410 PRINT CHANNEL 1 IS ;Meas1;dBm.
1420 !
1430 OUTPUT @Pwr_mtr;MEAS2? ! TRIGGER AND READ CHANNEL 2
1440 ENTER @Pwr_mtr;Meas2
1450 PRINT CHANNEL 2 IS ;Meas2;dBm.
1460 END LOOP
1470 !
1480 !#####################################################