Діяльність програми Animator

Размещено на http://www.allbest.ru/

Вступ

В сучасному світі чільне місце посідають комп'ютерні технології. Внаслідок швидкого розвитку цієї галузі комп'ютери тепер є доступними практично всім. А якщо людина має справу з комп'ютером, то рано чи пізно в неї виникне бажання програмувати. Але декілька років назад більшість мов програмування, таких, як Turbo Pascal, або Borland C++ for Windows були досить складними для створення в них програм, якими було б зручно користуватись. delphi анімація демонстрація модифікація

Бурхливий розвиток обчислювалної техніки, необхідність в ефективних засобах розробки програмного забезпечення призвели до появи систем програмування, орієнтованих на так звану „швидку розробку”, серед яких можна виділити Borland Delphi і Microsoft Visual Basic. В основі систем швидкої розробки покладена технологія візуального проектування і подійного програмування, суть якої заключається в тому, що область розробки бере на себе більшу частину рутинної роботи, залишаючи програмісту роботу по конструюванню діалогових вікон і функцій обробки подій. Продуктивність програміста при використанні систем швидкої розробки приложеній (RAD - систем) фантастична.

Delphi - це середовище швидкої розробки, в якій в якості мови програмування використовується мова Delphi. Мова Delphi - строго типізована об'єктно орієнтована мова, в основі якої лежить добре знайомий програмістам Object Pascal. Темою курсового проекту передбачається Написати програму на мові високого рівня Delphi для демонстрації анімації. Задамося завданням намалювати зеленого чоловічка. Його складові: тулуб, голова, дві руки, дві ноги. При цьому управляти його кінцівками (руками і ногами) можна кнопками. Для кожної кінцівки будуть визначені дві керуючі кнопки - для руху кінцівки в одну і іншу сторони.



Алгоритми для вирішення завдань

Графічно «зелений чоловічок» складається з:

- Тулуб;

- Голова;

- Права рука;

- Ліва рука;

- Праве стегно;

- Права гомілка;

- Ліве стегно;

- Ліва гомілка;

- Праве коліно;

- Ліве коліно.

Для кожної кінцівки визначимо дві керуючі кнопки: «вгору» і «вниз».При натисканні на кнопку «вгору» чоловічок піднімає на 1 градус відповідну кінцівку. При натисканні на кнопку «вниз» чоловічок опускає на 1 градус відповідну кінцівку. При цьому кут підняття рук - від 30 до 150 градусів, кут підняття ніг - від 0 до 60 градусів. Нижче представлена схема чоловічка.

Нижче представлені малюнки вихідного і кінцевого положень чоловічка.

Розробка програми

Мова програмування, що використовується при розробці програми: мова високого рівня Delphi.

Середа програмування: Borland Delphi 7.0.

Проект складається з однієї форми.



Компоненти Form1.

Кнопки «Вгору» і «Вниз» управління лівою рукою

Кнопки «Вгору» і «Вниз» керування правою рукою

Кнопки «Вгору» і «Вниз» управління лівою ногою

Кнопки «Вгору» і «Вниз» керування правою ногою

Для малювання тулуба використовуємо метод об'єкта Canvas - RoundRect (x1, y1, x2, y2, x3, y3),

де x1, y1, x2, y2 - координати двох точок прямокутника;

x3, y3 - розміри еліпса заокруглення кутів прямокутника.

Для малювання голови і колін використовуємо метод об'єкта Canvas - Ellipse (x1, y1, x2, y2), де x1, y1, x2, y2 - координати прямокутника, що обмежує еліпс.

Для малювання рук і ніг використовуємо для користувача процедуру малювання прямокутника за координатами його направляючого відрізка і заданій товщині прямокутника:

procedure tform1.drawrect(x1,y1,x2,y2,t,c: integer);

var ua,ub: real;

xa,xb,xc,xd,ya,yb,yc,yd,fx,fy: integer;

begin

if (x2-x1)=0 then ua:=pi/2

else ua:=arctan(((y2-y1)/(x2-x1)));

ub:=ua-pi/2;

xa:=round(x1-cos(ub)*t/2);

xb:=round(x1+cos(ub)*t/2);

xc:=round(x2+cos(ub)*t/2);

xd:=round(x2-cos(ub)*t/2);

ya:=round(y1-sin(ub)*t/2);

yb:=round(y1+sin(ub)*t/2);

yc:=round(y2+sin(ub)*t/2);

yd:=round(y2-sin(ub)*t/2);

fx:=round((x2-x1)/2+x1);

fy:=round((y2-y1)/2+y1);

with form1.image1.canvas do begin

brush.color:=clgreen;

pen.color:=clgreen;

end;

Image1.Canvas.MoveTo(xa,ya);

Image1.Canvas.LineTo(xb,yb);

Image1.Canvas.LineTo(xc,yc);

Image1.Canvas.LineTo(xd,yd);

Image1.Canvas.LineTo(xa,ya);

Image1.Canvas.FloodFill(fx,fy,c,fsBorder);

end;

Формули, використовувані при розрахунку:

url: = urlx * pi/180; {Переклад кутів з градусів в радіани}

urp: = urpx * pi/180;

unl: = unlx * pi/180;

unp: = unpx * pi/180;

x1r: = round (x-wb / 2); {Розрахунок координат тулуба}

y1r: = round (y-hb / 2);

x2r: = round (x + wb / 2);

y2r: = round (y + hb / 2);

obx: = x1r; oby: = y1r; {Точка відліку координат кінцівок}

x1rl: = round (obx + wb-tr * sin (pi / 3)); {Розрахунок точки плеча лівої руки}

y1rl: = round (oby + tr * cos (pi / 3));

x2rl: = round (x1rl + lr * sin (url)); {Розрахунок точки зап'ястя лівої руки}

y2rl: = round (y1rl + lr * cos (url));

x1rp: = round (obx + tr * sin (pi / 3)); {Розрахунок точки плеча правої руки}

y1rp: = round (oby + tr * cos (pi / 3));

x2rp: = round (x1rp-lr * sin (urp)); {Розрахунок точки зап'ястя правої руки}

y2rp: = round (y1rp + lr * cos (urp));

x1nl1: = round (obx + wb-tn); {Розрахунок підстави стегна лівої ноги}

y1nl1: = round (oby + hb-tn * cos (pi / 6));

x2nl1: = round (x1nl1 + ln * sin (unl)); {Розрахунок коліна лівої ноги}

y2nl1: = round (y1nl1 + ln * cos (unl));

x1nl2: = x2nl1;

y1nl2: = y2nl1;

x2nl2: = round (x1nl2-ln * sin (unl)); {Розрахунок точки ступні лівої ноги}

y2nl2: = round (y1nl2 + ln * cos (unl));

x1np1: = round (obx + tn); {Розрахунок підстави стегна правої ноги}

y1np1: = round (oby + hb-tn * cos (pi / 6));

x2np1: = round (x1np1-ln * sin (unp)); {Розрахунок коліна правої ноги}

y2np1: = round (y1np1 + ln * cos (unp));

x1np2: = x2np1;

y1np2: = y2np1;

x2np2: = round (x1np2 + ln * sin (unp)); {Розрахунок точки ступні правої ноги}

y2np2: = round (y1np2 + ln * cos (unp));

Для малювання всього чоловічка використовуємо для користувача процедуру:

procedure tform1.drawbody (x, y, wb, hb: integer;

urlx, urpx, unlx, unpx, lr, ln, tr, tn, col: integer);

var x1r, y1r, x2r, y2r: integer;

obx, oby, x1rl, y1rl, x2rl, y2rl, x1rp, y1rp, x2rp, y2rp: integer;

x1nl1, y1nl1, x2nl1, y2nl1, x1nl2, y1nl2, x2nl2, y2nl2: integer;

x1np1, y1np1, x2np1, y2np1, x1np2, y1np2, x2np2, y2np2: integer;

url, urp, unl, unp: real;

begin

with form1.image1.canvas do {малювання осей}

begin

brush.color: = clwhite;

pen.color: = clwhite;

end;

form1.Image1.Canvas.rectangle (0,0, form1.Image1.Width, form1.Image1.Height);

with form1.image1.canvas do

begin

brush.color: = col;

pen.color: = col;

end;

url: = urlx * pi/180;

urp: = urpx * pi/180;

unl: = unlx * pi/180;

unp: = unpx * pi/180;

x1r: = round (x-wb / 2);

y1r: = round (y-hb / 2);

x2r: = round (x + wb / 2);

y2r: = round (y + hb / 2);

obx: = x1r; oby: = y1r;

x1rl: = round (obx + wb-tr * sin (pi / 3)); {Розрахунок лівої руки}

y1rl: = round (oby + tr * cos (pi / 3));

x2rl: = round (x1rl + lr * sin (url));

y2rl: = round (y1rl + lr * cos (url));

x1rp: = round (obx + tr * sin (pi / 3)); {Розрахунок правої руки}

y1rp: = round (oby + tr * cos (pi / 3));

x2rp: = round (x1rp-lr * sin (urp));

y2rp: = round (y1rp + lr * cos (urp));

x1nl1: = round (obx + wb-tn); {Розрахунок стегна лівої ноги}

y1nl1: = round (oby + hb-tn * cos (pi / 6));

x2nl1: = round (x1nl1 + ln * sin (unl));

y2nl1: = round (y1nl1 + ln * cos (unl));

x1nl2: = x2nl1; {Розрахунок гомілки лівої ноги}

y1nl2: = y2nl1;

x2nl2: = round (x1nl2-ln * sin (unl));

y2nl2: = round (y1nl2 + ln * cos (unl));

x1np1: = round (obx + tn); {Розрахунок стегна правої ноги}

y1np1: = round (oby + hb-tn * cos (pi / 6));

x2np1: = round (x1np1-ln * sin (unp));

y2np1: = round (y1np1 + ln * cos (unp));

x1np2: = x2np1; {Розрахунок гомілки правої ноги}

y1np2: = y2np1;

x2np2: = round (x1np2 + ln * sin (unp));

y2np2: = round (y1np2 + ln * cos (unp));

drawrect (x1rl, y1rl, x2rl, y2rl, tr, col); {Малювання лівої руки}

drawrect (x1rp, y1rp, x2rp, y2rp, tr, col); {Малювання правої руки}

drawrect (x1nl1, y1nl1, x2nl1, y2nl1, tn, col); {малювання стегна лівої ноги}

drawrect (x1nl2, y1nl2, x2nl2, y2nl2, tn, col); {Малювання гомілки лівої ноги}

drawrect (x1np1, y1np1, x2np1, y2np1, tn, col); {Малювання стегна правої ноги}

drawrect (x1np2, y1np2, x2np2, y2np2, tn, col); {Малювання гомілки правої ноги}

form1.Image1.Canvas.roundrect (x1r, y1r, x2r, y2r, 10,10);

form1.Image1.Canvas.Ellipse (x1r, y1r, x1r + wb, y1r-wb);

form1.Image1.Canvas.Ellipse (round (x2nl1-tn / 2), round (y2nl1-2 * tn / 3),

round (x2nl1 +2 * tn / 3), round (y2nl1 +2 * tn / 3));

form1.Image1.Canvas.Ellipse (round (x2np1-tn / 2), round (y2np1-2 * tn / 3),

round (x2np1 +2 * tn / 3), round (y2np1 +2 * tn / 3));

Для ініціалізації положення чоловічка, використовуємо для користувача процедуру, виконуються при відкритті форми:

procedure TForm1.Form1Activate (Sender: TObject);

begin

{Вихідне положення чоловічка:}

url: = 30; {Кут підняття лівої руки в град. }

urp: = 30; {Кут підняття правої руки в град. }

unl: = 0; {Кут підняття лівої ноги в град. }

unp: = 0; {Кут підняття правої ноги в град. }

wb: = 40; {Ширина тулуба}

hb: = 70; {Висота тулуба}

x: = 150; {Координата x центру тулуба}

y: = 200; {Координата y центру тулуба}

lr: = 60; ln: = 45; {Довжина рук і ніг}

tr: = 8; tn: = 8; {Товщина рук і ніг}

col: = clgreen; {Колір чоловічка}

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

Для зміни положення чоловічка використовуємо для користувача процедуру, виконуються при натисканні на кнопку форми:

{Опустити на 1 градус ліву руку}

procedure TForm1.Button1Click (Sender: TObject);

{Підняти на 1 градус ліву руку}

procedure TForm1.Button2Click (Sender: TObject);

{Опустити на 1 градус праву руку}

procedure TForm1.Button3Click (Sender: TObject);

{Підняти на 1 градус праву руку}

procedure TForm1.Button4Click (Sender: TObject);

{Опустити на 1 градус ліву ногу}

procedure TForm1.Button5Click (Sender: TObject);

{Підняти на 1 градус ліву ногу}

procedure TForm1.Button6Click (Sender: TObject);

{Опустити на 1 градус праву ногу}

procedure TForm1.Button7Click (Sender: TObject);

{Підняти на 1 градус праву ногу}

procedure TForm1.Button8Click (Sender: TObject);

{Опустити на 1 градус ліву руку}

procedure TForm1.Button1Click (Sender: TObject);

begin

if url> 30 then dec (url);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Підняти на 1 градус ліву руку}

procedure TForm1.Button2Click (Sender: TObject);

begin

if url <150 then inc (url);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Опустити на 1 градус праву руку}

procedure TForm1.Button3Click (Sender: TObject);

begin

if urp> 30 then dec (urp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Підняти на 1 градус праву руку}

procedure TForm1.Button4Click (Sender: TObject);

begin

if urp <150 then inc (urp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Опустити на 1 градус ліву ногу}

procedure TForm1.Button5Click (Sender: TObject);

begin

if unl> 0 then dec (unl);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Підняти на 1 градус ліву ногу}

procedure TForm1.Button6Click (Sender: TObject);

begin

if unl <60 then inc (unl);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Опустити на 1 градус праву ногу}

procedure TForm1.Button7Click (Sender: TObject);

begin

if unp> 0 then dec (unp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

{Підняти на 1 градус праву ногу}

procedure TForm1.Button8Click (Sender: TObject);

begin

if unp <60 then inc (unp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

Лістинг програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class (TForm)

Image1: TImage;

Label6: TLabel;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Label2: TLabel;

Button7: ??TButton;

Button8: TButton;

Label3: TLabel;

procedure Form1Activate (Sender: TObject);

procedure drawbody (x, y, wb, hb: integer; urlx, urpx, unlx, unpx, lr, ln, tr, tn, col: integer);

procedure drawrect (x1, y1, x2, y2, t, c: integer);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

{Procedure Button9Click (Sender: TObject);

procedure Button8Click (Sender: TObject);}

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

var url, urp, unl, unp, wb, hb, x, y, lr, ln, tr, tn, col: integer;

a3, a2, a1, a0, b1, b2: real;

i, n: integer;

{$ R *. Dfm}

procedure tform1.drawrect (x1, y1, x2, y2, t, c: integer);

var ua, ub: real;

xa, xb, xc, xd, ya, yb, yc, yd, fx, fy: integer;

begin

if (x2-x1) = 0 then ua: = pi / 2

else ua: = arctan (((y2-y1) / (x2-x1)));

ub: = ua-pi / 2;

xa: = round (x1-cos (ub) * t / 2);

xb: = round (x1 + cos (ub) * t / 2);

xc: = round (x2 + cos (ub) * t / 2);

xd: = round (x2-cos (ub) * t / 2);

ya: = round (y1-sin (ub) * t / 2);

yb: = round (y1 + sin (ub) * t / 2);

yc: = round (y2 + sin (ub) * t / 2);

yd: = round (y2-sin (ub) * t / 2);

fx: = round ((x2-x1) / 2 + x1);

fy: = round ((y2-y1) / 2 + y1);

with form1.image1.canvas do

begin

brush.color: = col;

pen.color: = col;

end;

Image1.Canvas.MoveTo (xa, ya);

Image1.Canvas.LineTo (xb, yb);

Image1.Canvas.LineTo (xc, yc);

Image1.Canvas.LineTo (xd, yd);

Image1.Canvas.LineTo (xa, ya);

Image1.Canvas.FloodFill (fx, fy, c, fsBorder);

end;

procedure tform1.drawbody (x, y, wb, hb: integer;

urlx, urpx, unlx, unpx, lr, ln, tr, tn, col: integer);

var x1r, y1r, x2r, y2r: integer;

obx, oby, x1rl, y1rl, x2rl, y2rl, x1rp, y1rp, x2rp, y2rp: integer;

x1nl1, y1nl1, x2nl1, y2nl1, x1nl2, y1nl2, x2nl2, y2nl2: integer;

x1np1, y1np1, x2np1, y2np1, x1np2, y1np2, x2np2, y2np2: integer;

url, urp, unl, unp: real;

begin

with form1.image1.canvas do

begin

brush.color: = clwhite;

pen.color: = clwhite;

end;

with form1.image1.canvas do

begin

brush.color: = col;

pen.color: = col;

end;

url: = urlx * pi/180;

urp: = urpx * pi/180;

unl: = unlx * pi/180;

unp: = unpx * pi/180;

x1r: = round (x-wb / 2);

y1r: = round (y-hb / 2);

x2r: = round (x + wb / 2);

y2r: = round (y + hb / 2);

obx: = x1r; oby: = y1r;

x1rl: = round (obx + wb-tr * sin (pi / 3)); {Малювання лівої руки}

y1rl: = round (oby + tr * cos (pi / 3));

x2rl: = round (x1rl + lr * sin (url));

y2rl: = round (y1rl + lr * cos (url));

x1rp: = round (obx + tr * sin (pi / 3)); {Малювання правої руки}

y1rp: = round (oby + tr * cos (pi / 3));

x2rp: = round (x1rp-lr * sin (urp));

y2rp: = round (y1rp + lr * cos (urp));

x1nl1: = round (obx + wb-tn); {Малювання стегна лівої ноги}

y1nl1: = round (oby + hb-tn * cos (pi / 6));

x2nl1: = round (x1nl1 + ln * sin (unl));

y2nl1: = round (y1nl1 + ln * cos (unl));

x1nl2: = x2nl1; {Малювання гомілки лівої ноги}

y1nl2: = y2nl1;

x2nl2: = round (x1nl2-ln * sin (unl));

y2nl2: = round (y1nl2 + ln * cos (unl));

x1np1: = round (obx + tn); {Малювання стегна правої ноги}

y1np1: = round (oby + hb-tn * cos (pi / 6));

x2np1: = round (x1np1-ln * sin (unp));

y2np1: = round (y1np1 + ln * cos (unp));

x1np2: = x2np1; {Малювання гомілки правої ноги}

y1np2: = y2np1;

x2np2: = round (x1np2 + ln * sin (unp));

y2np2: = round (y1np2 + ln * cos (unp));

drawrect (x1rl, y1rl, x2rl, y2rl, tr, col); {Малювання лівої руки}

drawrect (x1rp, y1rp, x2rp, y2rp, tr, col); {Малювання правої руки}

drawrect (x1nl1, y1nl1, x2nl1, y2nl1, tn, col); {Малювання стегна лівої ноги}

drawrect (x1nl2, y1nl2, x2nl2, y2nl2, tn, col); {Малювання гомілки лівої ноги}

drawrect (x1np1, y1np1, x2np1, y2np1, tn, col); {Малювання стегна правої ноги}

drawrect (x1np2, y1np2, x2np2, y2np2, tn, col); {Малювання гомілки правої ноги}

form1.Image1.Canvas.roundrect (x1r, y1r, x2r, y2r, 10,10);

form1.Image1.Canvas.Ellipse (x1r, y1r, x1r + wb, y1r-wb);

form1.Image1.Canvas.Ellipse (round (x2nl1-tn / 2), round (y2nl1-2 * tn / 3),

round (x2nl1 +2 * tn / 3), round (y2nl1 +2 * tn / 3));

form1.Image1.Canvas.Ellipse (round (x2np1-tn / 2), round (y2np1-2 * tn / 3),

round (x2np1 +2 * tn / 3), round (y2np1 +2 * tn / 3));

end;

procedure TForm1.Form1Activate (Sender: TObject);

begin

url: = 30; {Вихідне положення чоловічка}

urp: = 30;

unl: = 0;

unp: = 0;

wb: = 40;

hb: = 70;

x: = 150;

y: = 200;

lr: = 60; ln: = 45;

tr: = 8; tn: = 8;

col: = clgreen;

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button1Click (Sender: TObject);

begin

if url> 30 then dec (url);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button2Click (Sender: TObject);

begin

if url <150 then inc (url);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button3Click (Sender: TObject);

begin

if urp> 30 then dec (urp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button4Click (Sender: TObject);

begin

if urp <150 then inc (urp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button5Click (Sender: TObject);

begin

if unl> 0 then dec (unl);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button6Click (Sender: TObject);

begin

if unl <60 then inc (unl);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button7Click (Sender: TObject);

begin

if unp> 0 then dec (unp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

procedure TForm1.Button8Click (Sender: TObject);

begin

if unp <60 then inc (unp);

drawbody (x, y, wb, hb, url, urp, unl, unp, lr, ln, tr, tn, col);

end;

end.

Інструкція з користування програмою

Програма Animator написана мовою високого рівня Borland Delphi і призначена для демонстрації анімації.

Програма працює під операційною системою Windows.

Для запуску програми запустіть файл Animator.exe.

Натискайте кнопки управління і спостерігайте анімацію об'єкта.



Висновки

Програма Animator демонструє просту анімацію в середовищі програмування Borland Delphi 7.0. Програма показує основні принципи створення анімації.

Програма може бути модифікована для розширення своїх можливостей, а також інтегрована в інші програми.

Размещено на Allbest.ru

...