&T
. Durch Hineinschreiben des Wertes 0 lassen die Zähler sich
zurücksetzen.
5.8.7 Zugriff über Visual Basic bzw. VBA
Dieser OPC-Server bietet, abgesehen von dem grundlegen-
den Custom-Interface, nur ein Automatisierungs-Interface
nach dem neuen OPC-Standard .0 an. Falls Sie mit dem al-
ten OPC Automatisierungs-Standard 1.0 vertraut sind: Die
Unterschiede zwischen den beiden Versionen sind erheblich.
Außerdem ist zur Benutzung des neuen Interface mindestens
Visual Basic Version 5.0 bzw. Office 97 erforderlich. Die
komplette Schnittstellen-Spezifikation finden Sie auf der
H o m e p a g e d e r O P C F o u n d a t i o n , h t t p : / /
www.opcfoundation.org. Für einen ersten Eindruck sind aber
auch vielleicht die folgenden Beispiele (Excel-Makros) hilf-
reich. Damit Visual Basic das OPC-Interface benutzen kann,
muss in der Liste der Verweise der Eintrag OPC Automation
.0 aktiviert sein. (Zu dieser Liste gelangen Sie bei Visual
Basic 6.0 über den Menüpunkt Projekt/Verweise..., bei
Excel 97 über den Menüpunkt Extras/Verweise... im Visual
Basic Editor.)
Beispiel: Variablen auflisten
Dieses Beispiel benutzt den Namensraum-Browser, um alle
verfügbaren Variablen des OPCServers zu ermitteln, und
trägt sie in Spalte 1 der aktuellen Excel-Tabelle ein.
Option Base 1
Sub OpcGetNames()
' Trägt die verfügbaren Variablennamen in Spalte 1 ein
Dim TheOpcServer As OPCServer
Dim MyBrowser As OPCBrowser
Set TheOpcServer = New OPCServer
TheOpcServer.Connect („Wiesemann-Theis.DigitalEA")
Set MyBrowser = TheOpcServer.CreateBrowser
Dim i As Integer
' Inhalt von Spalte 1 zunächst löschen.
Columns(„A").ClearContents
MyBrowser.ShowLeafs (True)
190
OPC