HP 4284A - Page 240

10 INTEGER Header_1,Header_2,Header_3,Term
20 DIM D(127,3)
30 ASSIGN @Meter TO 717;FORMAT ON
40 ASSIGN @Binary TO 717;FORMAT OFF
50 REMOTE @Meter
60 OUTPUT @Meter;"*RST;*CLS" !\
70 OUTPUT @Meter;"FORM REAL,64" ! Setup
80 OUTPUT @Meter;"MEM:DIM DBUF,128" ! Measurement
90 OUTPUT @Meter;"TRIG:SOUR BUS" ! Condition
100 OUTPUT @Meter;"COMP ON" !/
110 OUTPUT @Meter;"MEM:FILL DBUF" ! Enable the buffer memory
120 FOR I=0 TO 127
130 OUTPUT @Meter;"TRIGGER" ! Perform the measurement 128 times
140 NEXT I
150 OUTPUT @Meter;"MEM:READ? DBUF" ! Transfer data
160 ENTER @Binary;Header_1,Header_2,Header_3,D(*),Term
170 PRINT D(*) ! Display the measurement result
180 OUTPUT @Meter;"MEM:CLE DBUF" ! Disable the buffer memory
190 END
Figure 7-28. Sample Program (Buffer Memory) Using BINARY Format
10 INTEGER Header_1,Header_2,Header_3,Term
20 DIM D(6,3)
30 ASSIGN @Meter TO 717;FORMAT ON
40 ASSIGN @Binary TO 717;FORMAT OFF
50 REMOTE @Meter
60 OUTPUT @Meter;"*RST;*CLS" !\
70 OUTPUT @Meter;"FORM REAL,64" !|
80 OUTPUT @Meter;"TRIG:SOUR BUS" !|
90 OUTPUT @Meter;"LIST:MODE SEQ" !|
100 OUTPUT @Meter;"LIST:FREQ 1KHZ,2KHZ,5KHZ,10KHZ,20KHZ,50KHZ,100KHZ"
110 OUTPUT @Meter;"LIST:BAND1 A,100,200"! Setup
120 OUTPUT @Meter;"LIST:BAND2 A,100,200"! List
130 OUTPUT @Meter;"LIST:BAND3 A,100,200"! Sweep
140 OUTPUT @Meter;"LIST:BAND4 A,100,200"! Table
150 OUTPUT @Meter;"LIST:BAND5 A,100,200"!|
160 OUTPUT @Meter;"LIST:BAND6 A,100,200"!|
170 OUTPUT @Meter;"LIST:BAND7 A,100,200"!|
180 OUTPUT @Meter;"DISP:PAGE LIST" !|
190 OUTPUT @Meter;"INIT:CONT ON" !/
200 TRIGGER @Meter ! Perform measurement
210 ENTER @Binary;Header_1,Header_2,Header_3,D(*),Term! Transfer measurement data
220 PRINT D(*) ! Display measurement data
230 END
Figure 7-29. Sample Program (List Sweep) Using BINARY Format
Remote Control 7-39