7-34 Chapter7
Programming Examples
Measurement Calibration Examples
BASIC Program Listing
10 ! This program guides the operator through a full 2-port calibration.
20 ! The operator must choose one of the following calibration kits:
30 !
40 ! Analyzer Cal Kits
50 ! -------- --------
60 ! 8753ES/ET HP 85031B (7 mm), HP 85032B/E (Type N 50 ohm)
70 !
80 ! 8719ES/ET HP 85052B/D (3.5 mm), HP 85056A/D (2.4 mm)
90 ! 8720ES/ET “ , “
100 ! 8722ES/ET “ , “
110 !
120 ! The routine Waitforkey displays a message on the instrument’s
130 ! display and the console to prompt the operator to connect the
140 ! calibration standard. Once the standard is connected, the
150 ! ENTER key on the computer keyboard is pressed to continue.
160 !
170 ! EXAMP2D
180 !
190 ASSIGN @Nwa TO 716 ! Assign an I/O path to the analyzer
200 !
210 CLEAR SCREEN
220 ! Initialize the analyzer
230 ABORT 7 ! Generate an IFC (Interface Clear)
240 CLEAR @Nwa ! SDC (Selected Device Clear)
250 ! Select CAL kit type
260 PRINT “Enter one of the following numbers:”
270 PRINT “1 to use the HP 85031B kit (8753),”
280 PRINT “2 to use the HP 85032B/E kit (8753),”
290 PRINT “3 to use the HP 85052B/D kit (8719/8720/8722),”
300 PRINT “4 to use the HP 85056A/D kit (8719/8720/8722)”
310 INPUT 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;”CALIFUL2;” ! Full 2 port CAL
460 !
470 OUTPUT @Nwa;”REFL;” ! Reflection CAL
480 !
490 ! S11 open CAL
500 CALL Waitforkey(“CONNECT OPEN AT PORT 1”)
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