Agilent Technologies 4294A Programming Manual page 235

570 OUTPUT @Agt4294a;"EDITLIST"
580 Point(0)=0
590 FOR I=0 TO Max_chan
600 READ Start$,Stop$,Nop$,Osc$,Bias$,Bw$,Avg$
610 Point(I+1)=Point(I)+IVAL(Nop$,10)
620 OUTPUT @Agt4294a;"SADD"
630 OUTPUT @Agt4294a;"MEAS "&Meas_para$
640 OUTPUT @Agt4294a;"STAR "&Start$
650 OUTPUT @Agt4294a;"STOP "&Stop$
660 OUTPUT @Agt4294a;"POIN "&Nop$
670 OUTPUT @Agt4294a;"BWFACT "&Bw$
680 OUTPUT @Agt4294a;"POWE "&Osc$
690 OUTPUT @Agt4294a;"DCV "&Bias$
700 OUTPUT @Agt4294a;"PAVERFACT "&Avg$
710 OUTPUT @Agt4294a;"SDON"
720 NEXT I
730 OUTPUT @Agt4294a;"EDITDONE"
740 OUTPUT @Agt4294a;"SWPT "&Swp_type$
750 !
760 ! Compensation
770 !
780 ALLOCATE
Open(1:Point(Max_chan+1),1:2),Short(1:Point(Max_chan+1),1:2)
790 ALLOCATE
Load(1:Point(Max_chan+1),1:2),Temp(1:Point(Max_chan+1),1:2)
800 OUTPUT @Agt4294a;"FORM3"
810 OUTPUT @Agt4294a;"CALP USER"
820 CLEAR SCREEN
830 PRINT "##### Open Compensation #####"
840 FOR I=0 TO Max_chan
850 OUTPUT @Agt3499a;"CLOSE 10"&VAL$(I)&",11"&VAL$(I)
860 PRINT "Channel "&VAL$(I)&" is activated."
870 Result=FNFixt_comp(@Agt4294a,Scode,"Open")
880 IF Result<>0 THEN Prog_end
890 OUTPUT @Agt4294a;"OUTPCOMC1?"
900 ENTER @Agt4294a USING "#,8A";Header$
910 ENTER @Binary;Temp(*)
920 ENTER @Agt4294a USING "#,1A";Buff$
930 FOR J=Point(I)+1 TO Point(I+1)
940 Open(J,1)=Temp(J,1)
950 Open(J,2)=Temp(J,2)
960 NEXT J
970 PRINT
980 NEXT I
990 CLEAR SCREEN
1000 PRINT "##### Short Compensation #####"
1010 FOR I=0 TO Max_chan
1020 OUTPUT @Agt3499a;"CLOSE 10"&VAL$(I)&",11"&VAL$(I)
1030 PRINT "Channel "&VAL$(I)&" is activated."
1040 Result=FNFixt_comp(@Agt4294a,Scode,"Short")
1050 IF Result<>0 THEN Prog_end
1060 OUTPUT @Agt4294a;"OUTPCOMC2?"
1070 ENTER @Agt4294a USING "#,8A";Header$
1080 ENTER @Binary;Temp(*)
1090 ENTER @Agt4294a USING "#,1A";Buff$
1100 FOR J=Point(I)+1 TO Point(I+1)
1110 Short(J,1)=Temp(J,1)
1120 Short(J,2)=Temp(J,2)
13
Application Sample Programs
Measurement using scanner
235