|
|
| Line 1: |
Line 1: |
| − | Hello. Below is a slightly modified version of the code provided on the "Subscribing to PLC data via code" page. I am attempting use this concept with multiple tags of various data types. I have found that I pretty much have to make multiple calls in order to achieve this but I'm by no means an expert at coding. Is there a better way to achieve this???
| |
| | | | |
| − |
| |
| − | Imports MfgControl.AdvancedHMI
| |
| − |
| |
| − | Public Class Form1
| |
| − |
| |
| − | Private SubscriptionID1 As Integer
| |
| − | Private SubscriptionID2 As Boolean
| |
| − |
| |
| − | Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
| |
| − | SubscriptionID1 = OpcDaCom1.Subscribe("One.TestWord", 1, 500, AddressOf Subscription_DataReceived)
| |
| − | SubscriptionID2 = OpcDaCom1.Subscribe("One.ONBOARD_INPUT_BIT0", 1, 500, AddressOf Subscription_DataReceived2)
| |
| − | End Sub
| |
| − |
| |
| − | Private Sub Subscription_DataReceived(sender As Object, e As Drivers.Common.PlcComEventArgs)
| |
| − | If e.ErrorId = 0 AndAlso e.Values IsNot Nothing AndAlso e.Values.Count > 0 Then
| |
| − | Label1.Text = e.Values(0)
| |
| − | EthernetIPforCLXCom1.Write("Word", e.Values(0))
| |
| − | End If
| |
| − | End Sub
| |
| − | Private Sub Subscription_DataReceived2(sender As Object, e As Drivers.Common.PlcComEventArgs)
| |
| − | If e.ErrorId = 0 AndAlso e.Values IsNot Nothing AndAlso e.Values.Count > 0 Then
| |
| − | Label2.Text = e.Values(0)
| |
| − | If e.Values(0) = "True" Then EthernetIPforCLXCom1.Write("ZZ", 1) Else EthernetIPforCLXCom1.Write("ZZ", 0)
| |
| − | End If
| |
| − | End Sub
| |
| − |
| |
| − | Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
| |
| − | OpcDaCom1.UnSubscribe(SubscriptionID1)
| |
| − | OpcDaCom1.UnSubscribe(SubscriptionID2)
| |
| − | End Sub
| |
| − |
| |
| − |
| |
| − | End Class
| |
