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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 28.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. Землеустроительное проектирование межхозяйственное землеустройство Казань2009 УДК 333.
2. Жизнь - это свобода По произведениям ВГроссмана Жизнь и судьба и ЮДомбровского Факультет ненужных вещей
3. Валютное право 1
4. Поширення мікроорганізмів в природі Виконав- студент II курсу ФХТ групи ТМЯ05031 Калюжний
5. Русская прививка к мировой сатире
6. Радиационные и химические разведки Дозиметрический контроль с помощью приборов
7. Реферат на тему- Основы здорового образа жизни студента
8. Особенности трудового и эстетического воспитания незрячих детей в коррекц
9. Менеджмент Опыт работы 09
10. Правовой институт государственной тайны в Российской Федерации