Лабораторная работа 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. Моя любимая чара1
3. х годов XIX в объективно открывших России путь капиталистического развития одно из центральных мест занима
4. Лекція 7 М~ЯЗИ КІНЦІВОК 1
5. яке поводження чи індивіда групи що має значення для інших індивідів і груп соціальної чи спільності суспіл
6. Почвы и хозяйства
7. Исследование электромагнитного поля в линии связи- «Коаксиальная линия»
8. тематике для группы 11Г12н 1.
9. банковская статистика СТАТИСТИКА ПРЕДПРИЯТИЙ Статистика продукции Статистика состава и чи
10. Методология эфиродинамики и свойства эфира; Ч
11. темах. Виды деятельности’взаимодействия’взаимоотношения’внеорганазационные’ ’внутри
12. Характеристика ассортимента товаров и факторы, влияющие на его формирование
13. на тему- Бизнес план фитнес клуба
14. . Зависимость тока стока I от одного из напряжений U при фиксированной величине второго ~ это- А вольтамперн
15. Эволюция образа прекрасной дамы в лирике А Блока
16. Тема- Индивидуальнопсихологические свойства музыканта способности эмоции
17. Техническая информация клиническое исследование условий возникновения травм в мышцах-сухожилиях и связ
18. на тему- Методы расчета линейных электрических цепей
19. Философия Эдмунда Гуссерля (1859-1938) и феноменологическая философи
20. .Сознание и бессознательное.