Реферат Анімація на мові програмування Delphi 7

Тема: Курсовые проекты

ntrols, Forms ,, ExtCtrls, Menus, jpeg, MPlayer;

type=class (TForm): TImage ;: TImage ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TTimer ;: TMediaPlayer ;: TTimer ;: TTimer ;: TTimer; Timer1Timer (Sender:TObject); N1Click (Sender: TObject); N2Click (Sender: TObject); Timer2Timer (Sender: TObject); Timer3Timer (Sender: TObject); N3Click (Sender: TObject); FormCreate (Sender: TObject); Image2DblClick (Sender: TObject); Timer4Timer (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm1;: array [1..100] of string;: integer;

{$ R * .dfm} TForm1.Timer1Timer (Sender: TObject);// Частина коду, яка відповідає за звуки

if image2.top=256 then begin.FileName:= oi2.wav raquo ;;. Open; .Play; image2.Left=78 then begin.FileName:= smeh2.wav ; .Open; .Play ;;

//кінець коду звуків

{

//це із стрибком, прибираються фігурні дужки тут і перед коментарем кінця стрибка

image2.Left:=image2.Left - 1; image2.Left=424 then.Enabled:=truebeginimage2.Top=168 then.Enabled:=true ;;

}

//кінець коду стрибка

//початок коду падіння

if image2.Left=368 then begin//якщо колобок дістався до ями, то він падає

image2.Top:=image2.Top+3;image2.Top=256 then//якщо колобок впав у яму, то він зникає

image2.Visible:=false;//інакше продовжує катіться.Left:=image2.Left - 1;

//кінець падіння

//цей рядок відповідає за зникнення колобка, коли він добирається до двері

if image2.Left=78 then image2.Visible:=false ;; TForm1.N1Click (Sender: TObject);

timer1.Enabled:=true;// Цей рядок відповідає за всю анімацію

timer4.Enabled:=true ;; TForm1.N2Click (Sender: TObject);// Ця процедура потрібна для паузи // Нижче включаємо все таймери

timer1.Enabled:=false;

timer2.Enabled:=false; .Enabled:=false; .Enabled:=false ;; TForm1.Timer2Timer (Sender: TObject);// ця процедура включає другу таймер, який відповідає за рух вгору під час стрибка

if image2.top=168 then//якщо колобок дострибнув досить високо, то вимикаємо таймер

timer2.Enabled:=falsebegin//інакше стрибаємо више.Top:=image2.Top - 2; .Left:=image2.Left - 2;// Збільшує в два рази координату осі Ох image2.top=168 then//дублювання першої умови для того, щоб зупинити таймер на вищій точці стрибка

timer2.Enabled:=false ;;; TForm1.Timer3Timer (Sender: TObject);// Процедура таймера, в якому прописано опускання колобка на землю після стрибка

beginimage2.Top=208 then.Enabled:=falsebegin.Top:=image2.Top + 2; .Left:=image2.Left - 2 ;;;

procedure TForm1.N3Click (Sender: TObject);// Процедура повернення колобка в початкове положення і відключення таймерів

begin.Top:=208;.Left:=600;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;2.Visible:=true;// Колобок стає видно

image2.Picture.LoadFromFile ( kolob.bmp ) ;; TForm1.FormCreate (Sender: TObject);

doublebuffered:=true;// Включає подвійну буфферізацію для видалення ефекту мерехтіння

i:=1;[1]:=laquo;kolob.bmpraquo;;[2]:=laquo;kolob2.bmpraquo;;[3]:=laquo;kolob3.bmpraquo;;[4]:=laquo;kolob4.bmpraquo;;[5]:=laquo;kolob5.bmpraquo;;[6]:=laquo;kolob6.bmpraquo;;[7]:=laquo;kolob7.bmpraquo;;[8]:=laquo;kolob8.bmpraquo;;;TForm1.Image2DblClick(Sender: TObject) ;. Hint:=inttostr (image2.left) ;; TForm1.Timer4Timer (Sender: TObject);// Відповідає за обертання колобка.Picture.LoadFromFile (rot [i]);:=i + 1; i=8 then i:=1 ;;.

4. Використовувані файли

Project2.exe - виконуваний файл

Project2.dpr - файл проекту

Project2.cfg - файл конфігурації

Project2.dof - файл опцій проекту

Project2.res - файл ресурсів

Unit1.dfm - файл форми 1

Unit1.pas - файл окремого модуля (Unit 1)

Unit1.dcu - результат компіляції pas (Unit1)

Висновок

У даній роботі я показала анімацію. Вона полягала в тому, щоб об'єкт (колобок), не доходячи до будиночка, впав.

Завдяки цій роботі, я навчилася працювати з графікою. А також освоїла мову програмування Delphi.