Agilent Technologies 4288A Programming Manual page 114

Measurement Applications (Sample Programs)
Measurement with Auto-sorting System
2070 Bm=2*PI*Freq(I)*Para1
2080 Gm=Bm*Para2
2090 Zm=1/SQRT(Gm*Gm+Bm*Bm)
2100 PRINT "Cpref=";Cpref,"Dref=";Dref,"|Zref| =";Zref
2110 PRINT "Cp
2120 IF ABS((Zm-Zref)/Zref)>=Limit THEN Err_flag=1
2130 END SELECT
2140 IF Err_flag<>0 THEN
2150 PRINT "Out of limit!!"
2160 GOTO Compen_meas
2170 END IF
2180 NEXT I
2190 PRINT Standard$&" Data Measurement Complete"
2200 OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2210 RETURN 0
2220 ELSE
2230 PRINT "Program Interruption"
2240 OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2250 RETURN -1
2260 END IF
2270 FNEND
2280 !=============================================
2290 ! Data Input Function
2300 !=============================================
2310 SUB Inp_data(Mes$,Inp_val)
2320 DIM Inp_char$[30]
2330 ON ERROR GOTO Inp_start
2340 Inp_start:!
2350 PRINT "Input "&Mes$
2360 INPUT "Value?",Inp_char$
2370 Inp_val=VAL(UPC$(Inp_char$))
2380 PRINT "Input Value: ";Inp_val
2390 INPUT "OK? [Y/N]",Inp_char$
2400 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2410 OFF ERROR
2420 SUBEND
112
=";Para1,"D =";Para2,"|Z| =";Zm
Chapter 9