
Sample
Program
-4:
Reading
and
Running
a
Program
by
a
Softkey
Operation
This
program
displays
the
le
names
contained
in
the
inserted
disk
on
the
softkey
labels
and
executes
the
selected
le
as
a
program.
With
this
program,
you
need
only
softkey
operation
to
easily
execute
a
program.
If
you
rename
this
le
as
A
UTOST,
it
will
be
automatically
executed
at
the
startup
.
This
is
convenient
when
no
keyboard
is
connected
to
the
instrument.
This
program
is
contained
in
the
attached
sample
disk
with
the
le
name
LABEL
(F
or
Instrument
B
ASIC).
The
program
for
an
external
controller
is
not
provided.
110
ASSIGN
@E5100
TO
800
!
INITIALIZATION
120
DIM
Dir$(1:200)[80],File$(1:200)[10]
130
!
140
CAT
TO
Dir$(*)
!
STORE
FILENAMES
ON
DISK
150
!
160
File_end=0
!
READ
FILENAMES
170
File_number=1
!
180
WHILE
File_end=0
AND
File_number<200
190
File$(File_number)=Dir$(File7)[1,10]
200
IF
File$(File_number)=""
THEN
210
File_end=1
!
220
File_number=File_number-1
!
230
ELSE
!
240
File_number=File1
!
250
END
IF
!
260
END
WHILE
!
270
!
280
Max_page=INT(File_number/6)+1
!
SET
ON-KEY-LABEL
DISPLAY
290
Npage=1
!
300
OUTPUT
@E5100;"BASL"
!
310
!
320
Head:
!
330
Page=(Npage-1)*6
340
!
350
ON
KEY
1
LABEL
File$(Page+1)
GOSUB
Jump1
!
DISPLAY
FILENAMES
ON
LABELS
360
ON
KEY
2
LABEL
File$(Page+2)
GOSUB
Jump2
370
ON
KEY
3
LABEL
File$(Page+3)
GOSUB
Jump3
380
ON
KEY
4
LABEL
File$(Page+4)
GOSUB
Jump4
390
ON
KEY
5
LABEL
File$(Page+5)
GOSUB
Jump5
400
ON
KEY
6
LABEL
File$(Page+6)
GOSUB
Jump6
410
ON
KEY
7
LABEL
"NEXT
PAGE"
GOTO
Jump7
420
ON
KEY
8
LABEL
"PREV.PAGE"
GOTO
Jump8
430
!
440
LOOP
!
WAIT
KEY
ENTRY
450
END
LOOP
!
460
!
470
Jump1:
GET
File$(Page+1)
!
GET
SELECTED
FILE
480
Jump2:
GET
File$(Page+2)
!
490
Jump3:
GET
File$(Page+3)
!
Programming
Miscellaneous
6-17
Содержание 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: ......