6. Для кнопки «Остановить круги» по щелчку запишите:
timer2.Enabled:=false; //выключение таймера
7. И для кнопки «Восстановить круги» введите первоначальные значения свойств Left, Top (числа будут не обязательно 360 и 280)
Shape1.Left:=360; Shape1.Top:=280;
В этой же процедуре вставить аналогичные коды для Shape2, …, Shape8.
8. Вставьте кнопку выхода из программы.
9. Измените интерфейс программы (цвет формы, шрифт).
Задание №2
Создание проекта «Цветочная поляна»
1. Постановка задачи
По щелчку указателем мыши в любом месте зеленой поляны появляется маленький цветок. Цветок вырастает. Пользователь нажимает левой кнопкой мыши в другом месте, и там тоже появляется цветок.
Пояснения: новым в этой программе является событие для формы OnMouseUp.
2. План разработки программы
1. Создайте новую папку под названием «Цветочная поляна_ФИО» (где ФИО ваши инициалы) в папке Мои документы.
2. В папке «Цветочная поляна» создайте не менее 4-х графических файлов, содержащих изображения цветов. Для этого запустите стандартную программу Paint и нарисуйте цветок, затем закрасьте места не занятые цветком зеленым цветом. Аналогично создайте еще несколько bmp-файлов.
3. Открыть новый проект. Дать форме название «Цветочная поляна».
4. Разместите в форме компоненты в соответствии с рисунком 26.13.
Рисунок 26.13
5. Сохранить проект под именем, например, Pr8.pas и Project8.dpr в папке «Цветочная поляна_ФИО», где ФИО – ваши инициалы.
6. Запустить программу, затем закрыть окно проекта кнопкой Выход.
7. Выполните следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действия |
BitBtn1 |
Параметры (Properties) |
Kind |
bkClose |
Caption |
&Выход |
||
Image1 Image2 Image3 Image4 |
Параметры (Properties) |
Picture |
Загрузите созданную файл-картинку |
Stretch (растяжение) |
True |
||
Visible |
False Пояснение: Это значение задается для того, чтобы первоначально цветы были невидимы. |
||
Height |
10 |
||
Width |
10 |
8. Поместите на форме компонент Timer. Он будет определять процесс роста цветка.
Выполните следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действия |
Timer1 |
Параметры (Properties) |
Enabled |
False |
9. Цветок будет появляться на форме по щелчку указателем мыши. Цветок появляется в том месте, в котором был произведен щелчок указателем мыши. Эта точка имеет координаты X, Y. Начало отсчета ведется от левого верхнего угла формы.
Выполните следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действия |
Form1 |
Events |
OnMouseUp |
Timer1.Enabled:=True;//включение таймера Timer1.Interval:=50;//интервал таймера=50 миллисекунд If s=1 then begin image1.Visible:=true; //цветок становится видимым image1.Left:=X;//цветок появляется image1.Top:=Y; //в нужном месте end else If s=2 then begin image2.Visible:=true; image2.Left:=X; image2.Top:=Y; end else If s=3 then begin image3.Visible:=true; image3.Left:=X; image3.Top:=Y; end else If s=4 then begin image4.Visible:=true; image4.Left:=X; image4.Top:=Y; end; s:=s+1; end;
Предварительно описать в разделе Var целочисленную переменную s. |
10. В процедуре для таймера надо записать условие проверки: достиг ли цветок нужного размера или нет. Также в этой процедуре должны быть операторы увеличивающие ширину и высоту рисунка (Width=150).
Выполните следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действия |
Timer1 |
Events |
OnTimer |
//1 цветок If Image1.Width<150 then begin Image1.Width:=Image1.Width+2; // увеличение ширины Image1.Height:=Image1.Height+2; //увеличение высоты Image1.Left:=Image1.Left-1;//чтобы рисунок не перемещался вправо Image1.Top:=Image1.Top-2;//чтобы рисунок не перемещался вниз end else //2 цветок If Image2.Width<150 then begin Image2.Width:=Image2.Width+2; Image2.Height:=Image2.Height+2; Image2.Left:=Image2.Left-1; Image2.Top:=Image2.Top-2; end else //3 цветок if Image3.Width<150 then begin Image3.Width:=Image3.Width+2; Image3.Height:=Image3.Height+2; Image3.Left:=Image3.Left-1; Image3.Top:=Image3.Top-2; end else //4 цветок if Image4.Width<150 then begin Image4.Width:=Image4.Width+2; Image4.Height:=Image4.Height+2; Image4.Left:=Image4.Left-1; Image4.Top:=Image4.Top-2; end else Timer1.Enabled:=False; end; |
11. Для формы выберите зеленый цвет, совпадающий с фоном рисунков.
Литература:
1. С. И. Бобровский. Учебный курс Delphi7. Питер, 2006г.
2. Г.Г. Рапаков, С.Ю. Ржеуцкая. Программирование на языке Паскаль. Санкт-Петербург, 2005 г.
3. Н.Культин. Учебный курс Delphi. Санкт-Петербург, 2005 г.
4. Н.Культин. Delphi в задачах и примерах. Санкт-Петербург, 2005 г.
5. Е.Р. Алексеев, О.В. Чесноков. Шаг за шагом. Москва, 2005 г.
Контроль
Вопросы:
1. Что такое тестирование?
2. Что такое отладка?
3. Что такое синтаксические ошибки, ошибки времени выполнения, алгоритмические ошибки?
4. Как предотвращают и обрабатывают ошибки?
5. Что такое исключение?
6. Что такое отладчик?
7. Что такое трассировка?
8. В чем суть метода точек останова?
9. Как добавляют и удаляют точку останова?
10. Как изменяют характеристики точки останова?
11. Для чего предназначен компонент Shape?
12. Для чего предназначен компонент Image?
Тема №29. Работа с файлами
Цель: Изучить способы работы с файлами в системе Delphi, общую технологию работы с файлами в Delphi, стандартные диалоговые окна Windows.
Задачи обучения: Формирование умений и навыков работы с файлами в системе Delphi, стандартными диалоговыми окнами Windows.
Основные вопросы темы:
Способы работы с файлами в системе Delphi.
Общая технология работы с файлами в Delphi.
Стандартные диалоговые окна Windows.
Панель Dialogs.
Методы обучения и преподавания: выполнение типовых заданий
Задание
Разработка проекта Изменение цвета и размера фигуры