Filter
Top Products
2-47
Sample Programs
Listings of the Sample Programs
1510 !
1520 !
1530 SUB Close
1540 COM /Io/@Scope,Interface
1550
1560 RESET Interface
1570 SUBEND
1580 !
1590 !
1600 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
lrn_str.bas Sample Program
10 !FILE: lrn_str.bas
20 !
30 !THIS PROGRAM WILL INITIALIZE THE SCOPE, AUTOSCALE, AND DIGITIZE THE WAVEFORM
40 !INFORMATION. IT WILL THEN QUERY THE INSTRUMENT FOR THE LEARNSTRING AND WILL
50 !SAVE THE INFORMATION TO A FILE. THE PROGRAM WILL THEN PROMPT YOU TO CHANGE
60 !THE SETUP THEN RESTORE THE ORIGINAL LEARNSTRING CONFIGURATION. IT ASSUMES
70 !AN Agilent 86100 at ADDRESS 7, GPIB INTERFACE at 7, AND THE CAL SIGNAL ATTACHED TO
80 !CHANNEL 1.
90 !
100 !
110 COM /Io/@Scope,@Path,Interface
120 COM /Variables/Max_length
130 CALL Initialize
140 CALL Store_lrnstr
150 CALL Change_setup
160 CALL Get_lrnstr
170 CALL Close
180 END
190 !
200 !
210 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
220 !
230 ! BEGIN SUBROUTINES
240 !
250 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
260 ! Subprogram name: Initialize
270 ! Parameters: none
280 ! Return value: none
290 ! Description: This routine initializes the path descriptions and resets the
300 ! interface and the scope. It performs an autoscale on the signal,
310 ! acquires the data on channel 1, and turns on the display.
320 ! NOTE: This routine also turns on system headers. This allows the
330 ! string ":SYSTEM:SETUP " to be returned with the learnstring so the
340 ! return string is in the proper format.
350 !
360 SUB Initialize
370 COM /Io/@Scope,@Path,Interface