CLIENT OPC

Commentaire de sinseman21 le 25/05/2004 22:04:20

Je viens de rajouter quelques explications pour ceux qui veulent d'autres explications, n'hésiter pas à me contacter

Commentaire de jack le 26/05/2004 19:16:04 administrateur CS

Bien vu. Enfin une appli industrielle ! chouette !
Vais tester ça un de ces jours ...
(je bosse sur DeltaV de Emerson Process Management)

Commentaire de osmose06 le 26/05/2004 22:41:11

Quelqu'un aurait-il un serveur OPC pour tester l'appli ?

Commentaire de osmose06 le 26/05/2004 23:01:37

Merci sinseman21.
J'ai plus qu'à bosser.

Commentaire de sioac le 02/06/2004 17:07:49

je ne sais pas si cela pourra t'aider, mais si tu vas sur le site kepware.com et que tu installes leur simulateur de serveur OPC (équivalent à celui de matrikon) tu à alors accès à 3 exemples de client OPC (2 en VB et 1 en C++).

Commentaire de sioac le 03/06/2004 09:41:59

Mais tu ne me decois pas, c'est tout à ton honneur. Je disais cela uniquement dans l'éventualité ou tu voudrais comparer ta façon de faire avec une autre qui elle fonctionne.
Avant de commencer à peindre, il peut être interessant de regarder les techniques des grands maîtres...

Commentaire de alhabas le 27/07/2004 15:21:55

SALUT SINSEMAN21

COMMENT FAIRE POUR TESTER CE CODE?

Commentaire de P_GUERIN le 28/04/2005 19:07:29

Bravo sinsman21 dégrossissage parfait pour une appli industrielle en Spé avec un standard de rigueur de nos jours. Bon j'en ai bavé mais j'ai quelques explications :

j'ai testé avec le simulateur serveur OPC matrikon téléchargeable sur www.matrikon.com.
Il y a dans ce simulateur plusieurs variables variant de façon aléatoire. J'ai donc posé comme principe de lire deux variables dans l'arborescence proposée à savoir Random.Int1 et Random.Int2.

La modification de ton code devient donc ceci :

1) Cmd Ajouter est modifé partiellement comme indiqué  
Dim ClientHandles(2) As Long
Dim OPCItemIDs(2) As String

For I = 1 To 2
        ClientHandles(I) = I
        OPCItemIDs(I) = "Random.int" + Format(I)
Next I

    Set MyItems = MyGroup.OPCItems
    MyItems.AddItems 2, OPCItemIDs, ClientHandles, ItemServerHandles, ItemServerErrors



2) cmdsynchlec_Click Devient intégralement :
Dim NumItems As Long
Dim I As Integer

NumItems = 2
Msg.Text = ""
       For I = 1 To NumItems
            Msg.Text = Msg.Text + MyItems(I).ItemID + ":  Valeur=" + Str(MyItems(I).Value) + "   TimeStamp=" + Str(MyItems(I).TimeStamp) + "   Quality=" + Str(MyItems(I).Quality) + vbCrLf
        Next I
        'For I = 1 To 2
            'Values(I) = I
        'Next I
    
        'Call msg_disp("Lecture synchrone finie")
End Sub


Et voilà : Dcom se charge du rafraîchissement en arrière plan à partir de la déclaration MyGroup.UpdateRate.

Voilà pour la lecture, reste l'écriture!

A+ et encore bravo.

Commentaire de sinseman21 le 08/05/2005 09:26:21

Bravo a P_GUERIN d'avoir trouvé l'explication a une erreur qui m'a longtemps emmerdée. apres un peu plus de 6 mois de silence à cause de mes etudes, je vais reprendre le projet sur le client OPC, beaucoup d'autres options peuvent venir s'implanter sur ce client comme une Lecture asynchrone,  et une ecriture synchrone/asynchrone.......
bonne programmation à tous.

Commentaire de sioac le 31/05/2005 02:08:54

Mon bon coeur me pousserai à te pousser à apprendre l'anglais parce que la majorité des choses sur OPC son dans cette langue. Tu peux toujours tenter une recherche sur google mais ça ne vaudra pas les descriptions de l'OPC Fundation.
Si mes souvenirs sont bons, les items représentent les éléments que tu lis (réels, tableaux, entier, string,...). Les groupes sont juste un moyen de gérer les items. Et pour le XML DA j'en sais rien j'ai juste travailler sur de l'OPC DA.

Je réitère mon conseil : met toi à l'anglais et file sur le site de la fondation.

Commentaire de vbclaude le 03/06/2005 15:53:04

Suite aux explications P_GUERIN on peut utiliser  MyGroup.SyncRead
pour lire en synchrone :Modifs a faire
Utiliser les Variables globales sinon on risque d'utiliser des tableaux long non paramétés dans cmdsynchlec_Click !!
Dim ClientHandles() As Long
Dim OPCItemIDs(2) As String
Dim lItemServerHandles() As Long
Dim lItemServerErrors() As Long

1) cmdajouter_Click() est modifié partiellement comme indiqué  
Dim ClientHandles(2) As Long
'    Dim OPCItemIDs(2) As String
'    Dim ItemServerHandles() As Long
'    Dim ItemServerErrors() As Long
-
-
MyItems.AddItems 2, OPCItemIDs, ClientHandles, lItemServerHandles, lItemServerErrors

2) cmdsynchlec_Click devient :

    Dim ItemValues() As Variant
    Dim ItemQualities As Variant
    Dim ItemTimeStamps As Variant
    Dim i As Integer

    MyGroup.SyncRead OPCDevice, DefCtlMax, lItemServerHandles, ItemValues, lItemServerErrors, ItemQualities, ItemTimeStamps

    For i = LBound(ItemValues) To UBound(ItemValues)
       Msg.Text = "LectSync " + MyItems(i).ItemID + ":  Valeur= " + Str(ItemValues(i)) + "   TimeStamp=" + Str(MyItems(i).TimeStamp) + "   Qualité=" + Str(MyItems(i).Quality) + vbCrLf + Msg.Text
    Next i

Commentaire de Benthaous le 17/03/2006 09:39:56

De plus, dès que nous utilisons ces méthodes d'écriture et de lecture dans un autre formulaire du même projet c'est tout le programme qui est ralenti alors qu'il fonctionnait très bien !
Par exemple un mot de l'automate est associé à une petit diode qui passe du vert au rouge, rien que ça et le programme est beaucoup plus lent pour afficher cette diode sur un autre formulaire...

quelqu'un a une idée pour accélérer la communication entre les formulaires ?

Merci d'avance