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;


 

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

3751. Тоталитаризм как форма политического режима 130 KB
  При рассмотрении политической системы какого-либо государства или общества не следует ограничиваться лишь официально провозглашенными и действующими в нем институтами и правовыми нормами, конституционными актами, т.е. тем, что "заявляет" о ...
3752. Территориальное общественное самоуправление как форма непосредственной демократии на примере ТОС в г. Биробиджан 256 KB
  Признав в 1993 году местное самоуправление в качестве одной из основ конституционного строя, установив его самостоятельность в обеспечении жизнедеятельности населения, Конституция России положила начало огромной и чрезвычайно сложной законо...
3753. Товароведению и экспертизе однородных групп продовольственных товаров 151.35 KB
  Корнеплоды: сравнительная характеристика состава и пищевой ценности, хозяйственно-ботанические сорта, их идентификация, показатели качества, допустимые и недопустимые дефекты, обоснование режима хранения, показатели безопасности. К корнеп...
3754. Стадії виконання науково-дослідних робіт та розробка конструкції і технології електровиробів 72 KB
  Стадії виконання науково-дослідних робіт та розробка конструкції і технології електровиробів Створення нової техніки і технології здійснюється в ході технічної підготовки виробництва, основними етапами якої є науково-дослідні роботи (НДР) дослідно...
3755. Расчет парового котла типа Е-75-40 ГМ 531 KB
  Расчет парового котла типа Е-75-40 ГМ В данной курсовой работе рассмотрен типовой расчет промышленного парогенератора на примере парового котла Е-75-40 ГМ. Вид топлива, сжигаемого при работе котла мазут сернистый. Основные параметры котла: Ном...
3756. Пассионарности и теория этнологии Л. Гумилева 120 KB
  Введение Начать свою работу я хочу с того, что дать определение этносу. По определению Л.Гумилева - это естественно сложившийся на основе оригинального стереотипа поведения коллектив людей, существующий как энергетическая система, противопоставляюща...
3757. Рычажный механизм электродвигателя 569.5 KB
  Введение Рычажные механизмы предназначены для преобразования вида движения, воспроизведение функциональных зависимостей, выполнения математических операций, вычерчивания кривых и др. Рычажные механизмы состоят из рычагов (стержней) и ползунов, соеди...
3758. Возраст солнечной системы и гипотеза Геи 76 KB
  Возраст солнечной системы и гипотеза Геи Большинству людей известны уникальные характеристики Земли, которые делают возможной жизнь на нашей планете. К числу таких характеристик относятся химический состав планеты и ее атмосферы, наклон земной оси...
3759. Классификация и конструкции стационарных воздушных поршневых компрессоров 629.5 KB
  Классификация и конструкции стационарных воздушных поршневых компрессоров Цель: Изучить классификацию и конструкции стационарных воздушных поршневых компрессоров. Принцип передачи энергии в объёмном компрессоре Компрессором называют машину,...