Agilent Technologies 4294A Programming Manual page 234

Application Sample Programs
Measurement using scanner
Example 13-6 Measurement with channel switching (scanning)
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
234
DIM Adapter$[9],Meas_para$[5],Swp_type$[9]
DIM Fmt_a$[9],Fmt_b$[9],Start$[9],Stop$[9],Nop$[5],Osc$[9]
DIM Bias$[9],Bw$[5],Avg$[5],Header$[9],Buff$[9]
INTEGER Max_chan,Point(4),Scode,I,J,Opc
CLEAR SCREEN
!
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Agt4294a TO 800
ASSIGN @Binary TO 800;FORMAT OFF
ASSIGN @Agt3499a TO 809
Scode=8
ELSE
ASSIGN @Agt4294a TO 717
ASSIGN @Binary TO 717;FORMAT OFF
ASSIGN @Agt3499a TO 709
Scode=7
END IF
!
! Start Stop
DATA "100KHZ" , "200KHZ" , "21" , "0.5" , "0" , "2" , "1"
DATA "100KHZ" , "200KHZ" , "21" , "0.5" , "0" , "2" , "1"
DATA "100KHZ" , "500KHZ" , "81" , "0.5" , "0" , "2" , "1"
DATA "500KHZ" , "600KHZ" , "21" , "0.5" , "0" , "2" , "1"
!
Max_chan=3
Adapter$="M2"
Meas_para$="IMPH"
Swp_type$="LIST"
Pow_mod$="VOLT"
Dc_mod$="VOLT"
!
! 3499A Setting
!
OUTPUT @Agt3499a;"SYSMODE HP3488A"
OUTPUT @Agt3499a;"RESET"
OUTPUT @Agt3499a;"CPAIR 1,2"
OUTPUT @Agt3499a;"CLOSE 100,110"
!
! Adapter Setup
!
CLEAR SCREEN
OUTPUT @Agt4294a;"PRES"
OUTPUT @Agt4294a;"ESNB 256"
OUTPUT @Agt4294a;"*SRE 4"
OUTPUT @Agt4294a;"E4TP "&Adapter$
PRINT "##### Adapter Setup #####"
PRINT "Channel 0 is activated."
Result=FNSetup_4tp(@Agt4294a,Scode,"Open")
IF Result<>0 THEN Prog_end
OUTPUT @Agt4294a;"ECALDON"
!
! 4294A Setting
!
OUTPUT @Agt4294a;"MEAS "&Meas_para$
OUTPUT @Agt4294a;"POWMOD "&Pow_mod$
OUTPUT @Agt4294a;"DCMOD "&Dc_mod$
NOP OSC BIAS BW AVG
13