Messages

1

Open Discussion / Re: TwincatViaTCPIP vs TwincatViaAMSrouter

« on: December 06, 2024, 04:17:27 AM »

Ok, thanks.

My first step will be to upgrade AHMI to 3.99yB40.
If problem still persist I'll look into it with wireshark. I have already seen with windows performance monitor that during the "hang" the network traffic increase from 20-40kB/s to 1-3MB/s.

2

Open Discussion / Re: TwincatViaTCPIP vs TwincatViaAMSrouter

« on: December 05, 2024, 04:44:44 AM »

Bump

3

Open Discussion / Re: TwincatViaTCPIP vs TwincatViaAMSrouter

« on: November 27, 2024, 02:25:35 PM »

Thanks for the answer. Unfortunately the question was lost.
I know about the difference about possibility to coexist with Twincat.

We have an application made on AHMI. It is today a very old version. It is 3.99, but I dont know what letter. The TwincatCom.vb file has a filedate of 2015. I am now doing an update.
With the existing application we have performance problems. Especially on one machine where the pc is W11. The AHMI application gets "not responding" for 3-10minutes several times a day.

Now when updating, I would like some advice on which driver to choose. I don't need Twincat, but I have no problem installing it and set up the routing. What I do want to know is if there is any performance or stability difference between the two drivers.

Do you know any issues with AHMI on W11?

4

Open Discussion / TwincatViaTCPIP vs TwincatViaAMSrouter

« on: November 26, 2024, 05:11:53 PM »

I

5

Support Questions / Twincat write performance

« on: December 07, 2023, 12:41:30 PM »

Hi
Is there an elegant way to group writes to Twincat?

I have an old advancedhmi application (Not sure how old, but maybe based on a 5 year old version or so) that I'm looking at improving the performance.
I noticed that each Twincatcomm1.write operation takes about 100-150ms. At some occations I do a handful writes to different avariables when a button is clicked.
A few places could be easily replaced by array-writes but when it's a bunch of different types it's not that easy.
Any suggestions? I'm thinking if there is any functionality to add variables in a sending list and then write it all?

Is the new 3.99y version that uses AMSrouter generally faster?

6

Open Discussion / Re: HTTP protocol or web interface

« on: January 13, 2016, 09:38:58 AM »

For the read-only web presentation:
I have an AdvHMI application that has been running for a year now with web-presentation.
On the same computer as AdvHMI I have installed a program called SCWebCam (google it)
That program takes a snapshot of the screen every 2 minute and uploads the image via ftp to an webserver. The webserver present this to anybody who wants to see

PS
screensaver must be turned of.

7

Support Questions / Re: Write two-dimensional array with twincat driver

« on: October 30, 2015, 06:54:37 PM »

Thank you!

With the index it's working for me too now.

TwinCATCom1.Write(".controlcurve[0,0]", cc, 200)

8

Support Questions / Write two-dimensional array with twincat driver

« on: October 30, 2015, 02:28:50 PM »

Hi
In past versions (at least v3.02) of Adv.HMI it was working to write to 2-dimensional arrays in Twincat plc by treating them as 1-dimensional in AdvancedHMI.
Like this:

Code: [Select]

Plc declaration:
  controlcurve: ARRAY [0..99,0..1] OF REAL:= 200(0);

vb.net declaration:
  Dim cc(200) As String
 
TwinCATCom1.Write(".controlcurve", cc, 200)


But now in version 3.99a application breaks with error "WriteData2b, not possible to convert the string 99,0..1 to type integer" (error message translated from Swedish so it's not the literally exact message)

 

Code: [Select]

   Public Function Write(ByVal startAddress As String, ByVal dataToWrite() As String, ByVal numberOfElements As UInt16) As Integer
        If Not DLL.ContainsKey(MyDLLInstance) OrElse DLL(MyDLLInstance) Is Nothing Then CreateDLLInstance()
        Try
            Dim Sym As MfgControl.AdvancedHMI.Drivers.TcAdsSymbolInfo
            'Dim SymIndex As Integer
            Try
                Sym = GetSymbolInfo(startAddress)
            Catch ex2 As Exception
                System.Windows.Forms.MessageBox.Show("WriteData2b. " & ex2.Message)
                Throw
            End Try

With v3.99a the following is still working, but I don't like to rewrite the plc program.

Code: [Select]

Plc declaration:
  controlcurve: ARRAY [0..199] OF REAL:= 200(0);

vb.net declaration:
  Dim cc(200) As String
 
TwinCATCom1.Write(".controlcurve", cc, 200)




Can this be solved?

I could do it by looping through the array and write one element at time, but it's not elegant...

Best Regards
Mattias

9

Support Questions / Re: Datasubscriber2 bug? (TwinCAT)

« on: October 16, 2015, 07:56:49 AM »

Now i receive the correct number of datareturned-events in my main application!
112 events per second instead of a couple of thousands...


Thanks for help

10

Support Questions / Re: Datasubscriber2 bug? (TwinCAT)

« on: October 16, 2015, 07:19:18 AM »

I found that above changes makes the subscriptionlist in TwincatCom1 to be correct, but the subscriptionlist in subscriptionhandler is still populated with lots of duplicates.

Code: [Select]

   Public Sub SubscribeTo(ByVal PLCAddress As String, ByVal callBack As EventHandler(Of SubscriptionHandlerEventArgs), ByVal propertyName As String)
        '* Check to see if the subscription has already been created
        Dim index As Integer
        While index < m_SubscriptionList.Count AndAlso (m_SubscriptionList(index).CallBack <> callBack Or m_SubscriptionList(index).PropertyNameToSet <> propertyName)
            index += 1
        End While

        '* Already subscribed and PLCAddress was changed, so unsubscribe
        If (index < m_SubscriptionList.Count) AndAlso m_SubscriptionList(index).PLCAddress <> PLCAddress Then
            m_CommComponent.Unsubscribe(m_SubscriptionList(index).NotificationID)
            m_SubscriptionList.RemoveAt(index)
        End If

        '* Is there an address to subscribe to?
        If (PLCAddress IsNot Nothing) AndAlso (String.Compare(PLCAddress, "") <> 0) Then
            Try
                If m_CommComponent IsNot Nothing Then
                    '* If subscription succeedded, save the subscription details
                    Dim temp As New SubscriptionDetail(PLCAddress, callBack)
                    temp.PropertyNameToSet = propertyName
                    If PLCAddress.ToUpper.IndexOf("NOT ") = 0 Then
                        temp.Invert = True
                    End If
                    m_SubscriptionList.Add(temp)
                    InitializeTryTimer(500)
                Else
                    OnDisplayError("CommComponent Property not set")
                End If
            Catch ex As MfgControl.AdvancedHMI.Drivers.Common.PLCDriverException
                '* If subscribe fails, set up for retry
                InitializeSubscribeTry(ex, PLCAddress)
            End Try
        End If
    End Sub

I don't see where this code stops duplicates except for the comment?

11

Support Questions / Re: Datasubscriber2 bug? (TwinCAT)

« on: October 15, 2015, 06:16:47 PM »

Argh. Copy paste error by me.
I changed first IF to check subscriptionlist.count instead of usedsymbols.count
Several copies of each plcaddress were added to the subscriptionlist before usedsymbols got above 0.

(sent from Phone)

12

Support Questions / Re: Datasubscriber2 bug? (TwinCAT)

« on: October 15, 2015, 05:29:50 PM »

What do you think about my change to the IF statement? Does it make sense with regards to your intended use for each variables?

13

Support Questions / Re: Datasubscriber2 bug? (TwinCAT)

« on: October 15, 2015, 11:55:34 AM »

It was not enough to change this row:
                    If String.Compare(SubscriptionList(k).Symbol.Name, plcAddress, True) = 0 And SubscriptionList(k).dlgCallBack = callback Then

But I tried to change also the first if-statement to this:

Code: [Select]

            If UsedSymbols.Count > 0 Then
                For k = 0 To SubscriptionList.Count - 1
                    If String.Compare(SubscriptionList(k).Symbol.Name, plcAddress, True) = 0 And SubscriptionList(k).dlgCallBack = callback Then
                        SubExists = True
                        Exit For
                    End If
                Next
            End If
Then there is no duplicates made in the subscription list.

I still have too many calls to DataReturned in my main application (test application seems to be ok now). But I ssupect my own written AlarmSubsctiption routine, so I have to dig more into it.


Another issue:
After working a while in the application (Happened in both my main app and my test app) I get following "Object does not match target type" in the Collection editor for plcadress in DataSubscriber2. I have got it working again in a few different ways, but the most effective and so far permanent solution has been to comment this row out:
'<System.ComponentModel.TypeConverter(GetType(PLCAddressItemTypeConverter))> _
from PLCAddressItem.vb

In the test app I have not made any new controls or changes to Adv.HMI code besides what have been discussed above in this forum-thread, but anyway I got the "Object does not match target type"

14

Support Questions / Re: Datasubscriber2 bug?

« on: October 11, 2015, 02:09:24 PM »

After your suggested change it seems to work as long as I only enter addresses to subscribe from in the designer property manager.

I would like to add variables from my code (since number of elements is not working it would be handy to subscribe to arrays by for-loops)
but then it starts making trouble again.

If I add ".var1" and ".var2" in the property manager and then add this code:

Code: [Select]

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataSubscriber21.PLCAddressValueItems.Add(New AdvancedHMIDrivers.PLCAddressItem(".var3"))
        DataSubscriber21.PLCAddressValueItems.Add(New AdvancedHMIDrivers.PLCAddressItem(".var4"))
        sw.Start()
    End Sub

I set a breakpoint and Watch TwinCATCom1.SubscriptionList it looks like this:
(0): ".var1"
(1): ".var1"
(2): ".var1"
(3): ".var2"
(4): ".var2"
(5): ".var2"
(6): ".var3"
(7): ".var3"
(: ".var4"

The list seems to grow exponantially the more variables I add from code.

In above example I also get 45 insted of 8 or 16 datareturned-events per second with pollrateoverride 500.





This code has the same behaviour:

Code: [Select]

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        Dim PlcAddressItem3 As AdvancedHMIDrivers.PLCAddressItem = New AdvancedHMIDrivers.PLCAddressItem()
        Dim PlcAddressItem4 As AdvancedHMIDrivers.PLCAddressItem = New AdvancedHMIDrivers.PLCAddressItem()
        PlcAddressItem3.LastValue = Nothing
        PlcAddressItem3.NumberOfElements = 1
        PlcAddressItem3.PLCAddress = ".var3"
        PlcAddressItem3.ScaleFactor = 1.0R
        PlcAddressItem3.ScaleOffset = 0.0R
        PlcAddressItem3.SubscriptionID = 0
        PlcAddressItem4.LastValue = Nothing
        PlcAddressItem4.NumberOfElements = 1
        PlcAddressItem4.PLCAddress = ".var4"
        PlcAddressItem4.ScaleFactor = 1.0R
        PlcAddressItem4.ScaleOffset = 0.0R
        PlcAddressItem4.SubscriptionID = 0
        DataSubscriber21.PLCAddressValueItems.Add(PlcAddressItem3)
        DataSubscriber21.PLCAddressValueItems.Add(PlcAddressItem4)

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sw.Start()
    End Sub



15

Support Questions / Re: Datasubscriber2 bug?

« on: October 10, 2015, 12:29:47 PM »

When I removed the first basiclabel from the form, so that I only have the Datasubscriber21, Label1, Label2 and TwinCatCom1 the number dropped from 23 to 17-17.3 with 3 valid addresses.

So it seems that also addresses not in the Datasubscriber trigger the DataSubscriber.Datareturned ...?