Projekt Semafór

Príklad
 

Navrhnime program, ktorý bude zobrazovať fungovanie semafóru.  Ako najjednoduchšie zobraziť kružnice? V minulých aktivitách sme videli vykresľovanie kružníc do Image. Ak však chceme jednoduché tvary ako napr. štvorec, kružnicu..., môžeme použiť aj komponent Shape z palety Additional

Začnime novú aplikáciu, položme do nej jeden Shape, v Objektovom inšpektore mu zmeňme property Shape na Circle. Podobne dajte do formuláru ďalšie dva komponenty Shape -- komponenty sa dajú aj kopírovať!

Ďalej vložte do formuláru Timer a navrhnite udalosť OnTimer.

Pri vytváraní formuláru všetky 3 kruhy vyfarbite na čierno. Potom nech sa zobrazuje fungovanie semafóru -- prepínanie farieb -- zo zelenej cez oranžovú na červenú a naopak. Nezabudnite ďalšie farby prefarbovať na čierno.

Na vyfarbenie kruhov použite jeho property Brush.Color, ktorú môžete nastaviť v Objektovom inšpektore, ale aj priamo v programe: Shape1.Brush.Color:=clRed;

Oranžovú farbu dostaneme napr. zmiešaním RGB(242,200,0)

Ďalej navrhnite tlačidlo pre chodcov -- SpeedButton z palety Additional, pozrite si jeho property Down a GroupIndex. Keď ho niekto zatlačí, dobehne cyklus semafóru na červenú a potom program počká, napr. jednu sekundu a semafór sa znovu rozbehne.

Na túto udalosť navrhnite druhý Timer, ktorý bude spolupracovať s tým, ktorý je určený pre semafór. Využite property Enabled oboch semafórov.