R&S FSP3 Bedienhandbuch Seite 464

RSIB-Schnittstelle
• 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 Meßgerä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)
' Antwort des Geräts in Datei ablegen
Call RSDLLibrdf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
' Gerät zurücksetzen
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
' und die alten Einstellungen wiederherstellen
' hierzu die END-Message sperren
Call RSDLLibeot(ud, 0, ibsta, iberr, ibcntl)
' zuerst Kommando abschicken
Call RSDLLibwrt(ud, "SYST:SET ", ibsta, iberr, ibcntl)
' die END-Message wieder freigeben
Call RSDLLibeot(ud, 1, ibsta, iberr, ibcntl)
' und die Daten senden
Call RSDLLibwrtf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
1164.4556.11
' Statusvariable
' Fehlervariable
' Zaehlvariable
' Handle für das Meßgerät
' Kommandostring
4.23-48
FSP
D-1