HP 8530A, Руководство по эксплуатации и программированию, Страница: 365 / 439

Programming Examples
1! RE-SAVE "8530_PROGX"
3 ! HP8530A.01.40 June 8, 1992
5 ! Rev. A.01.00
7 !
9 ! Copyright @ HEWLETT-PACKARD COMPANY 1992
11 !
13 ! Requires BASIC 5.0 or higher with:
15 ! IO, MAT, TRANS, COMPLEX
17 !
19 ! Used with 201 Point Trace I/O
21 OPTION BASE 0
23 DIM Data(200,1),Formatted_data(200,1)
25 !
27 ! Used with 360 & 181 point angle domain antenna data
29 DIM Ant_data(360,1),Ant_sum(180,1),Ant_del(180,1)
31 !
33 INTEGER Form1_data(1:801,2) ! Example 8 & 26
35 !
37 INTEGER Learn_string(1:4000) ! Learn String
39 DIM Input$[200],Input2$[50]
41 INTEGER Length,Error_number,Bytea,Byteb,Points,Segment
43 INTEGER Preamble,Size,Size_list,Mem,Trigs,I,C
45 !
47 DIM Filename$[30],Current_line$[256],Response$[30]
49 !
51 REAL Freq,Real,Imag,Mag,Phase,Exponent
53 !
55 REAL Freq_list(200),Log_mag,Lin_mag
57 !
59 DIM Data_ascii$(200,1)[24] ! Example 24
61 !
63 ASSIGN @Rec TO 716 ! Receiver HP-IB address
65 !
67 ! Read ASCII Data to/from HP 8530 HP-IB (OUTPMARK, OUTPACTI, FORM4 I/O)
69 ! (OUTPERRO, OUTPSTAT)
71 ASSIGN @Rec_data1 TO 716;FORMAT ON
73 !
75 ! Read non-ASCII Data to/from HP 8530 HP-IB (FORM1, FORM2, and FORM3 I/0)
77 ASSIGN @Rec_data2 TO 716;FORMAT OFF
79 !
81 ! Write to 8530 System Bus
83 ASSIGN @Rec_systbus TO 717
85 !
87 ! Read from HP 8530 System Bus
89 ASSIGN @Rec_systbusdata TO 717;FORMAT ON
91 !
93 Begin: !
95 REMOTE 7
97 CLEAR 716
99 PRINTER IS 1
101 CONTROL KBD,2;1 ! activate user softkeys
103 GOSUB Load_ant_arrays ! loads antenna data arrays for use later
105 PRINT
107 !
109 PRINT "**** NOTE: User Preset (Instrument State 8) must be saved with an operating,"
111 PRINT " sweeping, frequency domain state for your system."
113 PRINT
115 PRINT " Save Instrument State 8 Now If Necessary."
117 LOCAL @Rec
119 LINPUT "Press RETURN",Input$
121 CLEAR SCREEN
18-36 HP-IB Programming