
Programming
Examples
2243
Example24:
!
Input
Floating
Point
or
ASCII
Data
**********************
2245
2247
"Example
24,
Input
Floating
Point
or
ASCII
Data"
2249
!
2251
GOSUB
Blank_keys
2253
ON
KEY
5
LABEL
"
NEXT
EXAMPLE"
GOSUB
Finish
2255
!
2257
OUTPUT
@Rec;"HOLD;
POIN201;
PARA1;
LINP;
ENTO;"
2259
!
2261
OUTPUT
716;"FORM3;
OUTPDATA;"
!
Get
Preamble
and
Size
for
Form
3
Input
2263
ENTER
@Rec_data2;Preamble,Size
2265
OUTPUT
@Rec;"ENTO;"
2267
!
2269
DEG
2271
Again24:
!
2273
Finish=0
2275
Offset=0
2277
!
2279
LINPUT
"ASCII
OR
FLOATING
POINT
(A
or
F)?",Input$
2281
IF
UPC$(Input$)="A"
THEN
2283
"Input
ASCII
(FORM4;)
Data"
2285
GOTO
Input_ascii
2287
ELSE
2289
"Input
Floating
Point
(FORM3;)
Data"
2291
END
IF
2293
!
2295
Input_fp:
!
Input
Floating
Point
2297
IF
Finish=1
THEN
GOTO
Exit_example24
2299
GOSUB
Compute_trace
2301
!
2303
OUTPUT
@Rec;"FORM3;
INPUDATA;"
2305
OUTPUT
@Rec_data2;Preamble,Size,Data(*)
2307
GOTO
Input_fp
2309
!
2311
Input_ascii:
!
Input
ASCII
2313
IF
Finish=1
THEN
GOTO
Exit_example24
2315
GOSUB
Compute_trace
2317
!
2319
OUTPUT
@Rec;"FORM4;
INPUDATA;";
2321
OUTPUT
@Rec_data1;Data_ascii$(*)
2323
!
2325
!
2327
GOTO
Input_ascii
2329
!
2331
Finish:
!
Must
Finish
ASCII
Trace
Before
Exit
2333
Finish=1
2335
RETURN
2337
!
2339
Exit_example24:
!
2341
LINPUT
"Repeat
Example
(Y
or
N)?",Input$
2343
IF
UPC$(Input$)="Y"
THEN
GOTO
Again24
2345
GOSUB
Keys_off
2347
RETURN
2349
!
2351
Compute_trace:
!
2353
Offset=Offset-10
2355
FOR
I=0
TO
200
2357
Data(I,0)=SIN(2*I+Offset)
2359
Data(I,1)=COS(2*I)
2361
NEXT
I
2363
FOR
I=0
TO
200
2365
Data_ascii$(I,0)=VAL$(Data(I,0))
2367
Data_ascii$(I,1)=VAL$(Data(I,1))
2369
NEXT
I
2371
RETURN
18-54
HP-IB
Programming
Содержание 8530A
Страница 9: ......
Страница 31: ......
Страница 34: ...General Information Figure 1 2 Antenna Measurement Setup Using an HP 85310A GeneralInformation 1 3 ...
Страница 51: ......
Страница 65: ......
Страница 81: ......
Страница 83: ......
Страница 84: ...5 Menus Block Chapter Contents Calibration Domain Display Markers MenusBlock 5 1 ...
Страница 85: ...5 2 Menus Block ...
Страница 90: ...Calibration Requirements Figure 5 1 Cal and Cal Type Menus MenusBlock 5 7 ...
Страница 93: ...Antenna Calibration 5 10 MenusBlock ...
Страница 167: ......
Страница 195: ......
Страница 201: ......
Страница 209: ......
Страница 249: ......
Страница 281: ......
Страница 411: ......
Страница 419: ...Glossary Glossary 8 ...
Страница 439: ......