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

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

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

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

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

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

от 25%

Подписываем

договор

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

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

Лабораторная работа 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. варіант 1. Недостатність зовнішнього дихання за обструктивним типом виникає внаслідок
3. Посвящение в Ученики 2007 Вед1
4. мститель Сожмет твое горло смертельной тоской
5. Классы неорганических соединений
6. Литературный процесс в первой четверти XIX века судьбы классицизма просветительский реализм сентиментализ
7. Реферат- Солені та мариновані рибні товари
8. Пресса и бизнес.html
9. Авітаміноз. Отруєння рослинами. Травматичні ушкодження
10. Методика функционального моделирования SADT