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.


Messages - billerl

Pages: [1]
1
Support Questions / Re: Reading all PLC Tags (not data but literal string values for tag names)
« on: June 17, 2024, 02:14:01 PM »
With AB I linked this to a button click (BtnReadTags) event then populated a combo box (CBTags) with all of the tag names

Code: [Select]
    Private Sub BtnReadTags_Click(sender As Object, e As EventArgs) Handles BtnReadTags.Click

        Try
            Dim tags() As MfgControl.AdvancedHMI.Drivers.CLXTag = SeeThruForm.EthernetIPforCLXCom1.GetTagList
            Dim TagIndex As Integer = 0
            For Each TagID In tags
                CBTags.Items.Add(tags(TagIndex).TagName)
                TagIndex = TagIndex + 1
            Next
            CBTags.Sorted = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

2
Open Discussion / Re: Siemens S7 driver
« on: June 17, 2024, 07:18:20 AM »
This is awesome, nice work to everyone responsible. Does anyone know what the format for setting the plc tag address would be? Is non-optimized data blocks required? Any place to find further documentation? Hopefully this is a new add in the next version of AdvancedHMI

3
Feature Request / Re: Pilot light and I/O card
« on: October 29, 2020, 12:10:49 PM »
Ef þú lítur út og finnur það ekki, er skaðlegt að spyrja?

4
Support Questions / Re: how to test the communication between plc and pc
« on: March 12, 2020, 12:56:09 PM »
Would the ConnectionEstablished and ConnectionClosed events simplify this, or am I misunderstanding the OP's question?

Code: [Select]
    Private Sub ModbusTCPCom1_ConnectionEstablished(sender As Object, e As EventArgs) Handles ModbusTCPCom1.ConnectionEstablished
        LabelDebug.Text = "Connection at " & vbNewLine & ModbusTCPCom1.IPAddress & " Established"
        LabelDebug.ForeColor = Color.Lime
    End Sub

    Private Sub ModbusTCPCom1_ConnectionClosed(sender As Object, e As EventArgs) Handles ModbusTCPCom1.ConnectionClosed
        LabelDebug.Text = "Connection at " & vbNewLine & ModbusTCPCom1.IPAddress & " Closed"
        LabelDebug.ForeColor = Color.Red
    End Sub

5
Application Showcase / Screen capture as standalone app or using AHMI and PLC
« on: October 16, 2019, 10:03:43 PM »
Below is a link to my github SeeThru application.

Configure the coms Edit->Preferences->Use PLC ->Communication. Set IP address and driver. If you're using ControlLogix / CompactLogix, you can pull all the tags in from the PLC to select the PLC address as the trigger. Press Start on the main form to start.

On first run you'll be prompted to create a directory in "My Pictures" folder named "SeeThru" where images are stored.

You can name the images what you like via the text box on the main screen, or leave it blank and a name will be generated based on Date/Time.

Place the form and resize over anything on the screen, like RsLogix (for example) to record what state the rung was in when an alarm occurred or bit/input/output went high.

Or deselect "Use PLC" and use as a standalone app. Click "Save" to capture an image as an alternate to "Snipping Tool"

Under the help menu states the software was made with AdvancedHMI and clicking the "Help" button takes you to the AdvancedHMI website.

Disclaimer: I'm certain there are bugs, I'm no coding guru, and my data structures are terrible. If anyone wants to clone the repo and clean it up, I will not be offended.

https://github.com/billerl/SeeThru

6
Feature Request / Re: Pilot light and I/O card
« on: August 27, 2019, 10:40:21 AM »
Found it - thank you.

7
Feature Request / Pilot light and I/O card
« on: August 27, 2019, 09:44:18 AM »
Maybe it's already there and I haven't seen it yet, but a pilot light that is just the round light without the bezel would be nice way to create a compact diagnostic I/O page.

Also, something similar but 8 or 16 pilot lights as a template that has 8-16 positions that you enter the PLC address and description basically simulating an input or output card.
 
Advanced HMI is awesome. I'm really enjoying it.

8
Support Questions / Re: How can I use data subscriber to monitor the same tag in multiple plcs for chang
« on: October 11, 2018, 03:03:43 PM »
I don't know if this helps or not, but you can use an event to change the IP address of the Com Component linked in your DataSubscriber.
I tried it out with two different buttons and it  worked.

 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        EthernetIPforCLXCom2.IPAddress = "192.168.0.1"
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        EthernetIPforCLXCom2.IPAddress = "192.168.0.2"
    End Sub

9
Open Discussion / Re: 4-20 mA AC output
« on: February 09, 2018, 08:30:54 AM »
http://www.advantech.com/products/7447e150-338d-402d-b5a1-c9ce6d98816e/adam-6224/mod_8e33d21a-7b6c-4175-9029-cfbdaa15b723

Maybe check these out. I would assume these are for DC, but I don't see where it specifies AC or DC output. I have successfully used Advantech modules with Modbus TCP and AHMI in the past.

10
Application Showcase / Re: $200 7” Touchscreen
« on: November 27, 2017, 01:05:08 PM »
Archie,
Did anything ever come of this? I built a smokehouse for personal use and currently have to take my laptop out to it, and I think this maybe within my budget.

11
Open Discussion / Re: Store IP Addresses in a .txt file
« on: July 21, 2017, 09:18:12 AM »
Perfect!

Thanks Archie - your help has been greatly appreciated.

PS - I do try to search thru the forum for questions before I make a post, I just don't seem to be searching the correct subjects.

12
Open Discussion / Re: Where do we draw the line?
« on: July 21, 2017, 08:37:09 AM »
I hear what you're saying. AHMI is the most innovative useful thing I've seen in a while. I'm guessing when the scan time becomes an issue for protecting the machine from damage. I may be mistaken, but I don't think the processing speed of the PC compares to a PLC.

13
Open Discussion / Re: Store IP Addresses in a .txt file
« on: July 21, 2017, 08:27:45 AM »
That works if I make Driver2 a string "Driver2" and it works perfectly in Debug mode.
When i Publish the project I keep getting an error:
"INI File-Unable to locate PLCConfig.ini"
Should I be defining a path like Application.StartupPath for PLCConfig.ini somewhere?

14
Open Discussion / Re: Store IP Addresses in a .txt file
« on: July 20, 2017, 01:27:04 PM »
That is closer to what I want to do. I'd like to use only one driver and just change the IP address based on a selection made from the form.

So how do I accomplish what I'm essentially doing below (that doesn't work)

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ModbusTCPCom1.IniFileSection = Driver2

    End Sub

15
Open Discussion / Store IP Addresses in a .txt file
« on: July 20, 2017, 11:56:01 AM »

First of all, let me thank you for this awesome software package. I am a newbie, so there is probably an easy answer to this, I just don't know it. If I've done something wrong in posting this question, just let me know and I'll know not to do it again. - Thanks



With this code I can change my IP address to whatever I want, and it works fine.[size=78%] [/size]


 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ModbusTCPCom1.IPAddress = TextBox2.Text

    End Sub
----------------------------------------------------------------------
But if I read the IP address in from a .txt file, it does not work.







Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim search As String
        Dim fileReader As String


        search = TextBox1.Text
        If TextBox1.Text = "" Then


        Else
            fileName = search
        End If
        Try
            fileReader = My.Computer.FileSystem.ReadAllText("C:\folder\" & fileName & ".txt")


            TextBox2.Text = fileReader


            [/size]ModbusTCPCom1.IPAddress = TextBox2.Text
        Catch
            MsgBox("Entry Not Valid")
        End Try
    End Sub


-------------------------------------------------------------------------------------------------
If I use
 PilotLight1.Text = ModbusTCPCom1.IPAddress
it flashes the correct IP address, but also flashes "Com Error -999. No Values Returned from Driver"


Any idea what I'm doing wrong?

Pages: [1]