Agilent Technologies 8719ES, Programmer'S Manual

Page: 394 / 541

Chapter 7 7-31
Programming Examples
Measurement Calibration Examples
250 CLEAR @Nwa ! SDC (Selected Device Clear)
260 ! Select CAL kit type
270 PRINT “Enter one of the following numbers:”
280 PRINT “1 to use the HP 85031B kit (8753),”
290 PRINT “2 to use the HP 85032B/E kit (8753),”
300 PRINT “3 to use the HP 85052B/D kit (8719/8720/8722),”
310 INPUT “4 to use the HP 85056A/D kit (8719/8720/8722)”,Kit
320 SELECT Kit
330 CASE 1
340 OUTPUT @Nwa;”CALK7MM;”
350 CASE 2
360 OUTPUT @Nwa;”CALKN50;”
370 CASE 3
380 OUTPUT @Nwa;”CALK35MD;”
390 CASE ELSE
400 OUTPUT @Nwa;”CALK24MM;”
410 END SELECT
420 !
430 OUTPUT @Nwa;”MENUOFF;” ! Turn softkey menu off.
440 !
450 OUTPUT @Nwa;”CALIERC;” ! Enhanced response CAL initiated
460 !
470 OUTPUT @Nwa;”REFL;” ! Reflection CAL
480 !
490 ! Open reflection CAL
500 CALL Waitforkey(“CONNECT OPEN AT PORT 1 (REFLECTION PORT)”)
510 IF Kit=2 THEN
520 OUTPUT @Nwa;”CLASS11A;”
530 OUTPUT @Nwa;”OPC?;STANB;” ! Select the second standard, B
540 ELSE
550 OUTPUT @Nwa;”OPC?;CLASS11A;” ! Only one standard in class
560 END IF
570 ENTER @Nwa;Reply ! Read in the 1 returned
580 OUTPUT @Nwa;”DONE;” ! Finished with class standards
590 !
600 ! Short reflection CAL
610 CALL Waitforkey(“CONNECT SHORT AT PORT 1 (REFLECTION PORT)”)
620 IF Kit=2 THEN
630 OUTPUT @Nwa;”CLASS11B;”
640 OUTPUT @Nwa;”OPC?;STANB;” ! Select the second standard, B
650 ELSE
660 OUTPUT @Nwa;”OPC?;CLASS11B;” ! Only one standard in class
670 END IF
680 ENTER @Nwa;Reply ! Read in the 1 returned
690 OUTPUT @Nwa;”DONE;” ! Finished with class standards
700 !
710 ! Reflection load CAL
720 CALL Waitforkey(“CONNECT LOAD AT PORT 1 (REFLECTION PORT)”)
730 IF Kit=3 OR Kit=4 THEN
740 OUTPUT @Nwa;”CLASS11C;”
750 OUTPUT @Nwa;”OPC?;STANA;” ! Select the first standard, A
760 ELSE
770 OUTPUT @Nwa;”OPC?;CLASS11C;” ! Only one standard in class
780 END IF
790 ENTER @Nwa;Reply ! Read in the 1 returned
800 OUTPUT @Nwa;”DONE;” ! Finished with class standards
810 !
820 DISP “COMPUTING REFLECTION CALIBRATION COEFFICIENTS”