Specifications

92 Chapter 6
Retrieving Measurement Results
Retrieving the Measurement Results for Measurement Parameters 1
through 4
Example 6-3 Using the :FETC? Command to Retrieve Measurement Results (fetch.bas)
10 DIM Title$(1:7)[9],Buff$[9]
20 REAL Res(1:257)
30 INTEGER Stat(1:7),Bin_stat,List_stat,Star_no,Stop_no,Data_size,
Loc,I,J
40 CLEAR SCREEN
50 ASSIGN @Agt4287a TO 717
60 Scode=7
70 OUTPUT @Agt4287a;":FORM ASC"
80 !
90 ! Check Condition
100 !
110 FOR I=1 TO 4
120 OUTPUT @Agt4287a;":DISP:TEXT1:CALC"&VAL$(I)&"?"
130 ENTER @Agt4287a;Stat(I)
140 OUTPUT @Agt4287a;":CALC:PAR"&VAL$(I)&":FORM?"
150 ENTER @Agt4287a;Title$(I)
160 NEXT I
170 !
180 OUTPUT @Agt4287a;":DISP:TEXT1:CALC11?"
190 ENTER @Agt4287a;Stat(5)
200 Title$(5)="Imon"
210 !
220 OUTPUT @Agt4287a;":DISP:TEXT1:CALC12?"
230 ENTER @Agt4287a;Stat(6)
240 Title$(6)="Vmon"
250 !
260 OUTPUT @Agt4287a;":SOUR:LIST:RDC?"
270 ENTER @Agt4287a;Stat(7)
280 Title$(7)="Rdc"
290 !
300 OUTPUT @Agt4287a;":CALC:COMP?"
310 ENTER @Agt4287a;Bin_stat
320 !
330 OUTPUT @Agt4287a;":SOUR:LIST:STAT?"
340 ENTER @Agt4287a;List_stat
350 IF List_stat=1 THEN
360 OUTPUT @Agt4287a;":SOUR:LIST:SIZE?"
370 ENTER @Agt4287a;Stop_no
380 Star_no=1
390 ELSE
400 OUTPUT @Agt4287a;":SOUR:LIST:POIN?"
410 ENTER @Agt4287a;Stop_no
420 Star_no=Stop_no
430 END IF
440 !
450 Data_size=(1+Stat(1)+Stat(2)+Stat(3)+Stat(4)+Stat(5)+Stat(6)+Stat
(7))*(Stop_no-Star_no+1)+Bin_stat
460 REDIM Res(1:Data_size)
470 !
480 ! Trigger source setting
490 !
500 OUTPUT @Agt4287a;":ABOR"
510 OUTPUT @Agt4287a;":TRIG:SOUR MAN"
520 OUTPUT @Agt4287a;":INIT:CONT ON"
530 !
540 ! Status register setting (For SRQ)
550 !
560 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
570 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
580 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
590 OUTPUT @Agt4287a;"*SRE 128"