Rohde & Schwarz ESPI3 Handbuch Seite 480

R&S ESPI
Beispiel:
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Result As String
Dim Digits As Byte
Dim TraceBytes As Long
Dim TraceData(501) As Single
' Verbindung zum Gerät herstellen
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
' Tracedaten im Real-Format abfragen
Call RSDLLibwrt(ud, "FORM:DATA REAL,32", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "TRACE? TRACE1", ibsta, iberr, ibcntl)
'Zeichenzahl der Längenangabe lesen
Result = Space$(20)
Call RSDLLilrd(ud, Result, 2, ibsta, iberr, ibcntl)
Digits = Val(Mid$(Result, 2, 1))
'Längenangabe lesen
Result = Space$(20)
Call RSDLLilrd(ud, Result, Digits, ibsta, iberr, ibcntl)
TraceBytes = Val(Left$(Result, Digits))
' Tracedaten auslesen
Call RSDLLilrdTraceReal(ud, TraceData(0), TraceBytes, ibsta, iberr,ibcntl)
Programmierbeispiele:
• In diesem Beispiel wird die Startfrequenz des Geräts abgefragt.
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Response As String
' Verbindung zum Messgerät herstellen
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
' Fehlerbehandlung
End If
' Abfragekommando senden
Call RSDLLibwrt(ud, "FREQ:START?", ibsta, iberr, ibcntl)
' Platz für die Antwort bereitstellen
Response = Space$(100)
' Antwort vom Messgerät lesen
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
1164.6459.11
' Statusvariable
' Fehlervariable
' Zaehlvariable
' Handle für das Messgerät
' Puffer für einfache Ergebnisse
' Anzahl Zeichen in Längenangabe
' Länge d. Tracedaten in Bytes
' Puffer für Floating-Point
' Binärdaten
'und abspeichern
' Statusvariable
' Fehlervariable
' Zaehlvariable
' Handle für das Messgerät
' Antwortstring
4.343
RSIB-Schnittstelle
D-1