plc.myforum.ro Forum Index plc.myforum.ro
PLCs users www.plc.myforum.ro!
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

QuickOPC 2018.1

 
Post new topic   Reply to topic    plc.myforum.ro Forum Index -> Links
View previous topic :: View next topic  
Author Message
uhry
Junior
Junior


Joined: 23 May 2018
Posts: 2
PostPosted: 23/05/2018 17:29    Post subject: QuickOPC 2018.1 Reply with quote
QuickOPC 2018.1
http://opclabs.com/products
QuickOPC is a toolkit for development of OPC Clients.
http://opclabs.com/products/quickopc/downloads
http://opclabs.com/products/quickopc/distribution-formats
https://www.nuget.org/packages/OpcLabs.QuickOpc.Forms/
https://www.nuget.org/downloads
https://www.nuget.org/packages/OpcLabs.QuickOpc.Sample.CS/
https://www.nuget.org/packages/OpcLabs.QuickOpc.Sample.VB/
https://www.visualstudio.com/downloads/
Back to top
View user's profile Send private message
uhry
Junior
Junior


Joined: 23 May 2018
Posts: 2
PostPosted: 23/05/2018 17:44    Post subject: How can read data from Kepware server Reply with quote
How can read data from Kepware server

Download and install QuickOPC 5.23(.NET Framework 3.5 or 4.0) or QuickOPC 5.31(.NET Framework 4.5) from http://opclabs.com/products/quickopc/downloads
Create a VB.NET project in VisualStudio.

Add the reference, OpcLabs.EasyOpcClassic.dll to the project
Use the following code to read data from Kepware server using VB.NET
QuickOPC 2018.1 How can read data from Kepware server
Code:

Imports OpcLabs.EasyOpc
Imports OpcLabs.EasyOpc.DataAccess

Public Class Demand
    Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ReadPLCvalue()
    End Sub

    Private Sub ReadPLCvalue()
        Dim objClient As New EasyDAClient
        Dim sValue As Object

        Try
            sValue = objClient.ReadItemValue(KepwareServerMachineName, KepwareServerID, PLCTagName)
        Catch ex As OpcException

        End Try

        StoreToDB(sValue)
    End Sub

    Private Sub StoreToDB(ByVal source As Object)
      'Database operations to store the value.
    End Sub
End Class
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    plc.myforum.ro Forum Index -> Links All times are GMT + 2 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group
Fa-ti si tu propriul forum GRATUIT, pe www.myforum.ro