0/5 (10 avis)
Vue 14 859 fois - Téléchargée 1 491 fois
'*******************************************************************************************' '******************** 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
13 juil. 2010 à 19:40
En fait Kepware est un serveur de communication tous API. Il integre aussi un client OPC, pour tester la com (par exemple), rien a voir avec une IHM. C est a toi d'ecrire ton client OPC dans un langage type (C, C++, VB, VBA, VB.net ...) Tu as le choix.
8 juil. 2010 à 11:46
je veux savoir si je peux utiliser OPC kepserver comme client/serveur entre un automate OMRON et logiciel
WINCC pour etablir communication entre eux
Merci d'avance de votre réponse
30 juin 2010 à 18:42
IGAMARR : dans le serveur Kepware, il y a le driver pour communiquer avec OMRON et ca fonctionne je l'ai utilisé
29 juin 2010 à 17:51
14 sept. 2008 à 15:18
Il me manque le fichier Kepopcdaauto.dll.
Pourriez-vous me dire comment me le procurer ?
Merci d'avance de votre réponse.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.