Головна

Створення консольного застосування | Практична робота № 4 | Зміна заголовка форми | Завдання для самостійного виконання | Практична робота № 6 | Практична робота № 7 | Мета роботи - | Випадковий вибір зі списку | найпростіший плеєр | Практична робота № 12 |

© um.co.ua - учбові матеріали та реферати

Практична робота № 14

  1. II. Практична частина.
  2. TEМA 8. Законність і правова робота в народному господарстві
  3. V. КЕРІВНИЦТВО дипломної роботи
  4. А з підсвідомістю працюємо інакше.
  5. Аналітична робота в інтересах захисту бізнесу.
  6. Атракціони і реквізит здається в оренду або використовується в програмі, яку ми розробимо спеціально для ВАС! Від веселою спартакіади до першокласного тімбілдінга!
  7. Б) самостійна аудиторна робота

«Світлофор»

Мета роботи- Створити програму, що виконує наступні дії:

1. Після запуску програми в вікні зображується світлофор з трьома лампочками, здатними реагувати на наведення покажчика миші.

2. Коли покажчик миші наведений на лампочку, вона змінює свій колір.

 
 
 малюнок 26


3. Для виходу з програми необхідно зафіксувати покажчик миші на закриває кнопці в рядку заголовка.

Опис плану розробки програми

1. Відкрити новий проект.

2. розмістити на формі екземпляри компонентів: фігура Shape.

3. виконати наступні дії:

Таблиця 14. Властивості проекту 14

 виділений об'єкт  Вкладка окнаObject Inspector  Ім'я властивості / ім'я події  Дія
 Form1  Properties  Caption  Установка імені форми «Світлофор»
 Height  Присвоїти значення 300
 Width  Присвоїти значення 120
 BorderIcons (Службові кнопки)  Вибрати для подсвойства biMinimize (Згортання) і biMaximize (Розгортання) значення False
 Color  Задати стандартний сірий колір
 BorderStyle (Стиль рамки)  Вибрати значення bsSingle
 Events  OnMouseMove  У процедуру передаються додаткові параметри: Shift - вказує, чи не була при переміщенні натиснута клавіша SHIFT, CTRL або ALT; X - горизонтальна координата покажчика миші; Y - вертикальна координата покажчика.
 Продовження таблиці 14.  
 виділений об'єкт  Вкладка окнаObject Inspector  Ім'я властивості / ім'я події  Дія  
 Shape1 (Вкладка Additional)  Properties  Height  Присвоїти значення 61  
 Width  Присвоїти значення 61  
 Shape (Форма)  Вибрати значення stCircle (Коло)  
 Pen (Контур)  Вибрати для подсвойства Color (Колір) значення clRed (червоний колір)  
 Brush (Кисть)  Вибрати для подсвойства Style (стиль) значення bsClear (прозорий)  
 Enabled (Включено)  Вибрати значення False (Ні)  
 Shape2 (Вкладка Additional)  Properties  Height  Присвоїти значення 61  
 Width  Присвоїти значення 61  
 Shape  Вибрати значення stCircle (Коло)  
 Pen  Вибрати для подсвойства Color (Колір) значення clYellow (жовтий колір)  
 Brush  Вибрати для подсвойства Style значення bsClear  
 Enabled (Включено)  Вибрати значення False (Ні)  
 Shape3 (Вкладка Additional)  Properties  Height  Присвоїти значення 61  
 Width  Присвоїти значення 61  
 Shape  Вибрати значення stCircle (Коло)  
 Pen  Вибрати для подсвойства Color (Колір) значення clLime (яскраво-зелений колір)  
 Brush  Вибрати для подсвойства Style значення bsClear  
     Enabled (Включено)  Вибрати значення False (Ні)  

4. Написати функцію OnShape, яка викликається з процедури FormMouseMove.

5. Робота функції визначає наступні події:

Якщо курсор не наведений на лампочку, то її колір буде прозорим.

Якщо покажчик миші наведений на лампочку, то її колір буде відповідати кольорам світлофора.

r: = sh.Width div 2; {R - радіус фігури}

cx: = sh.Left + r; {Cx, cy - координати центру фігури}

cy: = sh.Top + r;

d2: = (X - cx) * (X - cx) + (Y - cy) * (Y - cy); {D2 - квадрат відстані від центру}

OnShape: = bsClear; {Курсор не наведений на лампочку, т. Е. Перебувати за межами фігури}

if d2> r * r then ObShape: = bsSolid; {Покажчик миші наведений на лампочку, т. Е. Перебувати всередині фігури}

6. Вирівнювання елементів:

1) Виділити все три фігури.

2) Вибрати команду Edit > Align (Правка > вирівняні).

3) Відкриється діалогове вікно Alignment (Вирівнювання).

4) Встановити зліва перемикач Center in Window (Центрировать у вікні).

5) Встановити справа перемикач Space Equally (С рівними проміжками).

6) Клацнути на кнопці OK.

7. Збережіть проект, запустіть і протестуйте його.

 



Застосування смуг прокрутки | Практична робота № 15