86 Chapter 6
Reading/Writing Measurement Data
Reading/Writing Data
Example 6-2 Reading/Writing Data Trace Array in a Binary Format
10 DIM Trc(1:201,1:2),Act_trc$[9],Err_mes$[50],Header$[9],Buff$[9]
20 INTEGER Err_no,Nop
30 IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
40 ASSIGN @Hp4294a TO 800
50 ASSIGN @Binary TO 800;FORMAT OFF
60 ELSE
70 ASSIGN @Hp4294a TO 717
80 ASSIGN @Binary TO 717;FORMAT OFF
90 END IF
100 !
110 Act_trc$="A"
120 Nop=201
130 !
140 OUTPUT @Hp4294a;"FORM3"
150 OUTPUT @Hp4294a;"POIN ";Nop
160 !
170 OUTPUT @Hp4294a;"HOLD"
180 OUTPUT @Hp4294a;"TRAC "&Act_trc$
190 OUTPUT @Hp4294a;"*CLS"
200 OUTPUT @Hp4294a;"DISP MEMO"
210 OUTPUT @Hp4294a;"OUTPERRO?"
220 ENTER @Hp4294a;Err_no,Err_mes$
230 IF Err_no=34 THEN
240 PRINT Err_mes$
250 ELSE
260 OUTPUT @Hp4294a;"OUTPMTRC?"
270 ENTER @Hp4294a USING "#,8A";Header$
280 ENTER @Binary;Trc(*)
290 ENTER @Hp4294a USING "#,1A";Buff$
300 !
310 OUTPUT @Hp4294a;"DISP DATA"
320 OUTPUT @Hp4294a;"INPUDTRC "&Header$;
330 OUTPUT @Binary;Trc(*),END
340 END IF
350 !
360 END
To Next Page
Loading...
Need help?
General
