Werbung
R&S ESPI
'--------- Auslesen im Binärformat -----------------------------------------
Call ibwrt(receiver %, "FORMAT REAL,32")
Call ibwrt(receiver %, "TRAC1? TRACE1")
Call ilrd(receiver %, result$, 2)
digits = Val(Mid$(result$, 2, 1))
result$ = Space$(100)
Call ilrd(receiver %, result$, digits)
traceBytes = Val(Left$(result$, digits))
Call ibrd32(receiver %, traceData(0), traceBytes)
Puffer lesen
Call ilrd(receiver %, result$, 1)
'--------- Ausgabe der Binärdaten als Frequenz-/Pegelpaare -----------------
traceValues = traceBytes/4
stepsize = span/traceValues
For i = 0 To traceValues – 1
Print "Value["; i; "] = "; startFreq+stepsize*i; ", "; traceData(i)
Next i
'--------- Grundeinstellung Zeitbereich ------------------------------------
Call ibwrt(receiver %,"FREQ:SPAN 0Hz")
CALL IBWRT(receiver %,"INIT;*WAI")
'--------- Auslesen im ASCII-Format ----------------------------------------
Call ibwrt(receiver %,"FORMAT ASCII")
CALL ibwrt(receiver %,"TRAC1? TRACE1")
CALL ibrd(receiver %, asciiResult$)
Print "Contents of Trace1: ",asciiResult$
END SUB
REM ************************************************************************
1164.6459.11
Komplexere Programmbeispiele
'Binärformat einstellen
'Trace 1 auslesen
'Zeichenzahl Längenangabe lesen
'und abspeichern
'Puffer neu initialisieren
'Längenangabe lesen
'und abspeichern
'Schlusszeichen <NL> einlesen
'Single Precision = 4 Bytes
'Frequenzschrittweite berechnen
'Umschalten in Zeitbereich
'Sweep durchführen mit Sync
'ASCII-Format einstellen
'Trace 1 auslesen
'und ausgeben
7.37
'Tracedaten in
D-2
Werbung
Kapitel
