Agilent Technologies 4288A Programming Manual page 120

Measurement Applications (Sample Programs)
Measurement with changing channels (scanning)
1250 FOR Ch=0 TO Max_chan
1260 OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
1270 OUTPUT @Agt4288a;"*CLS"
1280 OUTPUT @Agt4288a;"*OPC?"
1290 ENTER @Agt4288a;Buff$
1300 ON INTR 7 GOTO Meas_end
1310 ENABLE INTR 7;2
1320 PRINT "Set the Scanner's Channel to No."&VAL$(Ch)&"."
1330 PRINT "Input External Trigger!"
1340 Meas_wait: GOTO Meas_wait
1350 Meas_end: OFF INTR 7
1360 NEXT Ch
1370 !
1380 OUTPUT @Agt4288a;":DATA? BUF3"
1390 ENTER @Agt4288a USING "#,A";Buff$
1400 ENTER @Agt4288a USING "#,A";Digit$
1410 Read_form$="#,"&Digit$&"A"
1420 ENTER @Agt4288a USING Read_form$;Num_of_byte$
1430 ENTER @Binary;Data(*)
1440 ENTER @Agt4288a USING "#,A";Buff$
1450 !
1460 Img$="2X,2D,7X,D,3X,SD.5DE,2X,SD.5DE,2X,2D"
1470 PRINT "[MEASUREMENT RESULT]"
1480 PRINT "CH No. STATUS
N"
1490 PRINT "----------------------------------------------"
1500 FOR Ch=0 TO Max_chan
1510 PRINT USING Img$;Ch,Data
1520 NEXT Ch
1530 NEXT I
1540 !
1550 Img$="2X,2D,3X,5D,3X,5D,3X,5D,3X,5D,3X,5D,3X,5D"
1560 PRINT "[BIN COUNT RESULT]"
1570 PRINT "CH No.
1580 PRINT "-----------------------------------------------------"
1590 FOR Ch=0 TO Max_chan
1600 OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
1610 OUTPUT @Agt4288a;":CALC:COMP:COUN:MULT:DATA?"
1620 ENTER @Agt4288a;Bin(*)
1630 OUTPUT @Agt4288a;":CALC:COMP:COUN:MULT:OVLD?"
1640 ENTER @Agt4288a;Ovld
1650 PRINT USING Img$;Ch,Bin(1),Bin(2),Bin(3),Bin(10),Bin(11),Ovld
1660 NEXT Ch
1670 !
1680 Prog_end: END
1690 !=============================================
1700 ! Compensation Data Measurement Function
1710 !=============================================
1720 DEF FNCompen(@Agt4288a,Standard$,Limit)
1730 DIM Inp_char$[9],Buff$[9],Std$[9],Err$[50]
1740 REAL Curr_freq,Freq(1:2),Para1,Para2,Zm,Ym,Gm,Bm
1750 REAL Cpref,Dref,Zref,Gref,Bref
1760 INTEGER Err_flag
1770 OUTPUT @Agt4288a;":SOUR:FREQ?"
1780 ENTER @Agt4288a;Curr_freq
1790 Freq(1)=1.E+3
1800 Freq(2)=1.E+6
1810 Load_para$="CPD"
1820 OUTPUT @Agt4288a;":STAT:OPER:ENAB 128"
1830 OUTPUT @Agt4288a;"*SRE 128"
1840 SELECT Standard$
1850 CASE "Open"
1860 Std$="STAN1"
1870 CASE "Short"
118
"&Pri$&"
Ch,1 ,Data
( )
BIN1 BIN2 BIN3
"&Sec$&"
Ch,2 ,Data Ch,3 ,Data
( ) ( )
OUT AUX OVLD"
Chapter 9
BI
Ch 4
( , )