Auslesen Von Trace-Daten - Rohde & Schwarz R&S Fsu3 Handbuch

R&S FSU
status = viWrite(analyzer, "CALC:MARK:X 99.96MHz", 20, retCnt)
status = viWrite(analyzer, "CALC:MARK:FUNC:NOIS:RES?", 24, retCnt)
status = viRead(analyzer, result$, 100, retCnt)
Print "Rauschen [dBm/Hz]: "; result$
END SUB
REM ************************************************************************

7.2.3 Auslesen von Trace-Daten

Im folgenden Beispiel werden die Trace-Daten, die mit der Grundeinstellung aufgenommen
werden, aus dem Gerät ausgelesen und in einer Liste auf dem Bildschirm dargestellt. Das
Auslesen wird nacheinander 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 Trace-Daten 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.
Bitte beachten, dass die Funktion viRead32 in VISA32.BAS nicht deklariert ist und daher
separat angegeben werden muss:
Declare Function viRead32 Lib "Visa32" Alias "viRead" (ByVal vi As
Long, Values As Any, ByVal count As Long, retCount As Long) As Long
REM ************************************************************************
Public Sub ReadTrace()
Dim status As ViStatus
Dim retCnt As Long
'--------- Variablen anlegen -----------------------------------------------
Dim traceData(1250) As Single
Dim digits As Byte
Dim traceBytes As Integer
Dim traceValues As Integer
7.18
'Marker 1 positionieren
'Ergebnis abfragen und ausgeben
Die Arrays für die Messdaten sind so dimensioniert, dass die Trace-
Daten des R&S FSU (625 Messpunkte) darin Platz finden.
'Puffer für Floating-Point Binärdaten
'Anzahl Zeichen in Längenangabe
'Länge d. Trace-Daten in Bytes
'Anzahl d. Messwerte im Puffer
Kurzeinführung Fernsteuerung
Komplexere Programmbeispiele
Kompakthandbuch 1313.9617.11 - 01