Agilent Technologies 8719ES, Programmer'S Manual

Page: 473 / 541

7-110 Chapter 7
Programming Examples
Report Generation Examples
prompts
Plotter output complete. Press RETURN to store on disk.
Pressing
causes the data to be stored to disk. Once this task is complete, the program
prompts once more,
Plot to file is complete. Press Return to plot.
After
pressing again, the string output is sent to the plotter and the plot begins. Once
the plot is complete, the program prompts
Plot is complete. End of program.
and the
analyzer begins sweeping and returns to local control.
BASIC Program Listing
10 ! This program shows how to read the plotter output from the analyzer
20 ! and store it in a disk file as an ASCII file. The disk file is then
30 ! read back into the controller and the plot commands sent to a
40 ! plotter to generate the plot of the analyzer display. This allows
50 ! plotting at a different time than data collection.
60 !
70 ! EXAMP7D
80 !
90 ASSIGN @Nwa TO 716 ! Assign an I/O path for the analyzer
100 ASSIGN @Plt TO 705 ! Assign an I/O path for the plotter
110 !
120 CLEAR SCREEN
130 ! Initialize the analyzer without preset to preserve data
140 ABORT 7 ! Generate an IFC (Interface Clear)
150 CLEAR @Nwa ! SDC (Selected Device Clear)
160 !
170 DIM Plot$[32000] ! Define string for plotter commands
180 !
190 OUTPUT @Nwa;”OPC?;SING;” ! Stop sweep for plot and wait
200 ENTER @Nwa;Reply ! Read the 1 when complete
210 OUTPUT @Nwa;”OUTPPLOT;” ! Request plotter output
220 !
230 ENTER @Nwa;Plot$ ! Plotter output of analyzer display
240 !
250 INPUT “Plotter output complete. Press RETURN to store on disk.”,Reply$
260 !
270 ! Disk file operations
280 ! Create data file on disk 32000/256 = 125 records
290 !CREATE ASCII “PLOTFILE:,1400”,125 ! Use only once to generate file
300 ASSIGN @File TO “PLOTFILE:,1400” ! Assign file I/O path
310 OUTPUT @File;Plot$ ! Write plot string to file
320 !
330 INPUT “Plot to file is complete. Press Return to plot.”,A$
340 !
350 ! Read plotter commands from file and send to plotter
360 RESET @File ! Reset file pointer to beginning
370 ENTER @File;Plot$ ! Read plot string from file
380 OUTPUT @Plt;Plot$ ! Send plot string to plotter
390 !
400 !
410 DISP “Plot is complete. End of program.”
420 OUTPUT @Nwa;”CONT;” ! Restore continuous sweep
430 OUTPUT @Nwa;”OPC?;WAIT;” ! Wait for analzyer to finish
440 ENTER @Nwa;Reply ! Read the 1 when complete
450 LOCAL @Nwa ! Release HP-IB control
460 END
Return
Return