Agilent Technologies 4288A, Programming Manual

Page: 80 / 289

78 Chapter 6
Reading Out Measured Result
Reading Out Measured Result
150 ENTER @Agt4288a;Comp_flag
160 IF Comp_flag=1 THEN
170 REDIM Data(1:Point,1:4)
180 ELSE
190 REDIM Data(1:Point,1:3)
200 END IF
210 !
220 OUTPUT @Agt4288a;":DATA:POIN BUF3,";Point
230 OUTPUT @Agt4288a;":DATA:FEED:CONT BUF3,ALW"
240 !
250 ! Triggering
260 !
270 REPEAT
280 OUTPUT @Agt4288a;":TRIG"
290 OUTPUT @Agt4288a;":STAT:OPER:COND?"
300 ENTER @Agt4288a;Cond_reg
310 UNTIL BIT(Cond_reg,10)
320 !
330 ! Data reading
340 !
350 OUTPUT @Agt4288a;":DATA? BUF3"
360 ENTER @Agt4288a USING "#,A";Buff$
370 ENTER @Agt4288a USING "#,A";Digit$
380 Read_form$="#,"&Digit$&"A"
390 ENTER @Agt4288a USING Read_form$;Num_of_byte$
400 ENTER @Binary;Data(*)
410 ENTER @Agt4288a USING "#,A";Buff$
420 !
430 ! Display results
440 !
450 CLEAR SCREEN
460 IF Comp_flag=1 THEN
470 Img$="4D,3X,D,4X,MD.4DE,2X,MD.4DE,2X,2D"
480 PRINT "[MEASUREMENT and BIN SORT RESULT]"
490 PRINT " Status Pri Sec BIN"
500 PRINT "-----------------------------------------"
510 FOR I=1 TO Point
520 PRINT USING Img$;I,Data(I,1),Data(I,2),Data(I,3),Data(I,4)
530 NEXT I
540 ELSE
550 Img$="4D,3X,D,4X,MD.4DE,2X,MD.4DE"
560 PRINT "[MEASUREMENT RESULT]"
570 PRINT " Status Pri Sec "
580 PRINT "--------------------------------------"
590 FOR I=1 TO Point
600 PRINT USING Img$;I,Data(I,1),Data(I,2),Data(I,3)
610 NEXT I
620 END IF
630 END