Werbung
Komplexere Programmbeispiele
REM ************************************************************************
Public Sub ReadIQData()
'--------- Variablen anlegen -----------------------------------------------
Dim IData(131072) As Single
Dim QData(131072) As Single
Dim digits As Byte
Dim IQBytes As Long
Dim IQValues As Long
asciiResult$ = Space$(6553600)
result$ = Space$(100)
'--------- Grundeinstellung R&S ESPI ---------------------------------------
CALL SetupInstrument
CALL IBWRT(receiver %,"TRAC:IQ:STAT ON")
'Anzahl der Messpunkte (= 128 * 1024 – 512) einstellen bei RBW 10 MHz,
'Sample Rate 32 MHz, Trigger Free Run, pos. Triggerflanke und 0s Trigger
'Delay.
CALL IBWRT(receiver %,"TRAC:IQ:SET NORM,10MHz,32MHz,IMM,POS,0,130560")
'--------- Auslesen im Binärformat -----------------------------------------
Call ibwrt(receiver %, "FORMAT REAL,32")
Call ibwrt(receiver %, "TRAC:IQ:DATA?")
Call ilrd(receiver %, result$, 2)
lesen
digits = Val(Mid$(result$, 2, 1))
result$ = Space$(100)
Call ilrd(receiver %, result$, digits)
IQBytes = Val(Left$(result$, digits))
IQBytes = IQBytes / 2
Call ibrd32(receiver %, IData(0), IQBytes)
Call ibrd32(receiver %, QData(0), IQBytes)
Call ilrd(receiver %, result$, 1)
'--------- Ausgabe der Binärdaten als Frequenz-/Pegelpaare -----------------
IQValues = IQBytes/4
For i = 0 To IQValues – 1
Print "I-Value["; i; "] = "; IData(i)
Print "Q-Value["; i; "] = "; QData(i)
Next i
1164.6459.11
'Puffer für Floating-Point
'I-Daten (= 128*1024 Bytes)
'Puffer für Floating-Point
'Q-Daten (= 128*1024 Bytes)
'Hinweis:
'Visual Basic kann keine
'groesseren Datenmengen
'als 128k Worte einlesen!
'Anzahl Zeichen in Längenangabe
'Länge d. Tracedaten in Bytes
'Anzahl d. Messwerte im Puffer
'Puffer für ASCII-I/Q-Daten
'(= 25*2*1024 Bytes)
'Puffer für einfache Ergebnisse
'Grundeinstellung
'I/Q-Datenaufnahmemodus
'einschalten;
'muss vor TRAC:IQ:SET erfolgen!
'Binärformat einstellen
'I/Q-Daten messen + auslesen
'Zeichenzahl Längenangabe
'und abspeichern
'Puffer neu initialisieren
'Längenangabe lesen
'und abspeichern
'Anzahl pro Puffer halbieren
'I-Daten in Puffer lesen
'Q-Daten in Puffer lesen
'Schlusszeichen <NL> einlesen
'Single Precision = 4 Bytes
7.40
R&S ESPI
D-2
Werbung
Kapitel
