13 199
Application Sample Programs
Measuring Dielectric Material
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
1090 PAUSE
1100 DISP "Wait until the setup is finished."
1110 OUTPUT @Agt4294a;"E4TP M1"
1120 Result=FNUser_Corr(@Agt4294a,"Adapter_Phase")
1130 IF Result<>0 THEN Prog_end
1140 OUTPUT @Agt4294a;"ECALDON"
1150 DISP ""
1160 PRINT TABXY(2,5);"x] "
1170 RETURN
1180 !
1190 Adjust:!
1200 IF Elec$="C" OR Elec$="D" THEN
1210 PRINT TABXY(2,6);"n] "
1220 RETURN
1230 END IF
1240 IF F_adapt_setup=0 THEN
1250 DISP "Perform the electrode adjustment? 0:Yes, 1:Skip";
1260 INPUT "",Ans
1270 IF Ans=1 THEN
1280 PRINT TABXY(2,6);"s] "
1290 RETURN
1300 END IF
1310 END IF
1320 F_adjust=1
1330 PRINT TABXY(5,6);"->"
1340 OUTPUT @Agt4294a;"SWPT LIN"
1350 OUTPUT @Agt4294a;"CENT ";Adj_center
1360 OUTPUT @Agt4294a;"SPAN 0"
1370 OUTPUT @Agt4294a;"POIN 2"
1380 OUTPUT @Agt4294a;"CALP USER"
1390 OUTPUT @Agt4294a;"MEAS CPD;TRAC A"
1400 OUTPUT @Agt4294a;"HIDI ON"
1410 OUTPUT @Agt4294a;"EDITLIML"
1420 OUTPUT @Agt4294a;"LIMCLEL ;LIMSADD"
1430 OUTPUT @Agt4294a;"LIMSTAR ";Adj_center
1440 OUTPUT @Agt4294a;"LIMSTOP ";Adj_center
1450 OUTPUT @Agt4294a;"LIMLSTAR ";Adj_low_limit
1460 OUTPUT @Agt4294a;"LIMUSTAR ";Adj_up_limit
1470 OUTPUT @Agt4294a;"LIMLSTOP ";Adj_low_limit
1480 OUTPUT @Agt4294a;"LIMUSTOP ";Adj_up_limit
1490 OUTPUT @Agt4294a;"LIMSDON;;LIMEDONE"
1500 OUTPUT @Agt4294a;"TOPV ";1.5*Adj_up_limit-.5*Adj_low_limit
1510 OUTPUT @Agt4294a;"BOTV ";1.5*Adj_low_limit-.5*Adj_up_limit
1520 !
1530 OUTPUT @Agt4294a;"LIMITEST OFF"
1540 DISP "Set the micrometer of 16451B at 10um and press 'Continue'."
1550 PAUSE
1560 OUTPUT @Agt4294a;"LIMITEST ON"
1570 OUTPUT @Agt4294a;"CONT"
1580 OUTPUT @Agt4294a;"MKR ON"
1590 DISP "Adjust the electrode until PASS is displayed"
1600 PAUSE
1610 OUTPUT @Agt4294a;"HOLD"
1620 OUTPUT @Agt4294a;"OUTPFAIP?"
1630 ENTER @Agt4294a;F_nop
1640 IF F_nop<>0 THEN Adj
1650 OUTPUT @Agt4294a;"LIMITEST OFF"
1660 PRINT TABXY(2,6);"x] "
1670 RETURN
1680 !
1690 Compen:!
1700 IF F_adjust=0 THEN
1710 DISP "Perform the fixture compensation? 0:Yes, 1:Skip";
1720 INPUT "",Ans
To Next Page
Loading...
Need help?
General
