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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 6.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. Тема- Социальнотерриториальные общности
3. темам курса Гражданское право
4. Особенности современного менеджмента
5. Общая физическая подготовка в системе физического воспитания студенто
6. то было хорошо. Но это было давно до войны.html
7. РЕФЕРАТ Специальность 073100 Метеорология сту
8. Магнитный экран нашей планет
9. Анализ эффективности использования фонда оплаты труда на предприяти
10. Разработка вопросов энергосбережения за счет использования ветроэнергетической установки