Specifications

180 Chapter 15
Sample Application Programs
Measuring the DUT with a Test Fixture
2510 PRINT "Rdc =";ABS(Rdc)
2520 IF ABS(Rdc)>Limit THEN Err_flag=1
2530 END SELECT
2540 IF Err_flag=0 THEN
2550 PRINT Standard$&" Data Measurement Complete"
2560 ELSE
2570 PRINT "ERROR!!"
2580 GOTO Compen_meas
2590 END IF
2600 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
2610 RETURN 0
2620 ELSE
2630 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
2640 PRINT "Program Interruption"
2650 RETURN -1
2660 END IF
2670 FNEND
2680 !=============================================
2690 ! Test Fixture Setting Function
2700 !=============================================
2710 SUB Set_fixture(@Agt4287a)
2720 DIM Inp_char$[30]
2730 INTEGER Fixture
2740 REAL E_len
2750 !
2760 ON ERROR GOTO Fixture_select
2770 Fixture_select: !
2780 PRINT "Select Test Fixture"
2790 PRINT " 1: None"
2800 PRINT " 2: 16191A"
2810 PRINT " 3: 16192A"
2820 PRINT " 4: 16193A"
2830 PRINT " 5: 16194A"
2840 PRINT " 6: 16196A"
2850 PRINT " 7: 16196B"
2860 PRINT " 8: 16196C"
2870 PRINT " 9: USER"
2880 INPUT "Input 1 to 9",Inp_char$
2890 Fixture=IVAL(Inp_char$,10)
2900 IF Fixture<1 OR Fixture>8 THEN Fixture_select
2910 OFF ERROR
2920 SELECT Fixture
2930 CASE 1
2940 OUTPUT @Agt4287a;":CORR2:FIXT NONE"
2950 CASE 2
2960 OUTPUT @Agt4287a;":CORR2:FIXT FXT16191A"
2970 CASE 3
2980 OUTPUT @Agt4287a;":CORR2:FIXT FXT16192A"
2990 CASE 4
3000 OUTPUT @Agt4287a;":CORR2:FIXT FXT16193A"
3010 CASE 5
3020 OUTPUT @Agt4287a;":CORR2:FIXT FXT16194A"
3030 CASE 6
3040 OUTPUT @Agt4287a;":CORR2:FIXT FXT16196A"
3050 CASE 7
3060 OUTPUT @Agt4287a;":CORR2:FIXT FXT16196B"
3070 CASE 8
3080 OUTPUT @Agt4287a;":CORR2:FIXT FXT16196C"
3090 CASE 9
3100 OUTPUT @Agt4287a;":CORR2:FIXT USER"
3110 CALL Inp_data("Electrical Length of the User Fixture",E_len)
3120 OUTPUT @Agt4287a;":CORR2:FIXT:EDEL:DIST ";E_len
3130 END SELECT
3140 SUBEND