Agilent Technologies 4294A Programming Manual page 223

Precision impedance analyzer

Hide thumbs Also See for 4294A:

Table of Contents

3130 Prog_end: END

! Correction Data Measurement Function

DEF FNUser_Corr(@Agt4294a,Type$)

DIM Inp_char$[9],Err_mes$[50]

INTEGER Err_no

OUTPUT @Agt4294a;"ESNB 256"

OUTPUT @Agt4294a;"*SRE 4"

OUTPUT @Agt4294a;"*CLS"

ON INTR 8 GOTO Meas_end

ENABLE INTR 8;2

SELECT Type$

CASE "Adapter_Phase"

OUTPUT @Agt4294a;"ECALP"

CASE "Compen_Open"

OUTPUT @Agt4294a;"COMA"

CASE "Compen_Short"

OUTPUT @Agt4294a;"COMB"

CASE "Compen_Load"

OUTPUT @Agt4294a;"COMC"

PRINT "Now measuring..."

3380 Meas_wait:

GOTO Meas_wait

3390 Meas_end:

OUTPUT @Agt4294a;"OUTPERRO?"

ENTER @Agt4294a;Err_no,Err_mes$

IF Err_no=0 THEN

PRINT Standard$&" Data Measurement Complete"

PRINT "Error: "&Err_mes$

PRINT "Program Interruption"

OUTPUT @Agt4294a;"ECALQUI"

Application Sample Programs

Measuring Magnetic Materials

Show Quick Links

Table of Contents