OPC Server

[tets88]

Bonjour tout le monde

J'aimerai savoir si quelqu'un connait le concept d'OPC Server ? Cela permet de communiquer d'un PC à un Automate.

Ce que j'aimerai pouvoir faire c'est envoyé des données d'un tableau excel à une automate programmable. Je sais que c'est possible grâce justement à OPC Server mais le problème c'est que je ne l'ai jamais utilisé. C'est pourquoi pourriez-vous m'aider en m'indiquant ou trouver de la documentation.

En vous remerciant d'avance de l'attention porté a mon problème, salutation à vous !

[Angath]

Salut

Je travaille souvent avec OPC Server pour effectivement récupérer des données dans des automates programmables.

Pour ca il te faut développer un client OPC en utilisant la dll OPCDAAuto.dll.

Tu trouveras plus d'info sur le site http://www.opcfoundation.org

J'ai quelques exemples dispo si besoin

[tets88]

Merci beaucoup

Si tu a des exemples je suis prenant. C'est toujours plus facile a comprendre avec quelques exemples.

Bonne après-midi et encore merci ++

[Angath]

En grande ligne, apres avoir fais référence à la dll OPC, il faut faire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim myOPCServer as OPCServer
Dim myOPCGroupLecture as OPCGroup
Dim myOPCGroupEcriture as OPCGroup
Dim myReadItems As OPCItems
Dim myWriteItems As OPCItems
 
Sub Main()
 
Set myOPCServer = new OpcServer
myOPCServer.connect "Nom du serveur OPC","nom_du _pc"
 
Set myOPCGroupLecture = myOpcServer.OPCGroups.Add("Lecture_pt")
Set myOPCGroupEcriture = myOpcServer.OPCGroups.Add("Ecriture_pt")
 
Set myReadItems = myOPCGroupLecture.OPCItems
Set myWriteItems = myOPCGroupEcriture.OPCItems
 
end Sub

A partir de la, tu a la connection au serveur, il reste à lire ou écrire des items.
Ci dessous 2 exemples de fonctions pour lire ou écrire un item.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function ECRITURE_PT_CIMP(PtId As String, Value As Variant) As Integer
 
Dim gOPCWriteItem as OPCItem
Dim ItemServerHandles() As Long
Dim ClientHandles(1) As Long
Dim OPCItemIDs(1) As String
Dim Errors() As Long
 
ClientHandles(1) = 1
OPCItemIDs(1) = PtId
myWriteItems.AddItems 1, OPCItemIDs, ClientHandles, ItemServerHandles, Errors
Set gOPCWriteItem = myWriteItems.GetOPCItem(ItemServerHandles(1))         
gOPCWriteItem.Write (Value)        
 
End Function

Si tu veux Lire/Ecrire des tableaux il suffit de passer un tableau de valeur aux fonctions et de pointer sur un item tableau lui aussi.

Attention OPC s'appuie sur la configuration DCOM du PC, ca bloque souvent à ce niveau là, surtout si ton serveur et ton client ne sont pas sur le même PC.

En espérant que ca pourra t'aider

[IDDIR]

comme je vous le dis, mon stage concerne la supervision d'un atelier avec le logiciel pcvue, dont je dois recuperer les informations de différents pc liés aux machines, pour cela j'ai pensé à utiliser OPC server/client, mais je connais pas trop en plus je trouve pas de la doc là dessus, en ce moment j'utilise MATRIKONOPC à travers le quel j'ai réussi à transmettre des messages vers pcvue (sans savoir comment les exploiter), par contre je n'arrive pas de le faire de pcvue vers Matrikon.
je vous prié, de m'aider soit par documentation ou bien par des conseils (je suis perdu!!)
merci d'avance

[bassemmen]

si vous utiliser un automate Panasonic vous pouvez utiliser le PCWAY il sert à communiquer directement entre l'exel et l'API Panasonic..