
13
235
Application Sample Programs
Measurement using scanner
1. Ch
apter
T
itle
2.
Ch
ap
te
r
T
itl
e
1
3
. Application Sample
4
. Chap
te
r T
itle
5. Chap
te
r T
itle
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(M1),1:2),Short(1:Point(M1),1:2)
790 ALLOCATE
Load(1:Point(M1),1:2),Temp(1:Point(M1),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)
Содержание 4294A
Страница 4: ...4 ...
Страница 18: ...18 Contents ...
Страница 24: ...24 Chapter1 To make effective use of this manual Other manuals attached to this unit ...
Страница 94: ...94 Chapter6 Reading Writing Measurement Data Reading Writing Data ...
Страница 110: ...110 Chapter7 Processing Measurement Results Analyzing Measurement Results ...
Страница 130: ...130 Chapter9 Communication with External Equipment Using the I O Ports Sample Program to Use the I O Port ...
Страница 136: ...136 Chapter10 Handling Errors Sample program for error handling ...
Страница 246: ...246 13 Application Sample Programs File Transfer Function ...
Страница 254: ...254 Chapter15 Setting the Display LCD Sample program for setting the LCD screen ...
Страница 507: ...Index Index 507 Index ...
Страница 508: ...508 Index Index ...
Страница 509: ...Index Index 509 Index ...
Страница 510: ...510 Index Index ...
Страница 511: ...Index Index 511 Index ...
Страница 512: ...512 Index Index ...
Страница 513: ...Index Index 513 Index ...
Страница 514: ...514 Index Index ...
Страница 515: ...Index Index 515 Index ...
Страница 516: ...516 Index Index ...
Страница 517: ...Index Index 517 Index ...
Страница 518: ...518 Index Index ...