Exemple D'application - Siemens SIMOTION Serie Information Produit

Astuces

5.7 Exemple d'application

5.7 Exemple d'application
Exemple
Remarque
Ce chapitre contient un exemple d'application avec client OPC.
Les exemples pour SIMATIC NET se trouvent dans le répertoire
"SIMATIC.net\opc2\samples".
Un client OPC doit, en association avec un serveur OPC, réaliser les tâches suivantes :
1. réagir à un arrêt du serveur OPC,
2. "instancier" le serveur OPC et
3. rétablir la liaison avec le serveur OPC (voir "Comment activer une nouvelle configuration
Programme Visual Basic
Ces tâches sont réalisées par le programme Visual Basic suivant :
Option Expicit
Option Base 0
Const NUM_OF_ITEMS As Long = 3
Dim WithEvents myOPCserver As OPCServer
Attribute myOPCserver.VB_VarHelpID = -1
Dim WithEvents myOPCgroup As OPCGroup
Attribute myOPCgroup.VB_VarHelpID = -1
Dim myOPCitem1 As OPCItem
Dim myOPCitem2 As OPCItem
Dim myOPCitem3 As OPCItem
Dim readData As Variant
Dim writeData(0 To 255) As Integer
Dim writeDataDINT As Long
Dim ItemIDs(NUM_OF_ITEMS) As String
Dim ClientHandles(NUM_OF_ITEMS) As Long
Dim ServerHandles(NUM_OF_ITEMS) As Long
Dim Values() As Variant
Dim Errors() As Long
Dim ErrorString As String
'called at program start
Private Sub Form_Load()
End Sub
50
OPC avec un client OPC en fonctionnement ?" (Page 41)).
Call Init
SIMATIC NET(XP) SIMOTION
Information produit, 05/2009