6792

Изучение методов вывода иллюстраций, создания битовых образов, создания движущихся и изменяющихся рисунков

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

Информатика, кибернетика и программирование

Цель работы: Изучение методов вывода иллюстраций, создания битовых образов, создания движущихся и изменяющихся рисунков. Приобретение навыков создания программ  мультипликации. Постановка задачи:Изобразить на экране прямоугольник, враща...

Русский

2013-01-08

70 KB

11 чел.

Цель работы: Изучение методов вывода иллюстраций, создания битовых образов, создания движущихся и изменяющихся рисунков.  Приобретение навыков создания  программ  мультипликации.

Постановка задачи: Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг одной из своих вершин. И перемещающегося с постоянной скоростью от одного края экрана до другого с постоянной скоростью.

Описание входных, выходных данных

Входные данные

Выходные данные

Идентификатор

Назначение

Тип

Идентификатор

Назначение

Тип

MoveTo(x,y)

LineTo(x,y)

Строится рпямоугольник

integer

 

Блок-схему работы алгоритма

Для процедуры  proc_1

Для процедуры  proc_2

Для процедуры  proc_3

Для процедуры  proc_4

Вид Окна приложения

Код обработчика события для кнопки выполнения задания

procedure proc_1;

 begin

    fTask_8.Image1.Canvas.Pen.Color:= clWhite;

     with fTask_8.Image1.Canvas do begin

      MoveTo(50 + x1, 50); LineTo(80, 10);

      MoveTo(80, 10); LineTo(110 - x1, 70);

      MoveTo(110 - x1,70); LineTo(80,110);

      MoveTo(80,110); LineTo(50 + x1, 50);

      end;

        x1:= x1 + 5;

        if x1 = 60 then begin

           fTask_8.Timer1.Enabled:= false;

           fTask_8.Timer2.Enabled:= true;

           end;

        fTask_8.Image1.Canvas.Pen.Color:= clBlack;

     with fTask_8.Image1.Canvas do begin

      MoveTo(50 + x1, 50); LineTo(80, 10);

      MoveTo(80,10); LineTo(110 - x1, 70);

      MoveTo(110 - x1,70); LineTo(80,110);

      MoveTo(80,110); LineTo(50 + x1, 50);

      end;

        end;

procedure proc_2;

 begin

     fTask_8.Image1.Canvas.Pen.Color:= clWhite;

   with fTask_8.Image1.Canvas do

     begin

         MoveTo(50 + x1, 50); LineTo(80, 10);

         MoveTo(80, 10); LineTo(110 - x1, 70);

         MoveTo(110 - x1,70); LineTo(80,110);

         MoveTo(80,110); LineTo(50 + x1, 50);

     end;

       x1:= x1 - 5;

     if x1 = 0 then

      begin

          fTask_8.Timer1.Enabled:= true;

          fTask_8.Timer2.Enabled:= false;

      end;

        fTask_8.Image1.Canvas.Pen.Color:= clBlack;

    with fTask_8.Image1.Canvas do

   begin

          MoveTo(50 + x1, 50); LineTo(80, 10);

          MoveTo(80,10); LineTo(110 - x1, 70);

          MoveTo(110 - x1,70); LineTo(80,110);

          MoveTo(80,110); LineTo(50 + x1, 50);

   end;

 end;

 procedure proc_3;

   begin

      x2:= x2 + 1;

      fTask_8.Image1.Left:= x2;

      if x2 = 500 then

       begin

           fTask_8.Timer3.Enabled:= false;

           fTask_8.Timer4.Enabled:= true;

       end;

      end;

procedure proc_4;

   begin

      x2:= x2 - 1;

      fTask_8.Image1.Left:= x2;

      if x2 = 0 then

       begin

           fTask_8.Timer3.Enabled:= true;

           fTask_8.Timer4.Enabled:= false;

       end;

      end;

      

procedure TfTask_8.Timer1Timer(Sender: TObject);

begin

  proc_1;

end;

procedure TfTask_8.Timer2Timer(Sender: TObject);

 begin

     proc_2;

end;

procedure TfTask_8.Timer3Timer(Sender: TObject);

 begin

     proc_3;

end;

procedure TfTask_8.Timer4Timer(Sender: TObject);

 begin

     proc_4;

end;


 

А также другие работы, которые могут Вас заинтересовать

81087. ПРИОРИЕТЫ БЮДЖЕТНО-НАЛОГОВОЙ ПОЛИТИКИ РФ 45.51 KB
  Полнота бюджета, как правило, прямо пропорциональна благосостоянию граждан. Бюджет, его формирование и статьи расходов являются важным разделом в экономической науки, требующим большого внимания со стороны не только занимающих высокие посты экономистов и политиков, но и рядовых граждан.
81088. Электронные выпрямители, преобразователи, защита электронных устройств и основные характеристики 468.06 KB
  Инвертор который формирует частоту напряжения электродвигателя. Преобразователи частоты различаются по режиму коммутации используемому для регулирования напряжения питания электродвигателя.
81089. СОЗДАНИЕ ГОСУДАРСТВЕННОГО СТАНДАРТА ISO 21500:2012 30.93 KB
  Задачей рабочей группы по созданию стандарта было взять за основу опыт существующих организаций по управлению проектами (Института управления проектами PMI (США), Британского института стандартизации BSI и Международной ассоциации управления проектами IPMA) и свести его в лучшую практику – универсальный стандарт.
81090. Изменения в системе государственного управления при правлении Ивана III 50 KB
  Иван III заложил основы российского самодержавства не только значительно расширив территорию своего государства но и укрепив его политический строй государственный аппарат резко возвысив международный престиж Москвы. Иван III явился фактическим создателем Московского государства.
81091. Разработки и построение моделей социальных процессов для определения сущности, областей применения и наиболее эффективных методов моделирования 23.61 KB
  Актуальность темы состоит в том что в настоящее время нельзя назвать область человеческой деятельности в которой в той или иной степени не использовались бы методы моделирования. Остановимся на философских аспектах моделирования а точнее общей теории моделирования. Методологическая основа моделирования.
81092. Манипуляции в деловом общении и способы их нейтрализации 30.02 KB
  Очень важны психологические аспекты делового общения. Вопрос, с которым постоянно сталкиваются деловые люди, как построить беседу, переговоры. Важно понимать общие закономерности делового общения, что позволит анализировать ситуацию, учитывать интересы партнера, говорить на общем языке.
81093. Трансакционные издержки и их виды 30.14 KB
  Трансакционные издержки центральная объясняющая категория всего неоинституционального анализа. Ортодоксальная неоклассическая теория рассматривала рынок как совершенный механизм где нет необходимости учитывать издержки по обслуживанию сделок.
81094. England. Education and Architecture 129.3 KB
  England is a country that is part of the United Kingdom. It shares land borders with Scotland to the north and Wales to the west. The Irish Sea lies north west of England, whilst the Celtic Sea lies to the southwest. The North Sea to the east and the English Channel to the south separate England from continental Europe.