Specifications
190 Chapter 15
Sample Application Programs
Using an Auto-sorting System
2950 PRINT USING Img2$;Para$(1),I,P1(I,6),P1(I,7),P1(I,8),P1(I,9),
P1(I,10)
2960 NEXT I
2970 FOR I=1 TO Nop
2980 PRINT USING Img2$;Para$(2),I,P2(I,6),P2(I,7),P2(I,8),P2(I,9),
P2(I,10)
2990 NEXT I
3000 !----------------------------------------
3010 ! Save Log Data
3020 !----------------------------------------
3030 OUTPUT @Agt4287a;":MMEM:STOR """&File$&""",LOG"
3040 PRINT "Log Data File: "&File$
3050 !
3060 Prog_end:END
3070 !=============================================
3080 ! Calibration Data Measurement Function
3090 !=============================================
3100 DEF FNCal(@Agt4287a,INTEGER Scode,Standard$,REAL L_lim,REAL U_lim)
3110 DIM Inp_char$[9],Trig_sour$[9],Buff$[9]
3120 REAL Meas_data
3130 INTEGER Err_flag
3140 OUTPUT @Agt4287a;":TRIG:SOUR?"
3150 ENTER @Agt4287a;Trig_sour$
3160 OUTPUT @Agt4287a;":ABOR"
3170 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
3180 OUTPUT @Agt4287a;":INIT:CONT ON"
3190 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
3200 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
3210 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
3220 OUTPUT @Agt4287a;"*SRE 128"
3230 Cal_meas:!
3240 PRINT "Set "&Standard$&"-Connection."
3250 INPUT "OK? [Y/N]",Inp_char$
3260 IF UPC$(Inp_char$)="Y" THEN
3270 OUTPUT @Agt4287a;"*CLS"
3280 OUTPUT @Agt4287a;"*OPC?"
3290 ENTER @Agt4287a;Buff$
3300 ON INTR Scode GOTO Meas_end
3310 ENABLE INTR Scode;2
3320 SELECT Standard$
3330 CASE "Open"
3340 OUTPUT @Agt4287a;":CORR1:COLL STAN1"
3350 CASE "Short"
3360 OUTPUT @Agt4287a;":CORR1:COLL STAN2"
3370 CASE "Load"
3380 OUTPUT @Agt4287a;":CORR1:COLL STAN3"
3390 CASE "Low Loss C"
3400 OUTPUT @Agt4287a;":CORR1:COLL STAN4"
3410 END SELECT
3420 OUTPUT @Agt4287a;":TRIG"
3430 PRINT "Now measuring..."
3440 Meas_wait: GOTO Meas_wait
3450 Meas_end: OFF INTR Scode
3460 Err_flag=0
3470 SELECT Standard$
3480 CASE "Open"
3490 OUTPUT @Agt4287a;":DATA:RCAD1?"
3500 ENTER @Agt4287a;Rdc
3510 PRINT "Rdc =";ABS(Rdc)
3520 IF ABS(Rdc)<L_lim THEN Err_flag=1
3530 CASE "Short"
3540 OUTPUT @Agt4287a;":DATA:RCAD2?"
3550 ENTER @Agt4287a;Rdc
3560 PRINT "Rdc =";ABS(Rdc)