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.
Beta 35 may possibly fix this
Is there a way to enable logging on the comms driver?
private void tagTimer_Tick(object sender, EventArgs e)
{
string tag;
PropertyInfo[] properties = typeof(K_AutoExternal).GetProperties();
foreach (PropertyInfo property in properties)
{
tag = String.Format("{0}.{1}", AEXParentTag, property.Name);
ParseData(tag, PLC.Read(tag));
}
}
private void SubscribeTestTags()
{
try
{
string _testTage = "Robot1:I.Data[0]";
int _subscribeTotal = 32;
int _subscribeCount = 0;
UnsubscribeTags();
for (int i = 0; i < _subscribeTotal; i++)
{
string tag = String.Format("{0}.{1}", _testTage, i.ToString());
Console.WriteLine(tag);
SubscriptionIDs.Add(PLC.Subscribe(tag, 1, 250, SubscriptionTestCallback));
}
_subscribeCount++;
Console.WriteLine("Finished Subscribing.");
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ex.TargetSite.Name);
}
}
You cannot be stuck with this issue, just try a different approach like to comment out your subscription line of code and add a new line where you directly subscribe to a tag or two.
Or try adding and using the DataReceived event of the driver while setting the callback to null:
PLCComms.Subscribe(String.Format("{0}.{1}", AEXParentTag, property.Name), 1, 5000, null)
It could also be that your poll rate is too high and the driver is timing out.
Try setting the poll rate to 250 and/or set the driver's Timeout to a higher value than the poll rate.
private void SubscribeAEXTags()
{
try
{
UnsubscribeAEXTags();
int _subscribeTotal = 15;
int _subscribeCount = 0;
PropertyInfo[] properties = typeof(K_AutoExternal).GetProperties();
foreach (PropertyInfo property in properties)
{
if (_subscribeCount < _subscribeTotal)
{
Console.WriteLine(String.Format("{0}.{1}", AEXParentTag, property.Name));
SubscriptionIDs.Add(PLC.Subscribe(String.Format("{0}.{1}", AEXParentTag, property.Name), 1, 250, null));
_subscribeCount++;
}
}
Console.WriteLine("Finished Subscribing.");
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ex.TargetSite.Name);
}
}
Since when subscribing your own code become a support issue with AAHMI?
Have a little self respect and post it in the 'Open' forum.
------------ Start Application ------------
Finished Subscribing.
------------ Frist Callback ------------
Robot1.AUT - False
Robot1.AlarmStopExternal - True
Robot1.AlarmStopInternal - True
Robot1.ApplicationRunning - False
Robot1.Calibrated - True
Robot1.CommandDWord0 - 1073741874
Robot1.CommandDWord1 - 0
Robot1.ConfirmMessage - False
Robot1.ControllerReady - True
Robot1.CouldStartMotion - True
Robot1.CycleStart - True
Robot1.DriveEnable - True
Robot1.DrivesOff - True
Robot1.DrivesOn - False
Robot1.EXT - True
Robot1.EnableIn - True
Robot1.EnableOut - True
Robot1.ExternalStart - False
Robot1.FaultReset - False
Robot1.HeartBeat - False
Robot1.HeartBeatFault - True
Robot1.HeartBeatReflect - False
Robot1.Home - True
Robot1.Home1 - False
Robot1.Home2 - False
Robot1.Home3 - False
Robot1.Home4 - False
Robot1.Home5 - False
Robot1.IOActive - True
Robot1.IOActiveConfirmation - True
Robot1.MoveEnable - True
Robot1.NearPositionReturn - True
Robot1.OnPath - True
Robot1.ParityMode - 0
Robot1.PeriReady - True
Robot1.ProgramActive - True
Robot1.ProgramMoving - False
Robot1.ProgramNumber - 0
Robot1.ProgramNumberReflect - 0
Robot1.ProgramNumberRequest - True
Robot1.ProgramNumberValid - False
Robot1.QuickStop - False
Robot1.RobotReadyInternal - True
Robot1.SPSRunning - True
Robot1.StatusDWord0 - 1658783608
Robot1.StatusDWord1 - 0
Robot1.StopMessage - False
Robot1.Stopped - True
Robot1.T1 - False
Robot1.T2 - False
Robot1.UserSafety - True
Robot1.WaitingDriveEnable - False
Robot1.WaitingErrorAcknowledge - False
Robot1.WaitingExternalStart - False
Robot1.WaitingProgramNumber - True
Robot1.WaitingProgramNumberEcho - False
------------ Second Callback ------------
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
SubscriptionCallback - -22 - No Reponse from PLC 10.44.16.192, slot=0
PLC_ComError - -22 - No Response from PLC(22)
SubscriptionCallback - -22 - No Response from PLC(22)
SubscriptionCallback - -22 - No Response from PLC(22)
SubscriptionCallback - -22 - No Response from PLC(22)
SubscriptionCallback - -22 - No Response from PLC(22)
SubscriptionCallback - -22 - No Response from PLC(22)
SubscriptionCallback - -22 - No Response from PLC(22)
PLC_ComError - 0 - EIPTransport.SendData-No Response
PLC = new EthernetIPforCLXCom();
PLC.BeginInit();
PLC.IniFileName = "CLX.ini";
PLC.IniFileSection = "PLC";
PLC.EndInit();
private EthernetIPforCLXCom PLCComms = null;
private List<int> SubscriptionIDs = new List<int>();
public K_AutoExternal AEX { get; set; } = new K_AutoExternal();
private string AEXParentTag = "Robot1";
public MainWindow()
{
InitializeComponent();
DataContext = this;
PLCComms = new EthernetIPforCLXCom();
PLCComms.BeginInit();
PLCComms.IniFileName = "CLX.ini";
PLCComms.IniFileSection = "PLCComms";
PLCComms.EndInit();
PLCComms.ComError += this.PLCComms_ComError;
SubscribeAEXTags();
PLCComms.ReadClock();
}
private void UnsubscribeAEXTags()
{
foreach (int i in SubscriptionIDs)
PLCComms.Unsubscribe(i);
SubscriptionIDs.Clear();
}
private void SubscribeAEXTags()
{
try
{
UnsubscribeAEXTags();
PropertyInfo[] properties = typeof(K_AutoExternal).GetProperties();
foreach (PropertyInfo property in properties)
SubscriptionIDs.Add(PLCComms.Subscribe(String.Format("{0}.{1}", AEXParentTag, property.Name), 1, 5000, SubscriptionCallback));
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ex.TargetSite.Name);
}
}
private void SubscriptionCallback(object sender, PlcComEventArgs e)
{
if (e.ErrorId == 0 && e.Values != null && e.Values.Count > 0)
ParseData(e.PlcAddress, e.Values[0]);
}
private void ParseData(string tag, string value)
{
try
{
PropertyInfo[] properties = typeof(K_AutoExternal).GetProperties();
foreach (PropertyInfo property in properties)
{
if (String.Format("{0}.{1}", AEXParentTag, property.Name) == tag)
{
TypeConverter typeConverter = TypeDescriptor.GetConverter(AEX.GetType().GetProperty(property.Name).PropertyType);
object propValue = typeConverter.ConvertFromString(value);
AEX.GetType().GetProperty(property.Name).SetValue(AEX, propValue, null);
AEX.UpdateProperties();
break;
}
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ex.TargetSite.Name);
}
}
private void PLCComms_ComError(object sender, PlcComEventArgs e)
{
Console.WriteLine(e.ErrorId + " - " + e.ErrorMessage);
}
0 - EIPTransport.SendData-No Response
-22 - No Response from PLC(22)
Private Sub QCompositeButtonPLCMessages_ItemActivated(sender As System.Object, e As Qios.DevSuite.Components.QCompositeEventArgs) Handles QCompositeButtonPLCMessages.ItemActivated
Try
Dim frmPLCMessages As New frmPLCMessages()
If frmPLCMessages.ShowDialog(Me) = DialogResult.OK Then
ApplicationPLCMessages = New PLCMessages().Load
SubscribePLCMessages()
End If
frmPLCMessages = Nothing
Catch ex As Exception
Log.ErrorMessage(ex.TargetSite.Name, ex.Message, "1410")
End Try
End Sub
Private Sub UnsubscribePLCMessages()
For Each i As Integer In SubscriptionIDs
PLC.UnSubscribe(i)
Next
SubscriptionIDs.Clear()
End Sub
Private Sub SubscribePLCMessages()
UnsubscribePLCMessages()
For Each pm As PLCMessage In ApplicationPLCMessages
If pm.Message.Length > 0 Then
SubscriptionIDs.Add(PLC.Subscribe(pm.Tag, 1, AddressOf SubscriptionCallback))
End If
Next
End Sub