67
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Proguide\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Comprehensive Program Example
1580 ! Step 6b: Determine if a measurement is done:
1590 !
1600 LOOP
1610 OUTPUT Test_set;”INIT:DONE?”
1620 ENTER Test_set;Meas_done$
1630 !
1640 ! Step 6c: Obtain measurement results: Each measurement illustrates a
1650 ! different way of reading in results. There is no one right way. The
1660 ! method used is application dependent. Note that the examples do not
1670 ! show all possible ways.
1680 !
1690 SELECT Meas_done$
1700 !
1710 CASE “TXP” ! TX Power measurement done.
1720 OUTPUT Test_set;”FETC:TXP:INT?;POW:ALL?”
1730 ENTER Test_set;Integrity,Txpower(*)
1740 IF (Integrity=0) THEN ! Always check integrity value.
1750 PRINT “TX Power results: TCH =”;Traf_chan;”and TXL =”;Ms_pwr_lvl
1760 PRINT USING “5X,””Minimum:””,M2D.2D,”” dBm”””;Txpower(1)
1770 PRINT USING “5X,””Maximum:””,M2D.2D,”” dBm”””;Txpower(2)
1780 PRINT USING “5X,””Average:””,M2D.2D,”” dBm”””;Txpower(3)
1790 PRINT USING “5X,””Std Dev:””,M2D.2D,”” dB”””;Txpower(4)
1800 ELSE
1810 GOSUB Bad_measurement
1820 END IF
1830 !
1840 CASE “PFER” ! Phase & Frequency Error measurement done.
1850 OUTPUT Test_set;”FETC:PFER:ALL?”
1860 ENTER Test_set;Integrity,Rms_phas_err,Peak_phas_err,Worst_freq_err
1870 IF (Integrity=0) THEN
1880 PRINT “PFERror results: TCH =”;Traf_chan;”and TXL =”;Ms_pwr_lvl
1890 PRINT USING “5X,””RMS Phase Error:””,M2D.2D,”” deg”””;Rms_phas_err
1900 PRINT USING “5X,””Peak Phase Error:””,M2D.2D,”” deg”””;Peak_phas_err
1910 PRINT USING “5X,””Worst Freq Error:””,M3D.2D,”” Hz”””;Worst_freq_err
1920 ELSE
1930 GOSUB Bad_measurement
1940 END IF
1950 !
1960 CASE “ORFS” ! ORFS measurement done.
1970 !
1980 ! This code illustrates a more ‘generic’ approach to reading measurement
1990 ! results. By using the capabilities designed into high-level
2000 ! measurements, routines that access measurement results do not have to
2010 ! explicitly know what the measurement execution conditions were. That
2020 ! information can be determined at the time the measurement results are
2030 ! queried.
2040 !
2050 OUTPUT Test_set;”FETC:ORFS:INT?” ! Check measurement integrity.
2060 ENTER Test_set;Integrity
2070 IF (Integrity=0) THEN
2080 OUTPUT Test_set;”SET:ORFS:SWIT:FREQ:POIN?” ! Get number of offsets
2090 ! tested.
2100 ENTER Test_set;Points