Chapter 7 7-39
Programming Examples
Measurement Calibration Examples
BASIC Program Listing
1 ! This program demonstrates how to do adapter removal over HP-IB.
2 !
3 ! EXAMP2E
4 !
5 REAL Delay ! Adapter electrical delay in picoseconds
6 !
7 ASSIGN @Nwa TO 716 ! Assign an I/O path for the analyzer
8 CLEAR SCREEN
9 ! Initialize the system
10 ABORT 7 ! Generate an IFC (Interface Clear)
11 CLEAR @Nwa ! SDC (Selected Device Clear) analyzer
12 OUTPUT @Nwa;”OPC?;PRES;” ! Preset the analyzer and wait
13 ENTER @Nwa;Reply ! Read in the 1 returned
14 !
15 ! Select internal disk.
16 !
17 OUTPUT @Nwa;”INTD;”
18 !
19 ! Assign file #1 to the filename that has a 2-port
20 ! cal previously performed for Port 1’s connector.
21 !
22 PRINT “Enter the name of the instrument state file which”
23 PRINT “has a 2-port cal performed for Port 1’s connector”
24 INPUT ““,F1$
25 OUTPUT @Nwa;”TITF1”””;F1$;”””;”
26 !
27 ! Recall the cal set for Port 1.
28 !
29 DISP “Loading cal arrays, please wait”
30 OUTPUT @Nwa;”CALSPORT1;”
31 OUTPUT @Nwa;”OPC?;NOOP;”
32 ENTER @Nwa;Reply
33 !
34 ! Assign file #2 to the filename that has a 2-port
35 ! cal previously performed for Port 2’s connector.
36 !
37 CLEAR SCREEN
38 PRINT “Enter the name of the instrument state file which”
39 PRINT “has a 2-port cal performed for Port 2’s connector”
40 INPUT ““,F2$
41 OUTPUT @Nwa;”INTD;TITF2”””;F2$;”””;”
42 !
43 ! Recall the cal set for Port 2.
44 !
45 DISP “Loading cal arrays, please wait”
46 OUTPUT @Nwa;”CALSPORT2;”
47 OUTPUT @Nwa;”OPC?;NOOP;”
48 ENTER @Nwa;Reply
49 !
50 ! Set the adapter electrical delay.
51 !
52 INPUT “Enter the electrical delay for the adapter in picoseconds”,Delay
53 OUTPUT @Nwa;”ADAP1”&VAL$(Delay)&”PS;”
54 !
55 ! Perform the “remove adapter” computation.
56 !
To Next Page
Loading...
Need help?
General
