Inhaltsverzeichnis
Werbung
Komplexere Programmbeispiele
REM ************************************************************************
Public Sub SpuriousSearch()
powerlist$ = Space$(1000)
freqlist$ = Space$(1000)
countstr$ = Space$(30)
'--------- Grundeinstellung R&S ESU ---------------------------------------
CALL SetupInstrument
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'--------- Festlegung des Suchbereichs -------------------------------------
status = viWrite(analyzer, "CALC:MARK:X:SLIM:STAT ON", 24, retCnt)
status = viWrite(analyzer, "CALC:MARK:X:SLIM:LEFT 99.6MHz;RIGHt 100.4MHz", 44,
retCnt)
einstellen
status = viWrite(analyzer, "CALC:THR:STAT ON", 16, retCnt)
status = viWrite(analyzer, "CALC:THR -60DBM", 15, retCnt)
setzen
'--------- Activate search for spurious -----------------------------------
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:SORT X", 25, retCnt)
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE 10", 21, retCnt)
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:COUN?", 24, retCnt)
anfordern,
status = viRead(analyzer, countstr$, 30, retCnt)
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:X?", 21, retCnt)
status = viRead(analyzer, freqlist$, 1000, retCnt)
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:Y?", 21, retCnt)
status = viRead(analyzer, powerlist$, 1000, retCnt)
Print "# of spurious: ";countstr$
Print "Frequencies: ";freqlist$
Print "Power: ";powerlist$
END SUB REM
************************************************************************
1302.6163.11
'Grundeinstellung
'Search limit einschalten und
'auf ±400 kHz um die Centerfrequenz
'Threshold einschalten und auf –60 dBm
'nach Frequenzen sortieren
'Sweep durchführen mit Sync
'die höchsten 10 Signale suchen
'zur Überprüfung Anzahl der Peaks
'und einlesen
'Pegelliste abfragen
'und einlesen
'Pegelliste abfragen
'und einlesen
'Anzahl ausgeben
'Frequenzliste ausgeben
'Pegelliste ausgeben
7.10
R&S ESU
'Single Sweep
D-2
Werbung
Kapitel
Inhaltsverzeichnis
