Chapter 7
7-83
Programming Examples
Analyzer System Setup Examples
240 !
250 READ Calt$,Numb
! Read CAL type from data statement
260 IF Numb=0 THEN GOTO 690
! If no CAL type is present Exit
270 OUTPUT @Nwa;Calt$;"?;"
! Query if CAL type is active
280 ENTER @Nwa;Active
! Read 1 if active
290 IF NOT Active THEN GOTO 250
! Load another CAL type and re-try
300 !
310 PRINT Calt$,Numb
! Active CAL and number of arrays
320 !
330 OUTPUT @Nwa;"FORM3;"
! Form 3 IEEE 64 bit floating point
340 OUTPUT @Nwa;"POIN?;"
! Request trace length
350 ENTER @Nwa;Poin
! Read number of points
360 ALLOCATE Cal(1:Numb,1:Poin,1:2)
! Arrays for CAL arrays
370 !
Number of arrays, number of points real and imag value per point
380 !
390 FOR I=1 TO Numb
! Read arrays
400
OUTPUT @Nwa USING "K,ZZ";"OUTPCALC",I
! Format I to add 0 in command
410
ENTER @Nwa_bin;Hdr,Lgth
! Read header & length from array
420
FOR J=1 TO Poin
! Read elements for CAL array
430
ENTER @Nwa_bin;Cal(I,J,1),Cal(I,J,2)
! Read real & imag pair elements
440
NEXT J
! Next location in array
450 NEXT I
! Next CAL array
460 !
470 ! All CAL arrays have been read
480 !
490 INPUT "PRESS RETURN TO RE-TRANSMIT CALIBRATION",Dum$
500 !
510 OUTPUT @Nwa;"FORM3;"
! Use same format as read
520 OUTPUT @Nwa;Calt$;";"
! Send CAL type to analyzer
530 !
540 FOR I=1 TO Numb
! Send each array in CAL
550
DISP "TRANSMITTING ARRAY: ",I
! Show array number
560
OUTPUT @Nwa USING "K,ZZ";"INPUCALC",I
! Send array number 0 format
570
OUTPUT @Nwa_bin;Hdr,Lgth
! Send header & array length
580
FOR J=1 TO Poin
! Send each array element
590
OUTPUT @Nwa_bin;Cal(I,J,1),Cal(I,J,2)
! Real and Imag pair
600
NEXT J
! Next element in array
610 NEXT I
! Next array
620 !
630 OUTPUT @Nwa;"SAVC;"
! Activate CAL
640 !
650 OUTPUT @Nwa;"CONT;"
! Restore continuous sweep
660 OUTPUT @Nwa;"OPC?;WAIT;"
! Wait for analyzer to finish
670 ENTER @Nwa;Reply
! Read the 1 when complete
680 !
690 DISP "Finished with CAL transfer"
700 LOCAL @Nwa
! Release HP-IB control
710 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 ...