Werbung
Komplexere Programmbeispiele
Auslesen von Tracedaten
Im folgenden Beispiel werden die Tracedaten, die mit der Grundeinstellung aufgenommen werden, aus
dem Gerät ausgelesen und in einer Liste auf dem Bildschirm dargestellt. Das Auslesen wird nach-
einander im Binär- und im ASCII-Format durchgeführt, einmal bei Span > 0 und einmal bei Span = 0.
Im Binärformat wird der Kopfteil der Meldung mit der Längenangabe ausgewertet und zur Berechnung
der x-Achsenwerte verwendet.
Im ASCII-Format wird lediglich die Liste der Pegelwerte ausgegeben.
Das Auslesen von Binärdaten erfolgt in 3 Schritten:
1. Auslesen der Stellenzahl der Längenangabe
2. Auslesen der Längenangabe selbst
3. Auslesen der Tracedaten selbst
Diese Vorgehensweise ist bei Programmiersprachen notwendig, die nur Strukturen mit gleichartigen
Datentypen (Arrays) unterstützen (wie z.B. Visual Basic), da die Datentypen von Kopfteil und Datenteil
bei Binärdaten unterschiedlich sind.
Hinweis:
Die Arrays für die Messdaten sind so dimensioniert, dass die Tracedaten des R&S ESPI
(501 Messpunkte) darin Platz finden.
REM ************************************************************************
Public Sub ReadTrace()
'--------- Variablen anlegen -----------------------------------------------
Dim traceData(1250) As Single
Dim digits As Byte
Dim traceBytes As Integer
Dim traceValues As Integer
asciiResult$ = Space$(25000)
result$ = Space$(100)
startFreq$ = Space$(100)
span$ = Space$(100)
'--------- Grundeinstellung R&S ESPI ---------------------------------------
CALL SetupInstrument
CALL IBWRT(receiver %,"INIT:CONT OFF")
CALL IBWRT(receiver %,"INIT;*WAI")
'--------- Frequenzbereich für Ausgabe bestimmen ---------------------------
Call ibwrt(receiver %,"FREQ:STARt?")
Call ibrd(receiver %,startFreq$)
startFreq = Val(startFreq$)
Call ibwrt(receiver %,"FREQ:SPAN?")
Call ibrd(receiver %,span$)
span = Val(span$)
1164.6459.11
'Puffer für Floating-Point
'Binärdaten
'Anzahl Zeichen in Längenangabe
'Länge d. Tracedaten in Bytes
'Anzahl d. Messwerte im Puffer
'Puffer für ASCII-Tracedaten
'Puffer für einfache Ergebnisse
'Puffer für Startfrequenz
'Puffer für Frequenzbereich
'Grundeinstellung
'Umschalten auf Single Sweep
'Sweep durchführen mit Sync
'Startfrequenz auslesen
'Frequenzbereich auslesen
7.36
R&S ESPI
D-2
Werbung
Kapitel
