7-32 Chapter7
Programming Examples
Measurement Calibration Examples
830 !
840 OUTPUT @Nwa;”REFD;” ! Reflection portion complete
850 !
860 OUTPUT @Nwa;”TRAN;” ! Transmission portion begins
870 !
880 CALL Waitforkey(“CONNECT THRU BETWEEN PORTS”)
890 DISP “MEASURING FORWARD TRANSMISSION”
900 OUTPUT @Nwa;”OPC?;FWDT;” ! Measure (forward) transmission
910 ENTER @Nwa;Reply ! Read in the 1 returned
920 !
930 OUTPUT @Nwa;”OPC?;FWDM;” ! Measure (forward) load match
940 ENTER @Nwa;Reply ! Read in the 1 returned
950 !
960 OUTPUT @Nwa;”TRAD;” ! Transmission CAL complete
970 !
980 INPUT “SKIP ISOLATION CAL? Y OR N.”,An$
990 IF An$=”Y” THEN
1000 OUTPUT @Nwa;”OMII;” ! Skip isolation cal
1010 GOTO 1150
1020 END IF
1030 !
1040 CALL Waitforkey(“ISOLATE TEST PORTS”)
1050!
1060 OUTPUT @Nwa;”ISOL;” ! Isolation CAL
1070 OUTPUT @Nwa;”AVERFACT10;” ! Average for 10 sweeps
1080 OUTPUT @Nwa;”AVEROON;” ! Turn on averaging
1090 DISP “MEASURING ISOLATION”
1100 OUTPUT @Nwa;”OPC?;FWDI;” ! Measure (forward) isolation
1110 ENTER @Nwa;Reply ! Read in the 1 returned
1120!
1130 OUTPUT @Nwa;”ISOD;AVEROOFF;” ! Isolation complete averaging off
1140!
1150 DISP “COMPUTING CALIBRATION COEFFICIENTS”
1160 OUTPUT @Nwa;”OPC?;ERCDONE;” ! Finished with the CAL cycle
1170 ENTER @Nwa;Reply ! Read in the 1 returned
1180!
1190 DISP “ENHANCED RESPONSE CAL COMPLETED. CONNECT TEST DEVICE.”
1200 OUTPUT @Nwa;”MENUON;” ! Turn softkey menu on
1210!
1220 OUTPUT @Nwa;”OPC?;WAIT;” ! Wait for the analyzer to finish
1230 ENTER @Nwa;Reply ! Read the 1 when complete
1240 LOCAL @Nwa ! Release HP-IB control
1250!
1260 END
1270!
1280! **************************** Subroutines ******************************
1290!
1300 Waitforkey: ! Prompt routine to read a keypress on the controller
1310 SUB Waitforkey(Lab$)
1320! Position and display text on the analyzer display
1330 OUTPUT 717;”PG;PU;PA390,3700;PD;LB”;Lab$;”, PRESS ENTER WHEN READY;”&CHR$(3)
1340!
1350 DISP Lab$&” Press ENTER when ready”;! Display prompt on console
1360 INPUT A$ ! Read ENTER key press
1370!
1380 OUTPUT 717;”PG;” ! Clear analyzer display
1390 SUBEND
To Next Page
Loading...
Need help?
General
