Форма проведения: выполнение типовых заданий. Организационная часть - 5 мин
Перекличка студентов и выяснение причин отсутствия студентов, кто не готов к занятию, проверка конспектов.
Самостоятельная работа студентов - 35 мин
Освоение практических навыков: Решение типовых и ситуационных задач
Задание №1
Создание проекта "Движение объекта по полю окна"
1.Создать программу, с помощью которой можно выполнить:
После запуска программы появляется изображение аналогичное рисунку 1. Пользователь нажимает на кнопке Пуск и картинка начинает двигаться слева направо. При нажатии на кнопке Стоп картинка останавливается.
2. Новым в этой работе будет использование:
Компонента TTimer, расположенного на странице палитры компонентов Система (System);
Компонента TShape, расположенного на странице палитры компонентов Дополнительно (Additional).
2. План разработки программы
1. Открыть новый проект. Дать форме название Движение объекта по полю окна.
2. Разместить в форме компоненты в соответствии с рисунком 26.12.
Рисунок 26.12
3. Сохранить проект в отдельной папке под именем, например, Pr7.pas и Project7.dpr
4. Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
BitBtn1 |
Параметры (Properties) |
Name |
Pusk |
Caption |
Пуск |
||
События (Events) |
OnClick |
timer1.Enabled:=true; //таймер включен timer1.Interval:=10; // интервал для него 10 миллисекунд |
|
BitBtn2 |
Параметры (Properties) |
Name |
Stop |
Caption |
Стоп |
||
События (Events) |
OnClick |
Timer1.Enabled:=false; // отключается таймер |
|
Timer1 |
Параметры (Properties) |
Enabled (выключить таймер) |
False |
События (Events) |
OnTimer |
If Image1.Left>=Form1.Width-Image1.Width Then Image1.Left:=16 Else Image1.Left:=Image1.Left+1; |
|
Image1 |
Параметры (Properties) |
Picture |
Загрузите любую картинку |
Stretch |
True |
||
Left |
16 |
5. Сохранить проект, запустить и протестировать его.
3. Дополнительное задание
1. Поместите в центр формы 8 фигур ТShape. Пусть это будут круги (свойство Shape) разного цвета, но одинакового размера, и все расположены один на другом. Свойства Left, Top, Width, Height для всех кругов должны быть одинаковыми.
Задача состоит в том, чтобы круги одновременно начали движение в разные стороны: 4 круга – к границам окна, другие 4 круга – к углам окна.
2. Добавьте еще один таймер. Выключите его.
3. Добавьте три кнопки: «Двигать круги», «Остановить круги» и «Восстановить круги». Дайте им имена Dvig, Ostan, Vosstan (свойство Name).
4. Для кнопки «Двигать круги» по щелчку запишите:
timer2.Enabled:=true;
timer2.Interval:=10;
5. Для события OnTimer (включение таймера) второго таймера запишите:
Shape1.Left:=Shape1.Left+1; //вправо
Shape2.Top:=Shape2.Top+1; //вниз
Shape3.Left:=Shape3.Left-1; //влево
Shape4.Top:=Shape4.Top-1; //вверх
//движение к углам
Shape5.Left:=Shape5.Left+1; Shape5.Top:=Shape5.Top+1;
Shape6.Left:=Shape6.Left-1; Shape6.Top:=Shape6.Top+1;
Shape7.Left:=Shape7.Left-1; Shape7.Top:=Shape7.Top-1;
Shape8.Left:=Shape8.Left+1; Shape8.Top:=Shape8.Top-1;