Agilent Technologies 4294A Service Manual download pdf (Page 235)

100

101

13 235

Application Sample Programs

Measurement using scanner

1. Chapter Title

2. Chapter Title 13. Application Sample

4. Chapter Title

5. Chapter Title

Programs

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)

1 2 ... 230 231 232 233 234 235 236 237 238 239 240 ... 517 518

Comments to this Manuals

No comments

Agilent Technologies 4294A Service Manual Page 235

Comments to this Manuals

Related products and manuals for Multimeters Agilent Technologies 4294A