Specifications

Chapter 5 115
Measurement Start and Detection of Measurement End
Example Programs for Detecting Measurement End
5. Measurement Start and Detection of Meas. End
Lines 430 - 440 Indicates measurement end and disables the SRQ interruption.
Example 5-1 Detection of measurement end using the SRQ
10 DIM Buff$[9]
20 INTEGER Trc,Swp_count
30 !
40 CLEAR SCREEN
50 ASSIGN @Agte4991a TO 717
60 !
70 Trc=1
80 Swp_count=4
90 !
100 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc)&" ON"
110 OUTPUT @Agte4991a;"CALC:AVER:COUN "&VAL$(Swp_count)
120 OUTPUT @Agte4991a;"CALC:AVER ON"
130 !
140 OUTPUT @Agte4991a;"TRIG:SOUR INT"
150 OUTPUT @Agte4991a;"INIT:CONT OFF"
160 OUTPUT @Agte4991a;"ABOR"
170 !
180 CALL Sweep(@Agte4991a)
190 !
200 END
210 !
220 SUB Sweep(@Agte4991a)
230 DIM Buff$[9]
240 INTEGER Swp_bool
250 !
260 OUTPUT @Agte4991a;"CALC:AVER?"
270 ENTER @Agte4991a;Swp_bool
280 IF Swp_bool=1 THEN OUTPUT @Agte4991a;"CALC:AVER:CLE"
290 !
300 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
310 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
320 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
330 OUTPUT @Agte4991a;"*SRE 128"
340 OUTPUT @Agte4991a;"*CLS"
350 OUTPUT @Agte4991a;"*OPC?"
360 ENTER @Agte4991a;Buff$
370 !
380 ON INTR 7 GOTO Swp_end
390 ENABLE INTR 7;2
400 OUTPUT @Agte4991a;"INIT"
410 DISP "Now Measuring..."
420 Swp_wait: GOTO Swp_wait
430 Swp_end: DISP "Sweep Complete"
440 OFF INTR 7
450 SUBEND