CLIENT OPC, AVEC CONNEXION AU SERVEUR KEPWARE

'*******************************************************************************************'
'********************   Client OPC developpé par Julien BOUET   ****************************'
'********************               alias JJMaster              ****************************'
'********************                   V1.0                    ****************************'
'********************              16 mars 2005                 ****************************'
'*******************************************************************************************'


    App.HelpFile = App.Path & "\TEMP1.chm"

'**initialisation de variables
    inibiteur = False
    '**On crée un objet OPCServer qui sera connecte au serveur OPC choisi
    Set ServeurOPCConnecte = New OPCServer
    On Error GoTo erreur
        '**On tente de s'y connecter
        ServeurOPCConnecte.Connect "KEPware.KEPServerEx.V4"
    On Error GoTo 0
    '** pas d'erreur de connexion au serveur OPC
    Label2.Visible = True
    Label2.ForeColor = &HC000&
    Label2.Caption = "Connexion au serveur OK"
    
    '**Création d'un objet OPCGroups qui contiendra une collection
    '**d'objets OPCGroup
    Set CollectionGroupesConnecte = ServeurOPCConnecte.OPCGroups
    CollectionGroupesConnecte.DefaultGroupIsActive = True

    '**On crée un objet OPCGroup dans la collection CollectionGroupesConnecte
    Set GroupeConnecte = CollectionGroupesConnecte.Add("supervision")
    '**initialisation necessaire cf. doc la bible OPC
    GroupeConnecte.IsActive = True
    GroupeConnecte.UpdateRate = 10
    GroupeConnecte.IsSubscribed = True
    
    '**Création d'un objet OPCItems qui contiendra une collection d'objets OPCItem
    Set CollectionItemsOPC = GroupeConnecte.OPCItems
    
    '**Variable pour le Tour
    ReDim tabhandle(nbElementOPC)
    For i = 1 To nbElementOPC
        tabhandle(i) = i
    Next i
    
    ReDim Tabitem(nbElementOPC)
    ReDim TabitemRef(nbElementOPC)
    Call MiseEnFormeVariable2
                
    '**On tente d'ajouter un objet OPCItem à la collection pour le TOUR
    CollectionItemsOPC.AddItems nbElementOPC, Tabitem(), tabhandle(), TabServer(), TabError()

    Exit Sub
    
    '**en cas d'erreur de connexion au serveur OPC
erreur:
    Label2.ForeColor = &HFF&
    Label2.Caption = "Erreur de connexion"
    
End Sub

Télécharger le zip