AdvancedHMI Software

General Category => Support Questions => Topic started by: billfloyd806 on April 10, 2013, 12:15:25 PM

Title: Dec to BCD
Post by: billfloyd806 on April 10, 2013, 12:15:25 PM

This is my first time using this software. I have a value in the plc that is in BCD, but AdvancedHMI is showing the value as decimal.

For example the plc is showing the temperature as 1303 but the meter on my screen is showing 4866. How do I convert it so Advanced HMI displays the input to the meter as BCD?

Title: Re: Dec to BCD
Post by: billfloyd806 on April 10, 2013, 01:50:18 PM

Figured out my issue. I had to convert it to a BIN value. Working perfect, nice software!

Title: Re: Dec to BCD
Post by: Archie on April 10, 2013, 05:11:56 PM

There is a way to display a value that is stored in BCD format, but it is a little involved. This requires modifying the control to intercept the value from the PLC and convert it.

1) In the Solution Explorer, under the Controls folder, right click DigitalPanelMeter.vb and select View Code.
2) Go to about line 322 and look for this code:
    Private Sub PolledDataReturnedValue(ByVal Values() As String)
        Try
            MyBase.Value = Values(0)
        Catch
            DisplayError("INVALID VALUE RETURNED!" & Values(0))
        End Try
    End Sub

3) Modify the code like this:

    Private Sub PolledDataReturnedValue(ByVal Values() As String)
        Try
            '* Extract the individual bytes from the word
            Dim b() As Byte = System.BitConverter.GetBytes(CInt(Values(0)))
            '* Break out the nibbles and convert to BCD
            Dim BCD As Integer = (b(0) And 15) + ((b(0) >> 4) * 10)
            BCD += ((b(1) And 15) * 100) + ((b(1) >> 4) * 1000)

            MyBase.Value = BCD
        Catch
            DisplayError("INVALID VALUE RETURNED!" & Values(0))
        End Try
    End Sub