1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources API
  5. Client opc, avec connexion au serveur kepware

Client opc, avec connexion au serveur kepware

0/5 (10 avis)

Vue 14 859 fois - Téléchargée 1 491 fois

Télécharger le projet
Commenter

Description

Voila une autre source VB, comme client OPC.
Ici on utilise une connexion Tcp/IP avec les automates (donc pas de cartes a mettre dans le PC) et le serveur Kepware

Je ne vais pas mettre trop de blabla bla. Posez vos questions !!!

Bon courage, JJMaster

Source / Exemple : 


'*******************************************************************************************'
'********************   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

Conclusion :


Il y a plusieurs source OPC, n'hesiter pas a les consulter pour vous faire une plus grand idée, mais si aux premiers abords, on crois que c'est la meme chose. Il y a toujours la petite ligne qui fait la différence.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
jjmaster
Messages postés
51
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
29 septembre 2010
 1
13 juil. 2010 à 19:40
IGAMARR : le logiciel Wincc est un logiciel Siemens qui permet de programmer des afficheurs, sauf si tu as la version wincc flexible qui te permet de creer des ihm sur PC. Ce logiciel contient normalement les drivers pour communiquer avec tous types d'API.

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.
igamarr
Messages postés
2
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
8 juillet 2010
8 juil. 2010 à 11:46
merci pour la reponse
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
jjmaster
Messages postés
51
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
29 septembre 2010
 1
30 juin 2010 à 18:42
Matcoh : en fait ce n'est pas la dll kepopcdaauto.dll qui te manque mais la dll standard opcdaauto.dll, qui se trouve dans ton bon serveur OPC, une fois le serveur installé, elle est presente. Elle peut aussi s'appeller OPC wrapper automation 2.0

IGAMARR : dans le serveur Kepware, il y a le driver pour communiquer avec OMRON et ca fonctionne je l'ai utilisé
igamarr
Messages postés
2
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
8 juillet 2010
29 juin 2010 à 17:51
svpp il y a pas un OPC qui fonctionne avec automat OMRON????
matcoh
Messages postés
2
Date d'inscription
dimanche 25 mai 2003
Statut
Membre
Dernière intervention
14 septembre 2008
14 sept. 2008 à 15:18
Bonjour,
Il me manque le fichier Kepopcdaauto.dll.
Pourriez-vous me dire comment me le procurer ?

Merci d'avance de votre réponse.
Afficher les 10 commentaires
S'inscrire maintenant

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.

Du même auteur (jjmaster)