Приложение Задание1. Заставка. Порядок выполнения

1.Открыть новое приложение с помощью команды File|New Application. Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.

2.Запустить графический редактор командой Tools|Image Editor.

3.В графическом редакторе выполнить команду File|New|Bitmap File(.bmp).

4.В появившемся диалоговом окне Bitmap Properties установить

Width=300

Height=200

Colors=SuperVGA(256 colors)

4.Создать произвольное изображение, например

Пример создания заставки

Разработчик Иванов И.И.

май 2001

Для того, чтобы выбрать цвет символов, следует подвести курсор мыши к окну с требуемым цветом в палитре цветов и нажать левую клавишу. При нажатой правой клавише мыши выбранный цвет будет использоваться в качестве цвета фона.

После выбора цвета для символов и фона следует выполнить команды Edit|Select All и Edit|Cut для очистки рисунка. После этого вставить приведенный выше текст.

5.Выполнить команду File|Save и сохранить изображение в файле с именем zast.bmp.

6.Поместить на форму компонент TImage(страница Additional).

7.Выбрать свойство Picture и войти в редактор свойств(кнопка с тремя точками).

8.В появившемся окне Picture Editor нажать кнопку Load и выбрать файл zast.bmp.

9.Установить свойство AutoSize компонента TImage в True.

10. Поместить на форму компонент TTimer(страница System) и установит свойство Interval равным 5000. Форма будет выглядеть следующим образом

11.Активизировать компонент Timer1 двойным щелчком и создать следующий обработчик события OnTimer.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Free;

Timer1.Free;

end;

12.Сохранить проект.

13.Запустить проект на выполнение.

14.Изменить обработчик события OnTimer так, чтобы заставка периодически появлялась и исчезала

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Image1.Visible=True then

begin

Timer1.Interval:=8000; Image1.Hide;

end

else

begin

Timer1.Interval:=2000; Image1.Show;

end;

end;

15. Запустить проект на выполнение.

Задание 2. Анимация иллюстрация вращения луны вокруг Земли. Порядок выполнения

1.Открыть новое приложение с помощью команды File|New Application. Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.

2.Поместиь на форму компонент TTimer.

3.Установить его свойство Interval равным 55. Через каждые 55 миллисекунд будет генерироваться событие OnTimer, которое будет использоваться для перемещения по форме компонента Shape2.

4.Поместить на форму компонент TShape(страница Additional) с именем Shapre1 (этот компонент будет изображать Землю).

5.Установить следующие значения для его свойств:

Shape - stCircle

Height - 121

Width - 121

Left - 240

Top - 104

6.Выбрать свойство Brush и дважды щелкнуть по нему мышью. В Инспекторе Объектов дополнительно появились два свойства: Color и Style. Установить свойство Color равным clBlue.

7.Выбрать свойство Pen и дважды щелкнуть по нему мышью. В Инспекторе Объектов появились дополнительные свойства. Установить свойство Color равным clBlue.

8. Поместить на форму компонент TShape с именем Shape2(этот компонент будет изображать Луну).

9.Установить следующие значения для его свойств:

Shape - stCircle

Height - 41

Width - 41

Left - 400

Top - 152

10.Выбрать свойство Brush и дважды щелкнуть по нему мышью. Установить свойство Color равным clYellow.

11.Выбрать свойство Pen и дважды щелкнуть по нему мышью. Установить свойство Color равным clYellow.

12.В верхней части формы разместить компонент TLabel. Его свойство Caption установить равным ‘Вращение Луны вокруг Земли’.

13.Установить свойства

Aligh - alTop

Alignment - taTop

AutoSize - True

Transparent - True

14.Войти в свойство Font и установить :

Шрифт - Courier New

Начертание - полужирный

Размер - 16

Набор символов –кириллица

Ф орма будет иметь следующий вид

15.Создать обработчик события OnTimer

procedure TForm1.Timer1Timer(Sender: TObject);

begin

x:=x+0.1;

Shape2.Left:=265+trunc(150*cos(x));

Shape2.Top:=150-trunc(150*sin(x));

end;

Переменную x объявите в области глобальной по отношению к процедуре TForm1.Timer1Timer. Инициализируйте x нулем.

16.Выполните приложение.

17.Измените скорость вращения Луны вокруг Земли, уменьшив(увеличив) ее.

18.Измените свойство Transparent компонента Label1 в False и посмотрите, что изменилось.