Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
m_SynchronizingObject.BeginInvoke(SubscriptionList(i).dlgCallback, x) If m_SynchronizingObject IsNot Nothing AndAlso m_SynchronizingObject.InvokeRequired Then
m_SynchronizingObject.BeginInvoke(SubscriptionList(i).dlgCallback, x)
Else
SubscriptionList(i).dlgCallback(Me, f)
End If
OmronEthernetFINSCom comComponent = new OmronEthernetFINSCom()
{
IPAddress = "192.168.1.80",
ProtocolType = OmronEthernetFINSCom.ProtocolOptions.UDP
};
main.Initialize(comComponent);
public void Initialize(OmronEthernetFINSCom comComponent)
{
this.comComponent = comComponent;
this.comComponent.Subscribe(RUN, 1, 100, DataSubRun_DataReceived);
this.comComponent.Subscribe(FIXTURE_ID, 1, 100, DataSubFixtureID_DataReceived);
}
Private Sub PolledDataReturnedValue(ByVal sender As Object, ByVal e As MfgControl.AdvancedHMI.Drivers.Common.PlcComEventArgs)
Try
'* Fire this event every time data is returned
OnDataReturned(e)
'* Case may be switched so find key based on that
Dim TargetKey As String = ""
For Each key In SubscribedValueList.Keys
If String.Compare(key, e.PlcAddress, True) = 0 Then
TargetKey = key
End If
Next
If e.Values(0) <> SubscribedValueList(TargetKey) Then
'* Save this value so we know if it changed without comparing the invert
SubscribedValueList(e.PlcAddress) = e.Values(0)
If InvertValue Then
m_Value = Convert.ToString(Not CBool(e.Values(0)))
Else
m_Value = e.Values(0)
End If
'* This event is only fired when the returned data has changed
OnDataChanged(e) '* <--- any exceptions thrown by the user/programmer in a subscribed method are caught below.
End If
Catch ex As Exception
DisplayError("INVALID VALUE RETURNED!")
End Try
End Sub
Love thisIf it's not already a thing, and if it is please inform me how to do this, an implementation for Universal Apps would be good.That will be coming in the future. All of the drivers are being updated for compatibility in UWP.
public partial class Main : Form
{
public Main()
{
InitializeComponent();
Program.Logic.Initialize(omronEthernetFINSCom1);
Program.Logic.DataSubFixtureID.DataChanged += DataSubFixtureID_DataChanged;
Program.Logic.SequenceDone += Logic_SequenceDone;
}
private void Logic_SequenceDone(object sender, Vitrek_Library.MainSequenceDoneEventArgs e)
{
throw new NotImplementedException();
}
private void DataSubFixtureID_DataChanged(object sender,
MfgControl.AdvancedHMI.Drivers.Common.PlcComEventArgs e)
{
int fixtureId = Convert.ToInt32(e.Values[0]);
lblPartNumber.Text = $@"Part Number: {fixtureId}";
}
}
public class Logic{
public DataSubscriber DataSubFixtureID;
public void Initialize(IComComponent comComponent)
{
data = new DataInterface();
data.Load();
SeqRight = new Sequences();
SeqRight.SequenceDone += SeqRight_SequenceDone;
SeqRight.Initialize(new System.IO.Ports.SerialPort());
SeqLeft = new Sequences();
SeqLeft.SequenceDone += SeqLeft_SequenceDone;
SeqLeft.Initialize(new System.IO.Ports.SerialPort());
DataSubFixtureID = new DataSubscriber
{
PLCAddressValue = new PLCAddressItem("D10"),
ComComponent = comComponent
};
}
}