A voir également:
- Opcdaauto.dll download
- "Php version 4.4.3" "build date" "server api" "php variables" - Forum ASP / ASP.NET
- "Php version 4.4.5" "build date" "server api" "php variables" - Forum PHP
- Php version 4.4.6 build date server api php variables ✓ - Forum C# / .NET
- "Php version 4.4.4" "build date" "server api" "php variables" - Forum Visual Basic
- API php pour Astérisk - Forum PHP
5 réponses
Merci de ta réponse, néanmoins même en lisant le topique et en essayant de faire comme indiqué, j'ai toujours le même problème. j'ai toujours des erreurs dans mon programme et je ne peux compiler et tester mon programme. ci dessous :
'déclarations
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" << Je ne sais pas réelement quoi mettre dans ces guillemets.
Set myOPCGroupLecture = myOpcServer.OPCGroups.Add("Lecture_pt")
Set myOPCGroupEcriture = myOpcServer.OPCGroups.Add("Ecriture_pt")
Set myReadItems = myOPCGroupLecture.OPCItems
Set myWriteItems = myOPCGroupEcriture.OPCItems
end Sub
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
Sachant que je n'arrive pas à ajouter en référence la librairie OPCDAAuto.dll visual studio ne reconnais pas les variables OPCServers ect..
'déclarations
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" << Je ne sais pas réelement quoi mettre dans ces guillemets.
Set myOPCGroupLecture = myOpcServer.OPCGroups.Add("Lecture_pt")
Set myOPCGroupEcriture = myOpcServer.OPCGroups.Add("Ecriture_pt")
Set myReadItems = myOPCGroupLecture.OPCItems
Set myWriteItems = myOPCGroupEcriture.OPCItems
end Sub
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
Sachant que je n'arrive pas à ajouter en référence la librairie OPCDAAuto.dll visual studio ne reconnais pas les variables OPCServers ect..
Utilisateur anonyme
4 déc. 2012 à 12:37
4 déc. 2012 à 12:37
D'où provient cette dll ?
Tu peux tenter d'en télécharger une ici.
Pour ton problème à la ligne 'connect', tu trouveras des exemples de code sur le lien ci-dessus, rubrique 'téléchargement'.
Tu peux tenter d'en télécharger une ici.
Pour ton problème à la ligne 'connect', tu trouveras des exemples de code sur le lien ci-dessus, rubrique 'téléchargement'.
Merci, j'ai réussis a compiler sans problèmes maintenant ;-). voici le programme final :
Imports OPCAutomation
Module Module1
Sub Main()
Dim myOPCServer As OPCServer
Dim myOPCGroupLecture As OPCGroup
Dim myOPCGroupEcriture As OPCGroup
Dim myReadItems As OPCItems
Dim myWriteItems As OPCItems
myOPCServer = New OpcServer
myOPCServer.Connect("CoDeSys.OPC.02") ' Connexion au server OPC << on doit mettre le ServeurID
myOPCGroupLecture = myOPCServer.OPCGroups.Add("Lecture_pt")
myOPCGroupEcriture = myOPCServer.OPCGroups.Add("Ecriture_pt")
myReadItems = myOPCGroupLecture.OPCItems
myWriteItems = myOPCGroupEcriture.OPCItems
End Sub
Public Function ECRITURE_PT_CIMP(ByVal PtId As String, ByVal Value As Object) As Integer
Dim gOPCWriteItem As OPCItem
Dim ItemServerHandles() As Long
Dim ClientHandles(1) As Long
Dim OPCItemIDs(1) As String
Dim Errors() As Long
Dim myWriteItems As OPCItems
ClientHandles(1) = 1
OPCItemIDs(1) = PtId
myWriteItems.AddItems(1, OPCItemIDs, ClientHandles, ItemServerHandles, Errors)
gOPCWriteItem = myWriteItems.GetOPCItem(ItemServerHandles(1))
gOPCWriteItem.Write(Value)
End Function
End Module
Cependant dans la fonction écriture je ne sais pas comment rajouter une fonction me permettant de lire ma variable que je viens de modifier par exemple afin de voir ci mon programme fonctionne.
Aussi, dans le main, les deux lignes ou il y as la commande : ("lecture") et ("écriture") je ne sais pas si je dois les laisser comme ça ou écrire quelque chose dedans. En clair je n'ai plus d'erreur de compilation mais j'ai un peu de mal a comprendre le corp du programme et comment l'utiliser ^^
Avez-vous une idée ?
Imports OPCAutomation
Module Module1
Sub Main()
Dim myOPCServer As OPCServer
Dim myOPCGroupLecture As OPCGroup
Dim myOPCGroupEcriture As OPCGroup
Dim myReadItems As OPCItems
Dim myWriteItems As OPCItems
myOPCServer = New OpcServer
myOPCServer.Connect("CoDeSys.OPC.02") ' Connexion au server OPC << on doit mettre le ServeurID
myOPCGroupLecture = myOPCServer.OPCGroups.Add("Lecture_pt")
myOPCGroupEcriture = myOPCServer.OPCGroups.Add("Ecriture_pt")
myReadItems = myOPCGroupLecture.OPCItems
myWriteItems = myOPCGroupEcriture.OPCItems
End Sub
Public Function ECRITURE_PT_CIMP(ByVal PtId As String, ByVal Value As Object) As Integer
Dim gOPCWriteItem As OPCItem
Dim ItemServerHandles() As Long
Dim ClientHandles(1) As Long
Dim OPCItemIDs(1) As String
Dim Errors() As Long
Dim myWriteItems As OPCItems
ClientHandles(1) = 1
OPCItemIDs(1) = PtId
myWriteItems.AddItems(1, OPCItemIDs, ClientHandles, ItemServerHandles, Errors)
gOPCWriteItem = myWriteItems.GetOPCItem(ItemServerHandles(1))
gOPCWriteItem.Write(Value)
End Function
End Module
Cependant dans la fonction écriture je ne sais pas comment rajouter une fonction me permettant de lire ma variable que je viens de modifier par exemple afin de voir ci mon programme fonctionne.
Aussi, dans le main, les deux lignes ou il y as la commande : ("lecture") et ("écriture") je ne sais pas si je dois les laisser comme ça ou écrire quelque chose dedans. En clair je n'ai plus d'erreur de compilation mais j'ai un peu de mal a comprendre le corp du programme et comment l'utiliser ^^
Avez-vous une idée ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Utilisateur anonyme
6 déc. 2012 à 13:18
6 déc. 2012 à 13:18
Sur le lien que je t'ai donné, il y a dans les rubriques du site, la doc complète sur ta dll et donc la façon de l'utiliser.
Bonne prog.
Bonne prog.
