Inhaltsverzeichnis
Werbung
R&S ESCI
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
' 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)
4.12.4.2
Visual Basic für Applikationen (Winword und Excel)
Programmierhinweise:
Die Programmiersprache Visual Basic für Applikationen (VBA) wird von ver-
schiedenen Herstellern als Makrosprache eingesetzt. Die Programme Winword und
Excel verwenden diese Sprache ab den Versionen Winword 97 bzw. Excel 5.0.
Für Makros, die mit Visual Basic für Applikationen erstellt werden, gelten die gle-
ichen Hinweise wie für Visual Basic Applikationen.
Programmierbeispiel:
Mit dem Makro QueryMaxPeak wird ein Single Sweep mit anschließender Abfrage
des maximalen Peaks durchgeführt. Das Ergebnis wird in ein Winword- bzw. Excel-
Dokument eingetragen.
Sub QueryMaxPeak()
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Response As String
4.338
' Fehlerbehandlung
End If
' Statusvariable
' Fehlervariable
' uebertragene Zeichen
' Unit Descriptor (Handle) für das Messgerät
' Antwortstring
RSIB-Schnittstellenfunktionen
' Zaehlvariable
' Handle für das Messgerät
' Kommandostring
Operating Manual 1166.6256.11 - 02
Werbung
Kapitel
Inhaltsverzeichnis
