begin process at 2010 03 21 16:00:10
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > CLIENT OPC, AVEC CONNEXION AU SERVEUR KEPWARE

CLIENT OPC, AVEC CONNEXION AU SERVEUR KEPWARE


 Information sur la source

Note :
Aucune note
Catégorie :API Niveau :Initié Date de création :20/05/2005 Vu / téléchargé :6 951 / 949

Auteur : jjmaster

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 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

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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source .NET (Dotnet) CLIENT OPC EN VB.NET
Source avec Zip CLIENT OPC, AVEC SERVEUR KEPWARE. DIALOGUE AVEC 2 AUTOMATES ...
Source avec Zip Source .NET (Dotnet) BIBLIOTHÉQUE EN .NET (GESTION D'UNE BASE DE DONNÉES, REQUETE...
Source avec Zip Source .NET (Dotnet) GESTION DE NOMBRE COMPLEXE. (APPELLE DE CONTROLE D'UNE AUTRE...
Source avec Zip Source .NET (Dotnet) CRAPS - LE JEU (GESTION IMAGE, FICHIER, DRAG AND DROP...)

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION DE L' API GOOGLE YOUTUBE RECHERCHER ET LIRE DES ... par tresorsdevie
Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE LA DIFFÉRENCE ENTRE UNE ADRESSE EMAIL QUI EXISTE D'UNE... par lesinfosdugeek
ENVOYER UN MESSAGE SUR SON COMPTE TWITTER par lesinfosdugeek
Source avec Zip Source avec une capture TROUVER LES CLÉS DE REGISTRE QUI CHANGENT par Flocreate
Source avec Zip IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

Commentaires et avis

Commentaire de jjmaster le 20/05/2005 11:39:13

A vous la parole
:)

Commentaire de Michel4CE le 20/05/2005 18:44:20

Bonjour,

Ce source a l'avantage d'exister...
Mais il convient de préciser les choses suivantes :
1 Il utilise le wrapper Automation de la Fondation OPC.
2 Ce wrapper est soumis à des conditions d'utilisation très stricte
3 Ce source n'utilise pas les callback OPC. bien que tout soit en place... domage
4 Il n'utilise pas non plus l'OPCEnum ... dommage

Michel4CE [OPC Foundation Member]

Commentaire de paradoxham le 25/12/2005 12:00:39

bonjour
vous n'avez pas un OPC server qui fonctionne avec delphi et automate siemens
merci

Commentaire de podjazz le 02/12/2007 13:16:01

Bonjour à tous,

j'ai un projet cette année je dois pouvoir consulter à partir d'un pocket PC (PDA) le contenu des variables d'un automate de marque Siemens.
Il y a deux niveaux de communication : le Wifi tout d'abord pour se connecter au réseau de l'entreprise et ensuite il y aura ethernet pour acceder aux données automate.
Bien sur pour récupérer ses données j'utilise un serveur OPC.
Voici mes questions :
- le serveur OPC est il un moyen d'interoperabilité entre les differentes technologies de machines et de logiciels ?
- l'exemple donné est il valable pour la communication Ethernet que je possede ?

Merci d'avance pour vos reponse...

ps : je débute dans le milieu, veuillez m'excuser pour mes abus de langage.

Clement

Commentaire de Michel4CE le 02/12/2007 17:03:34

Bonjour,
vous trouverez ci-après une réponse à vos question :
1- OPC est en effet la technologie pour l'intéropérabilité en informatique industriel
2- vous pouvez utiliser OPC pour faire communiquer un PDA et un Automate. Il vous faudra pour cela utiliser la spécification OPC XML DA ou OPC UA. Vous aurez besoin, pour l'acquisition et l'exposition des données: d'un serveur OPC DA couplé à un wrapper XML DA ou directement un serveur XML DA d'acquisition et pour consommer vos données sur le PDA il vous suffira d'ecrire un client XML DA c'est à dire un client qui consomme le webservice XML DA.

Je vous recommende de commencer par mettre en place l'architecture d'acquisition XMLDA,serveur DA + Wrapper ou serveur XML DA natif. VOus pourrez dans un deuxième temps vous concentrer sur le client. Pour le client sur PDA vous ne pourrez pas utiliser l'OPC .Net API et bien sur pas le wrapper automation.

Bon courage

Commentaire de matcoh le 14/09/2008 15:18:47

Bonjour,
Il me manque le fichier Kepopcdaauto.dll.
Pourriez-vous me dire comment me le procurer ?

Merci d'avance de votre réponse.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,452 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales