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;


 

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

67684. ЭЛЕКТРОМАГНИТНОЕ ПОЛЕ В ПРЯМОУГОЛЬНОМ ВОЛНОВОДЕ 143.39 KB
  Стенки волновода являются идеально проводящими. Проверить выполнение граничных условий на стенках волновода при x=0 и y=0 b. Определить максимальные значения плотностей продольного и поперечного поверхностных токов на всех стенках волновода на частоте f2.
67685. Изучение электромагнитных волн 61.57 KB
  Элементарный электрический вибратор создает в свободном пространстве монохроматическое поле с частотой f. Сопротивление излучения вибратора равно R∑, а среднее за период значение излученной мощности равняется P∑ср. Фаза комплексной амплитуды электрического тока, протекающего по вибратору, равна нулю.
67686. Аналіз рівня готовності майбутніх соціальних педагогів до реалізації посередницької функції та дослідження особливостей здійснення посередництва соціальними педагогами ЗОШ 212.7 KB
  Спецкурс щодо підвищення рівня готовності майбутніх соціальних педагогів до виконання посередницької діяльності в ЗОШ та семінар для поліпшення рівня реалізації посередницької функції соціальними педагогами ЗОШ.
67687. Побудова компілятора з використанням середовища розробки Borland CodeGear RAD Studio Delphi 2009 188.9 KB
  Метою даної курсової роботи є вивчення теоретичних основ, на яких базується робота компілятора, а також програмна реалізація алгоритмів кожної стадії компіляції вихідного коду. Курсова робота полягає в створенні окремих частин компілятора заданої мови, а саме: лексичного аналізатора...
67688. ЕСТЕТИЧНЕ ВИХОВАННЯ ХУДОЖНЬО-ТВОРЧОГО РОЗВИТКУ ОСОБИСТОСТІ – ШЛЯХ ДО КРАСИ І ДУХОВНОГО ОДУЖАННЯ СУСПІЛЬСТВА 97 KB
  При розгляді поняття художньо-творчого розвитку особистості як методу становлення естетичного суб`єкту, як носiя специфічно естетичної модальності світовідношення, що проявляє саме художньо-творчу активність, а не якусь іншу, само собою знімається питання про критерії естетичного розвитку людини
67689. Разработка цифрового измерителя технологического многоканального на основе AVR микроконтроллера AT90S4414 183.5 KB
  В данной работе используется микроконтроллер AT90S4414 фирмы Atmel. Микросхема выполнена в 40-выводном корпусе, что дает безусловный выигрыш. Таким образом, микроконтроллер имеет (4 внешних порта РА ,РВ,РС и РD). Прибор обеспечивает производительность, приближающуюся к 1 МГц.
67690. Разработка схем трехразрядного счетчика 491 KB
  Основной функцией счётчика является прибавление единицы к некоторому коду. У каждого счётчика есть диапазон значений который определяется количеством триггеров входящих в его состав. Основные параметры которые необходимо улучшать в счётчиках это быстродействие и время задержки.
67691. Скремблеры. Системы криптографической защиты информации 817.9 KB
  Суть скремблирования заключается в побитном изменении проходящего через систему потока данных. Скремблирование широко применяется во многих видах систем связи для улучшения статистических свойств сигнала и осуществляется на последнем этапе цифровой обработки.
67692. Управление списками в MS Excel: создание списка «Автомобили», сортировка, отбор, анализ данных 2.43 MB
  Форма данных представляет собой средство для поиска и редактирования записей, которые удовлетворяют простому или множественному критерию сравнения. В форме данных условия в критерии должны соответствовать логической операции и, для поиска некоторого фрагмента текста...