PAC displaying text on a Colour Touch page

Gents,

I can read one of 8 temperatures by polling a E5031TS sensor. This works and is used to control a series of under floor heating manifolds.

But, I want to display the returned value on a say page 4 on the touchscreen. The monitor function is not good for me as I add a calibration function to each sensor. The monitor cant display the calibrated value. Client wants precise values.
My problem is how to write/display text to a particular Touch Screen page, say page 4.

The code below works for me but it writes the text to every page. I want it for say page 4.

{ Read E5031TS temperature sensor value every x seconds }
{ Copyright Masar UK Limited }

if GetUnitParamStatus(254, 90, ptTemperature) then
begin
DisplayTemp := GetUnitParameter(254, 90, ptTemperature)-0.5;
{ With calibration}

{ Display the E5031TS temperature value on Touch Screen, red text when reading sensor }

ClearScreen;
SetFontName('ArialBold');
SetFontSize(12);
SetFontColor(clRed);
TextPos(195, 115);
DrawText(DisplayTemp:5:2, '?C');
Delay(1);

ClearScreen;
SetFontName('ArialBold');
SetFontSize(12);
SetFontColor(clBlack);
TextPos(195, 115);
DrawText(DisplayTemp:5:2, '?C');
{ Change read timer here in seconds }
Delay(10);
end;


Any help, thanks.

 

Can you write the value of the temp sens into a systemIO, and then just display it with a level compenent?

Actually do you even need logic for this? Can you not just read the temp straight from the sensor itself? I am sure I have done that in the past, with graphs n stuff..

 

Or just stick a text component on the screen and change the text content using SetCompStringProp.

 

Text

Ashley, thanks for your reply, can you expand on your solution,

Regards

 

Add a text component where you want it. Give it some placeholder text and give it a name (say Text_DisplayTemp) on the general tab. Set font, colour etc.

In logic just use:

Code:

temp_str: string; // Init section

Format(temp_str, DisplayTemp:5:2, '?C');
SetCompStringProp("page name", "Text_DisplayTemp", "Text Active", temp_str);

You can also change the other attributes like font, colour etc dynamically in the same way if you need to.

 

Working

That's great got it working this morning,

Many thanks, a great solution for me here.

 

Hi Ashley, just one last small issue,

I want to simulate the sensor reading or updating its value.

Essentially changing the displayed font colour to red for 1 second as it reads the value and then back to its original colour,

I did this with SetFontColor(clRed); before but cant format a solution based on your previous response.

Regards

 

Code:

temp_str: string; // Init section

Format(temp_str, DisplayTemp:5:2, '?C');
setCompIntegerProp("page name", "Text_DisplayTemp",  "Font Colour Active", clRed);
SetCompStringProp("page name", "Text_DisplayTemp", "Text Active", temp_str);
delay("00:00:01");
setCompIntegerProp("page name", "Text_DisplayTemp",  "Font Colour Active", clBlack);

If you look under Logic Help/Component Properties it will give you a list of everything you can change.
Note that Component names and component properties are case sensitive. Given that Pascal is a case insensitive language this is really a bug that hopefully which be addressed at some time.

 

Ashley,

Many thanks, the code works great, it looks like I had version 3.1 copy of the Logic Engine Programmers Guide, now have a newer version. V 3.1 does not list the SetCompStringProp or similar, I think that's where is was getting lost.

Now have V4.11 if that's the latest version with all above listed.

Regards