Filter
Top Products
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
810
820
830
840
OUTPUT @Meter;
"TR2"
850
ENTER QMeter; Power$
OUTPUT @Source; Freq;
"GHZ,
0
DB,";
Freq=Freq+Increment
END WHILE
OUTPUT @Source; Freq;
"GHZ,
0
DB;"
OUTPUT @Source; "POWer:STATe ON"
!Enter
data in User Flatness Correction table
OUTPUT @Source;
"CALibration:PMETer:FLATness:INITiate?
USER"
ENTER @Source; Freq
WHILE
Freq>O
Power=FNRead,meter(QMeter,
Freq)
OUTPUT @Source;
"CALibration:PMETer:FLATness:NEXT?";
Power;
"DBM"
ENTER @Source; Freq
END WHILE
END IF
END
SUB Zero-meter (@Meter, INTEGER Error-flag)
OUTPUT @Meter;
"CS"
OUTPUT OMeter;
"ZE"
Max-attempts=30
Attempts=0
Zeroing=1590
Finished=0
WHILE Zeroing AND NOT Finished
Attempts=Attempts+l
Meter-stat=SPOLL (@Meter)
IF
Attempts>Max-Attempts
THEN
Zeroing=0
IF BIT
(Meter-stat,11
THEN
Finished=1
WAIT 1
END WHILE
IF NOT Zeroing THEN
Error-flag=1
ELSE
Error-flag=0
END IF
SUBEND
DEF
FNRead,meter(OMeter,
Freq)
!Beginning
of power meter
measurement routine
OUTPUT @Meter;
"SEOEN"
!Select
sensor data table 0
Freq$=VAL$(Frequency)
OUTPUT @Meter;
"FR"&Freq$&"GZ"
OUTPUT QMeter;
"TR2"
ENTER @Meter; Power$
PO=VAL(Power$)
Flips=0
Slope=0
REPEAT
!Wait
for power meter to
settle; determine power
Getting Started Programming 1-99