![Agilent Technologies 8719ES Programmer'S Manual Download Page 426](http://html.mh-extra.com/html/agilent-technologies/8719es/8719es_programmers-manual_2867960426.webp)
Chapter 7
7-63
Programming Examples
Measurement Data Transfer Examples
120 ABORT 7
! Generate an IFC ( Interface Clear)
130 CLEAR @Nwa
! SDC (Selected Device Clear)
140 OUTPUT @Nwa;"OPC?;PRES;"
! Preset the analyzer and wait
150 ENTER @Nwa;Reply
! Read the 1 when completed
160 !
170 INTEGER Dheader,Dlength
! Integer variables for header info
180 Numpoints=11
! Number of points in the trace
190 OUTPUT @Nwa;"POIN";Numpoints;";"
! Set number of points in trace
200 !
210 !
Set up data transfer
220 OUTPUT @Nwa;"OPC?;SING"
! Single sweep and wait
230 ENTER @Nwa;Reply
! Read the 1 when completed
240 !
250 OUTPUT @Nwa;"FORM3;"
! Select form 3 format
260 OUTPUT @Nwa;"OUTPFORM;"
! Send formatted output trace
270 !
280 ENTER @Nwadat;Dheader,Dlength
! Read headers from trace data
290 !
300 ALLOCATE Dat(1:Dlength/16,1:2)
! Use length to determine array size
310 ENTER @Nwadat;Dat(*)
! Read in trace data
320 !
330 PRINT "Size of array ";Dlength/16;" elements"
340 PRINT "Number of bytes ";Dlength
350 !
360 ! Print out the data array
370 PRINT "Element","Value 1","
Value 2"
380 IMAGE 3D,6X,3D.6D,6X,3D.6D
390 FOR I=1 TO Numpoints
! Loop through the data points
400
PRINT USING 380;I,Dat(I,1),Dat(I,2)
410 NEXT I
420 !
430 OUTPUT @Nwa;"MARKDISC;"
! Discrete marker mode
440 OUTPUT @Nwa;"MARK1 .3E+6;"
! Position marker at 30 KHz
450 !
460 OUTPUT @Nwa;"OPC?;WAIT;"
! Wait for the analyzer to finish
470 ENTER @Nwa;Reply
! Read the 1 when complete
480 LOCAL @Nwa
! Release HP-IB control
490 !
500 PRINT
510 PRINT "Position the marker with the knob and compare the values."
520 !
530 END
Summary of Contents for 8719ES
Page 15: ...1 1 1 Alphabetical Command Reference ...
Page 293: ...2 1 2 Introduction to Instrument Control ...
Page 310: ...3 1 3 GPIB Programming ...
Page 334: ...4 1 4 Reading Analyzer Data ...
Page 343: ...5 1 5 Data Processing Chain ...
Page 350: ...6 1 6 Error Reporting ...
Page 364: ...7 1 7 Programming Examples ...
Page 502: ...A 1 A Preset Conditions ...
Page 517: ...B 1 B Command Listings ...