Rohde & Schwarz R&S ESU8 Bedienungsanleitung Seite 447

R&S ESU
' Tracedaten auslesen
Call RSDLLilrdTraceReal(ud, TraceData(0), TraceBytes, ibsta, iberr,ibcntl)
1302.6163.11
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)
In diesem Beispiel wird ein Save/Recall der Geräteeinstellungen
durchgeführt.
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Cmd As String
' Verbindung zum Messgerät herstellen
ud = RSDLLibfind ("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
' Fehlerbehandlung
END IF
' Einstellungen des Geräts anfordern
Cmd = "SYST:SET?"
Call RSDLLibwrt(ud, Cmd, ibsta, iberr, ibcntl)
RSIB-Schnittstellenfunktionen
' Statusvariable
' Fehlervariable
' Zählvariable
' Handle für das Messgerät
' Antwortstring
' Statusvariable
' Fehlervariable
' Zaehlvariable
' Handle für das Messgerät
' Kommandostring
4.419 D-2