where is the official example?

[wanricky]

I am looking forward to the official logic examples in the forum. But it has been a month since the start up of the post column and there is still nothing. I wish they are coming soon

[Mr Mark]

Combination of info straight from the book for this one, works well on a black background.
Good for the clients with holiday homes they use a few days every month or so...

{ variables }

positionx : integer;
positiony : integer;

txtsize : integer;
txtcolour : integer;
txtfont : integer;


{ module }

txtsize := (random(30)+20);
txtcolour := random($FFFFFF);
txtfont := random(3);

positionx := random(450);
positiony := random(350);

textpos(positionx, positiony);
SetFontColor(txtcolour);
SetFontSize(txtsize);
SetFontStyle(txtfont);
DrawText('Your');

textpos(positionx +10, positiony + txtsize + 1);
SetFontColor(txtcolour);
SetFontSize(txtsize);
SetFontStyle(txtfont);
DrawText('text');

textpos(positionx +25, positiony + (txtsize*2) + 4 );
SetFontColor(txtcolour);
SetFontSize(txtsize);
SetFontStyle(txtfont);
DrawText('here...');

Delay(3);
ClearScreen;

Mark

[coppo]

You already have the official examples on your computer as they are installed
when PICED is installed.

The only difference will be that the original examples will be re-packaged
with more info on what they do.... and how they go about doing it.

This is aimed at better educating installers as to how to combine Standard touchscreen
components with logic code.

The latest version of PICED 3.8.0 now has a very prominent "open examples"
button to make it easier to find them.