Quantcast

How to create a Screen Saver on a Black & White or Spectrum touchscreen with logic

FAQ000230484

28 April 2022

 { This module implements a "Screen Saver".

  The project time-out page is set to be the first "photo" page.

  Once the first photo page has been selected, the others will be displayed in sequence }

 

if ShowingPage("Page 1") then  

begin

 

  while true do { loop indefinitely }

  begin

    Delay("0:00:30");

      if ShowingPage("Page 1") then

      ShowPage("Page2")

    else if ShowingPage("Page 2") then

      ShowPage("Page3")

    else if ShowingPage("Page 3") then

      ShowPage("Page4")

    else if ShowingPage("Page 4") then

      ShowPage("Page5")

    else if ShowingPage("Page 5") then

      ShowPage("Page 6")

    else if ShowingPage("Page 6") then

      ShowPage("Page 7")

    else if ShowingPage("Page 7") then

     ShowPage("Page 1")

    else

    ExitModule;  { someone has pressed the screen }

  end;

end;