Basic Labels

[StefanA]

In the Basic Label user manual the is a piece about event and manipulation. One
example is how to change the colour of the labels based on value.

I have a bunch of Basic Labels which I would like to change the background colour on according
to a counter register. When the counter is  ≥  1 Basic Label one turn green when the counter
shows 2 Label two change colour and so on.

I tried to use the example in the manual but I think the code must be changed for this use and
I need help with that.

//Stefan

[Archie]

Are you using a BasicLabel to display the counter value also?

[StefanA]

I had not planned to do that but if its makes things easier that's no problem.

[Archie]

It only means the difference of using a DataSubscriber versus a BasicLabel. Try this:

1) Add a DataSubscriber to your form
2) Set the PLCAddressValue to the address with the counter
3) Double click the DataSubscriber to get back to the code and add this code:

Code: [Select]

If DataSubscriber1.Value>=1 then
   BasicLabel1.BackColor=Colors.Green
else
  BasicLabel1.BackColor=Colors.Black
end if

If DataSubscriber1.Value>=2 then
  BasicLabel2.BackColor=Colors.Green
else
  BasicLabel2.BackColor=Colors.Black
end if


[StefanA]

Where can I find the DataSubscriber component? Can't get my eyes on it in the toolbox.

[Archie]

Are you using version 3.59 or later?

[StefanA]

3.40

[Archie]

That version doesn't have the DataSubscriber, so you will have to add a BasicLabel to the form that reads the counter value. You can then add the TextChanged event handler to that BasicLabel. If you don't want it to display, you can set the Foreground color to same thing as the form background color to make it invisible.

In the TextChanged event handler, use the code from above

[StefanA]

I decided it was time to upgrade to the latest version and the Data Subscriber solution seems to work fine, thanks.

You have made a demo screen called Chemical Mixer Adder. Above the tanks the are two low level indicator lights. Which component is that? They look like the Pilotlight but the Pilotlight I found in the toolbox are clickable and I only want a indicator light in the same style.

[Archie]

They were PilotLights. As long as you leave PLCAddressClick blank and only use PLCAddressValue, clicking them will do nothing.

[StefanA]

Ok, thought it was a different component. I attach a screenshot with a message that have been popping up. Can it have something to do with the DataSubscriber I added?

[StefanA]

Why do I get these error messages, have I done something wrong when adding a DataSubscriber?

When you click on a pilot light which is lit, the light goes out for a short while even if no click address are specified. Is is possible to get rid of that?

[baguinn]

The DataSubScriber is reading the address as a string.  You must convert the DataSubScriber.Value from a string to a value before being able to use it as a number

dim DataValue as integer

DataValue=Val(DataSubScriber.Value)

then just put DataValue in place of the DataSubScriber.Value in the code.

[StefanA]

Ok, so the code should look like this?



Private Sub DataSubscriber1_DataChanged(ByVal sender As System.Object, ByVal e As MfgControl.AdvancedHMI.Drivers.Common.PlcComEventArgs) Handles DataSubscriber1.DataChanged

        Dim DataValue As Integer
        DataValue = Val(DataSubscriber1.Value)


        If DataValue >= 1 Then
            BasicLabel1.BackColor = Color.Green
        Else
            BasicLabel1.BackColor = Color.Silver
        End If

        If DataValue >= 2 Then
            BasicLabel4.BackColor = Color.Green
        Else
            BasicLabel4.BackColor = Color.Silver
        End If
       
        End Sub