![Agilent Technologies Agilent 4396B Скачать руководство пользователя страница 83](http://html.mh-extra.com/html/agilent-technologies/agilent-4396b/agilent-4396b_gpib-programming-manual_2867995083.webp)
c
b
310
CLEAR
@Hp4396
320
OUTPUT
@Hp4396;"CLES"
330
OUTPUT
@Hp4396;"ROPEN
""";Src_file$;""""
340
IF
FNCheck_error(@Hp4396,"<CPFI:
ropen>")=-1
THEN
SUBEXIT
350
!
360
LOOP
370
OUTPUT
@Hp4396;"READ?"
380
ENTER
@Hp4396
USING
"#,2A";Dmy$
390
ENTER
@Hp4396
USING
"#,6A";Len$
400
Block_size=VAL(Len$)
410
!
420
IF
Block_size=0
THEN
430
ENTER
@Hp4396
USING
"%,A";Dmy$
440
ASSIGN
@Dst_file
TO
*
450
OUTPUT
@Hp4396;"CLOSE"
460
SUBEXIT
470
END
IF
480
!
490
ALLOCATE
Dat$[Block_size]
500
Img$="#,"&VAL$(Block_size)&"A"
510
ENTER
@Hp4396
USING
Img$;Dat$
520
ENTER
@Hp4396
USING
"%,A";Dmy$
530
OUTPUT
@Dst_file
USING
Img$;Dat$
540
DEALLOCATE
Dat$
550
!
560
IF
FNCheck_error(@Hp4396,"<CPFI:
read>")=-1
THEN
SUBEXIT
570
END
LOOP
580
SUBEND
590
!
600
!
Instrument
Error
Check
610
!
620
DEF
FNCheck_error(@Hp4396,Str$)
630
DIM
Err$[64]
640
OUTPUT
@Hp4396;"OUTPERRO?"
650
ENTER
@Hp4396;Err$
660
IF
Err$"+0,""No
error"""
THEN
670
"ERROR:
";Str$;"
";Err$
680
RETURN
-1
690
ELSE
700
RETURN
0
710
END
IF
720
FNEND
Figure
11-7.
Sample
Program:
File
Transfer
from
4396B
to
External
Controller
(2/2)
Lines
80
to
140
accept
the
entry
of
the
source
le
name
and
the
destination
le
name
.
Line
160
calls
the
subprogram
to
transfer
a
le
from
the
4396B
to
the
external
controller
.
Lines
250
to
290
prepare
for
writing
to
the
destination
le
.
Lines
310
to
340
prepare
for
reading
the
source
le
to
the
external
controller
.
Line
370
executes
the
query
command
to
read
data.
Lines
380
to
400
read
the
part
indicating
the
length
of
the
xed
length
block
data
(see
Figure
11-8)
to
obtain
the
length
of
the
data
to
be
transferred.
Lines
420
to
470
check
the
data
length.
If
the
data
length
is
0,
the
transfer
process
is
terminated.
Using
Application
Programs
11-11
Содержание Agilent 4396B
Страница 12: ...Tables A 1 Manual Changes by Serial Number A 1 A 2 Manual Changes by Firmware Version A 1 Contents 6 ...
Страница 32: ......
Страница 52: ......
Страница 68: ......
Страница 72: ......
Страница 92: ......
Страница 96: ......
Страница 99: ...Agilent 4396B Network Spectrum Impedance Analyzer Using Instrument BASIC with the 4396B Printed in JAPAN ...
Страница 100: ...c Copyright 1997 2000 2001 2003 Agilent Technologies Japan Ltd ...
Страница 116: ......
Страница 126: ......
Страница 130: ......
Страница 138: ......
Страница 148: ......
Страница 163: ...C The Keyboard Mini DIN keyboard is following key layout Figure C 1 mini DIN Keyboard The Keyboard C 1 ...
Страница 176: ......