У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная работа 2 Указания к работе Самолет в небе Часть 1

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 26.12.2024

Лабораторная работа 2

Указания к работе

«Самолет в небе»

Часть 1.

Самолет движется по небу  в пределах окна программы.

  1.  Установите свойства Form1
  •  Caption – Самолет в небе
  •  Width – 234 
  •  Height -  178 

 

  1.  Разместите на форме два компонента Image1, Image2
  2.  Установите свойства этих компонент

 

Image1

Image2

Align

alClient

alNone

Picture(Tbitmap)

sky

aplane

Transparent

false

true

Width

  

49

Heiht

  

49

Stretch

true

true

Top

  

50

Left

  

10

  1.  Разместите на форме компонент Timer1
  2.  Установите свойства компонента
    •  Enabled – true
    •  Interval – 10
  3.  Опишите событие OnTimer для компонента Timer1

{задается изменение левой границы в пределах размеров

окна формы}

if Image2.left<(form1.width-image2.Width) then

       Image2.left:=image2.left+1 else Image2.left:=10;

  1.  Сохраните проект.
  2.  Запустите приложение.

Часть 2.

Движение самолета будет начинаться после нажатия кнопки Старт.

1.      Измените свойство Timer1 Enabled на false.

2.      Добавьте компонент Button1, установите свойство Caption Старт

3.      Добавьте процедуру обработки события  OnClick для Button1

Timer1.Enabled:=true;{активизация таймера}

4.Запустите приложение.

 

Часть3.

Задание скорости движения.

  1.  Добавьте компонент Edit1
  2.  Установите свойство Text пустое значение
  3.  Измените процедуру обработки события OnClick для кнопки Старт таким образом

       Timer1.Enabled:=true;

{Вводимое в поле Edit1 значение скорости преобразуется в число

и присваивается интервалу таймера}  

       if Edit1.Text='' then Timer1.Interval:=0

       else Timer1.Interval:=StrToInt(Edit1.text);

 

Часть 4. Самостоятельно

  1.  Добавьте кнопку завершения программы.
  2.  Добавьте кнопку остановки движения самолета.

Часть 5.

  1.  Измените программу созданную в предыдущем задании так, чтобы двигалось два самолета с разной скоростью
  2.  Организовать ввод скорости для каждого самолета.




1. Вивчення мовленнєвого етикету на уроках української мови
2. Реферат Испытания РЭСИ на воздействие повышенной влаги и на воздействие инея с последующим его оттаиванием
3. АКФД 2 Первенство России юниоры 19971999г
4. на тему Значение поощрительных санкций правовой нормы для участников правоотношений
5. перестройка. Характер нового курса продолжавшегося с 1985 по 1991 г
6. Статья 1. Цели и предмет настоящего Федерального закона 1.html
7. Реферат- Содержание форм бухгалтерской отчетност
8. тема государства ее состав и принципы организации Выполнила- Специальность БУАиА Группа з
9. ар цес хив сор про цес сор про цес сор ан
10. ПРАКТИКУМ и лабораторныЕ работЫ по КУРСУ общеЙ физики Механика.html
11. 1к30 А16~бір айлы~ ~~ ~0~ы~ты~ жеке салаларына ~1а~кімшілік за~намасына с~йкес
12.  Конституція України як Основний Закон держави є політикоправовим актом шо має найвищу юридичну силу
13. ПРАКТИКУМ ПО ОХРАНЕ ТРУДА ДЛЯ СТУДЕНТОВ УЧРЕЖДЕНИЙ ОБЕСПЕЧИВАЮЩИХ ПОЛУЧЕНИЕ ВЫСШЕГО СЕЛЬСКОХОЗЯЙСТ
14. СанктПетербургский государственный инженерноэкономический университет Кафедра информационных с
15. Налоговые и неналоговые поступления от всех поступлений составили 6514 а по коду бюджетной классификации Р
16. 04 Затверджено наказом МОНМС України 29
17. реферат дисертації на здобуття наукового ступеня кандидата хімічних наук
18. Жади г
19. Предмет, метод и задачи бухгалтерского учет
20. тематика и математическая теория биология и биологическая теория и т