To Next Page

To Previous Page

Programming

1177

250 IF Cal_type<1 OR Cal_type>7 THEN Type_select

260 OFF ERROR

270 !

280 SELECT Cal_type

290 CASE 1

300 Select_port(1,Port(*))

310 Cal_resp(@Agte507x,Ch$,"OPEN",Port(1))

320 CASE 2

330 Select_port(1,Port(*))

340 Cal_resp(@Agte507x,Ch$,"SHOR",Port(1))

350 CASE 3

360 Select_port(2,Port(*))

370 Cal_resp_thru(@Agte507x,Ch$,Port(1),Port(2))

380 CASE 4

390 Select_port(1,Port(*))

400 Cal_solt(@Agte507x,Ch$,1,Port(*))

410 CASE 5

420 Select_port(2,Port(*))

430 Cal_solt(@Agte507x,Ch$,2,Port(*))

440 CASE 6

450 Select_port(3,Port(*))

460 Cal_solt(@Agte507x,Ch$,3,Port(*))

470 CASE 7

480 Select_port(4,Port(*))

490 Cal_solt(@Agte507x,Ch$,4,Port(*))

500 END SELECT

510 !

520 OUTPUT @Agte507x;":MMEM:STOR:STYP CST"

530 OUTPUT @Agte507x;":MMEM:STOR """&File$&""""

540 END

550 !=============================================

560 ! Calibration Kit Selection Function

570 !=============================================

580 SUB Select_cal_kit(@Agte507x,Ch$)

590 DIM Cal_kit_lbl$(1:10)[20],Inp_char$[9]

600 INTEGER Cal_kit,I

610 CLEAR SCREEN

Agilent Technologies E5071C User Manual

Other manuals for Agilent Technologies E5071C