
140
DIM
Src_file$[50],Dst_file$[50]
150
ASSIGN
@Agte5100
TO
717
160
OUTPUT
@Agte5100;"*rst"
170
!
180
MASS
STORAGE
IS
"a:\
190
OUTPUT
@Agte5100;"STODMEMO"
200
!
210
"
ENTER
SOURCE
FILE
NAME
ON
INSTRUMENT
?
";
220
INPUT
Src_file$
230
Src_file$
240
!
250
"
ENTER
DESTINATION
FILE
NAME
ON
CONTROLLER
?
";
260
INPUT
Dst_file$
270
Dst_file$
280
!
290
Copy_from_instr(@Agte5100,Src_file$,Dst_file$)
300
!
310
END
320
!
330
!
copy_from_instrument
340
!
350
SUB
Copy_from_instr(@Agte5100,Src_file$,Dst_file$)
360
DIM
Len$[6],Img$[32],Dmy$[2]
370
!
380
ON
ERROR
GOTO
Skip_purge
390
PURGE
Dst_file$
400
Skip_purge:
OFF
ERROR
410
CREATE
Dst_file$,1
420
ASSIGN
@Dst_file
TO
Dst_file$
430
!
440
CLEAR
@Agte5100
450
OUTPUT
@Agte5100;"CLES"
460
OUTPUT
@Agte5100;"ROPEN
""";Src_file$;""""
470
IF
FNCheck_error(@Agte5100,"<CPFI:
ropen>")=-1
THEN
SUBEXIT
480
!
490
LOOP
500
OUTPUT
@Agte5100;"READ?"
510
ENTER
@Agte5100
USING
"#,2A";Dmy$
520
ENTER
@Agte5100
USING
"#,6A";Len$
530
Block_size=VAL(Len$)
540
!
550
IF
Block_size=0
THEN
560
ENTER
@Agte5100
USING
"%,A";Dmy$
570
ASSIGN
@Dst_file
TO
*
580
OUTPUT
@Agte5100;"CLOSE"
590
SUBEXIT
600
END
IF
610
!
620
ALLOCATE
Dat$[Block_size]
630
Img$="#,"&VAL$(Block_size)&"A"
640
ENTER
@Agte5100
USING
Img$;Dat$
650
ENTER
@Agte5100
USING
"%,A";Dmy$
660
OUTPUT
@Dst_file
USING
Img$;Dat$
670
DEALLOCATE
Dat$
680
!
J-4
File
T
ransfer
Function
Содержание E5100A
Страница 1: ...Agilent E5100A B Network Analyzer Programming Manual ...
Страница 2: ......
Страница 5: ...c Copyright 1995 1996 1997 1998 2000 2001 Agilent Technologies Japan Ltd ...
Страница 8: ......
Страница 36: ......
Страница 46: ......
Страница 48: ...Figure 3 1 Simpli ed Data Processing Flow 1 3 2 Data Processing and T ransfer ...
Страница 58: ......
Страница 76: ......
Страница 105: ...610 RETURN 620 630 Ending ENDING PROGRAM 640 ASSIGN Dt TO 650 660 END Application Sample Programs 7 7 ...
Страница 112: ......
Страница 232: ......
Страница 246: ......
Страница 250: ......
Страница 277: ...110 PRINT Pole left Pole1 dB Fp1 Hz 120 PRINT Pole right Pole2 dB Fp2 Hz 130 END Waveform Analysis Commands D 27 ...
Страница 299: ...110 END Waveform Analysis Commands D 49 ...
Страница 302: ......
Страница 322: ......
Страница 350: ......
Страница 352: ......
Страница 362: ......
Страница 368: ......
Страница 372: ......