7-36 Chapter7
Programming Examples
Measurement Calibration Examples
1150 DISP “COMPUTING REFLECTION CALIBRATION COEFFICIENTS”
1160 !
1170 OUTPUT @Nwa;”REFD;” ! Reflection portion complete
1180 !
1190 OUTPUT @Nwa;”TRAN;” ! Transmission portion begins
1200 !
1210 CALL Waitforkey(“CONNECT THRU [PORT1 TO PORT 2]”)
1220 DISP “MEASURING FORWARD TRANSMISSION”
1230 OUTPUT @Nwa;”OPC?;FWDT;” ! Measure forward transmission
1240 ENTER @Nwa;Reply ! Read in the 1 returned
1250 !
1260 OUTPUT @Nwa;”OPC?;FWDM;” ! Measure forward load match
1270 ENTER @Nwa;Reply ! Read in the 1 returned
1280 !
1290 DISP “MEASURING REVERSE TRANSMISSION”
1300 OUTPUT @Nwa;”OPC?;REVT;” ! Measure reverse transmission
1310 ENTER @Nwa;Reply ! Read in the 1 returned
1320 !
1330 OUTPUT @Nwa;”OPC?;REVM;” ! Measure reverse load match
1340 ENTER @Nwa;Reply ! Read in the 1 returned
1350 !
1360 OUTPUT @Nwa;”TRAD;” ! Transmission CAL complete
1370 !
1380 INPUT “SKIP ISOLATION CAL? Y OR N.”,An$
1390 IF An$=”Y” THEN
1400 OUTPUT @Nwa;”OMII;” ! Skip isolation cal
1410 GOTO 1600
1420 END IF
1430 !
1440 CALL Waitforkey(“ISOLATE TEST PORTS”)
1450 !
1460 OUTPUT @Nwa;”ISOL;” ! Isolation CAL
1470 OUTPUT @Nwa;”AVERFACT10;” ! Average for 10 sweeps
1480 OUTPUT @Nwa;”AVEROON;” ! Turn on averaging
1490 DISP “MEASURING REVERSE ISOLATION”
1500 OUTPUT @Nwa;”OPC?;REVI;” ! Measure reverse isolation
1510 ENTER @Nwa;Reply ! Read in the 1 returned
1520 !
1530 DISP “MEASURING FORWARD ISOLATION”
1540 OUTPUT @Nwa;”OPC?;FWDI;” ! Measure forward isolation
1550 ENTER @Nwa;Reply ! Read in the 1 returned
1560 !
1570 OUTPUT @Nwa;”ISOD;AVEROOFF;” ! Isolation complete averaging off
1580 OUTPUT 717;”PG;” ! Clear analyzer display prompt
1590 !
1600 DISP “COMPUTING CALIBRATION COEFFICIENTS”
1610 OUTPUT @Nwa;”OPC?;SAV2;” ! Save THE TWO PORT CAL
1620 ENTER @Nwa;Reply ! Read in the 1 returned
1630 !
1640 DISP “DONE WITH FULL 2-PORT CAL. CONNECT TEST DEVICE.”
1650 OUTPUT @Nwa;”MENUON;” ! Turn softkey menu on
1660 !
1670 OUTPUT @Nwa;”OPC?;WAIT;” ! Wait for the analyzer to finish
1680 ENTER @Nwa;Reply ! Read the 1 when complete
1690 LOCAL @Nwa ! Release HP-IB control
1700 !
1710 END
1720 !
To Next Page
Loading...
Need help?
General
