Лабораторная работа 2 Указания к работе Самолет в небе Часть 1
Работа добавлена на сайт samzan.net:
Лабораторная работа 2
Указания к работе
«Самолет в небе»
Часть 1.
Самолет движется по небу в пределах окна программы.
- Установите свойства Form1
- Caption – Самолет в небе
- Width – 234
- Height - 178
- Разместите на форме два компонента Image1, Image2
- Установите свойства этих компонент
|
|
Image1 |
Image2 |
|
Align |
alClient |
alNone |
|
Picture(Tbitmap) |
sky |
aplane |
|
Transparent |
false |
true |
|
Width |
|
49 |
|
Heiht |
|
49 |
|
Stretch |
true |
true |
|
Top |
|
50 |
|
Left |
|
10 |
- Разместите на форме компонент Timer1
- Установите свойства компонента
- Enabled – true
- Interval – 10
- Опишите событие OnTimer для компонента Timer1
{задается изменение левой границы в пределах размеров
окна формы}
if Image2.left<(form1.width-image2.Width) then
Image2.left:=image2.left+1 else Image2.left:=10;
- Сохраните проект.
- Запустите приложение.
Часть 2.
Движение самолета будет начинаться после нажатия кнопки Старт.
1. Измените свойство Timer1 Enabled на false.
2. Добавьте компонент Button1, установите свойство Caption Старт
3. Добавьте процедуру обработки события OnClick для Button1
Timer1.Enabled:=true;{активизация таймера}
4.Запустите приложение.
Часть3.
Задание скорости движения.
- Добавьте компонент Edit1
- Установите свойство Text пустое значение
- Измените процедуру обработки события OnClick для кнопки Старт таким образом
Timer1.Enabled:=true;
{Вводимое в поле Edit1 значение скорости преобразуется в число
и присваивается интервалу таймера}
if Edit1.Text='' then Timer1.Interval:=0
else Timer1.Interval:=StrToInt(Edit1.text);
Часть 4. Самостоятельно
- Добавьте кнопку завершения программы.
- Добавьте кнопку остановки движения самолета.
Часть 5.
- Измените программу созданную в предыдущем задании так, чтобы двигалось два самолета с разной скоростью
- Организовать ввод скорости для каждого самолета.
2. Зарегистрироваться в системе LINUX
3. Но у тебя есть друзья
4. тема научно обоснованных представлений об управлении производственной и сбытовой деятельностью в условиях
5. Йорке в 1964 году проходила Всемирная выставка известный писательфантаст и профессор биохимии Бостонского у
6. ДГМУ Минздравсоразвития России Кафедра ортопедической стоматологии Технология изготовле
7. Ритуал 2 Введение 3
8. Вариант 1 А1 А2 А3 А4 А5 А6
9. Абсолютная монархия в Англии
10. ВАРИАНТ 1620 16 Что такое банковская статистика отрасль социальноэкономической статистики зад
11. улучшить снабжение населения продуктами питания
12. і. Бюджетсалы~ саясаты ~аржы ж~йесіні~ м~ні
13. варианта ответа из которых только один правильный2
14. В условиях социализма сохранилось старое разделение труда на умственный и физический труд не уни.html
15. Психосоциальная терапия в практике социальной работы
16. 14 века самая яркая страница в этом периоде
17. заменяем своими данными в таком же порядке.1
18. Технологія вирощування рису1
19. Формування корпоративної культури Організаційна культура сукупність норм цінностей традицій погляд
20. Карантин дегеніміз не 2