User`s guide

Chapter 11 165
Working with Automatic Test Systems
Improving Command Processing Speed
11. Working with Automatic
Test Systems
Example 11-1 Controlling the update timing of LCD display(cont_upd.htb)
10 REAL Trace1(1:201,1:2),Trace2(1:201,1:2)
20 DIM Buff$[9],Img$[30]
30 INTEGER Nop,I
40 !
50 ASSIGN @Agte507x TO 717
60 ASSIGN @Binary TO 717;FORMAT OFF
70 !
80 OUTPUT @Agte507x;":SENS1:SWE:TYPE LIN"
90 OUTPUT @Agte507x;":SENS1:FREQ:CENT 950E6"
100 OUTPUT @Agte507x;":SENS1:FREQ:SPAN 100E6"
110 OUTPUT @Agte507x;":SENS1:SWE:POIN 201"
120 OUTPUT @Agte507x;":TRIG:SOUR BUS"
130 OUTPUT @Agte507x;":INIT1:CONT ON"
140 FOR I=2 TO 4
150 OUTPUT @Agte507x;":INIT"&VAL$(I)&":CONT OFF"
160 NEXT I
170 !
180 OUTPUT @Agte507x;":DISP:SPL D1"
190 OUTPUT @Agte507x;":DISP:WIND1:SPL D1_2"
200 !
210 OUTPUT @Agte507x;":CALC1:PAR:COUN 2"
220 OUTPUT @Agte507x;":CALC1:PAR1:DEF S21"
230 OUTPUT @Agte507x;":CALC1:PAR1:SEL"
240 OUTPUT @Agte507x;":CALC1:FORM MLOG"
250 OUTPUT @Agte507x;":CALC1:PAR2:DEF S11"
260 OUTPUT @Agte507x;":CALC1:PAR2:SEL"
270 OUTPUT @Agte507x;":CALC1:FORM MLOG"
280 !
290 OUTPUT @Agte507x;":DISP:ENAB OFF"
300 OUTPUT @Agte507x;":FORM:DATA REAL"
310 !
320 FOR I=1 TO 10
330 OUTPUT @Agte507x;":TRIG:SING"
340 OUTPUT @Agte507x;"*OPC?"
350 ENTER @Agte507x;Buff$
360 !
370 ! Read Trace Data
380 !
390 OUTPUT @Agte507x;":CALC1:PAR1:SEL"
400 OUTPUT @Agte507x;":CALC1:DATA:FDAT?"
410 ENTER @Agte507x USING "#,8A";Buff$
420 ENTER @Binary;Trace1(*)
430 ENTER @Agte507x USING "#,1A";Buff$
440 !
450 OUTPUT @Agte507x;":CALC1:PAR2:SEL"
460 OUTPUT @Agte507x;":CALC1:DATA:FDAT?"
470 ENTER @Agte507x USING "#,8A";Buff$
480 ENTER @Binary;Trace2(*)
490 ENTER @Agte507x USING "#,1A";Buff$
500 !
510 ! Update Display
520 !
530 OUTPUT @Agte507x;":DISP:UPD"
540 NEXT I
550 END