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

↑

▷ Содержание

⇐ ПредыдущаяСтр 3 из 3

Dialogs, ComCtrls, ExtCtrls, XPMan, StdCtrls, jpeg, Math;

Type

TForm5 = class(TForm)

Image1: TImage;

Image2: TImage;

Button1: TButton;

Button2: TButton;

Button3: TButton;

XPManifest1: TXPManifest;

StatusBar1: TStatusBar;

Timer1: TTimer;

Timer2: TTimer;

Timer3: TTimer;

TrackBar1: TTrackBar;

Image3: TImage;

Image4: TImage;

TrackBar2: TTrackBar;

TrackBar3: TTrackBar;

procedure Timer2Timer(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure Image3DblClick(Sender: TObject);

procedure Image4DblClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Image2DblClick(Sender: TObject);

procedure TrackBar2Change(Sender: TObject);

procedure TrackBar3Change(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form5: TForm5; s,timer:integer;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.Timer2Timer(Sender: TObject);

Begin

image2.Left:=RandomRange(1,Image1.Height-image2.Height-1);

image2.Top:=RandomRange(0,Image1.Height-image2.Height-1);

image3.Left:=RandomRange(0,image1.Width-image2.Width-1);

image3.Top:=RandomRange(0,Image1.Height-image2.Height-1);

image4.Left:=RandomRange(0,image1.Width-image2.Width-1);

image4.Top:=RandomRange(0,Image1.Height-image2.Height-1);

end;

procedure TForm5.TrackBar1Change(Sender: TObject);

Begin

Image2.Width:=TrackBar1.Position;

image2.Height:=TrackBar1.Position;

end;

procedure TForm5.Image2DblClick(Sender: TObject);

Begin

s:=s+1;

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage('Вы перешли на новый лвл')

end;

procedure TForm5.Image3DblClick(Sender: TObject);

Begin

s:=s+1;

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage('Вы перешли на новый лвл')

end;

procedure TForm5.Image4DblClick(Sender: TObject);

Begin

s:=s+1;

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage('Вы перешли на новый лвл')

end;

procedure TForm5.Button2Click(Sender: TObject);

Begin

statusbar1.Panels[1].Text:=('Время закончилось ваш рекорд: '+FloatToSTr(s*1.8));

timer1.Enabled:=false;

timer2.Enabled:=false;

end;

procedure TForm5.Button1Click(Sender: TObject);

Begin

timer1.Enabled:=true;

timer2.Enabled:=true;

end;

procedure TForm5.Button3Click(Sender: TObject);

Begin

form1.Close;

end;

procedure TForm5.Timer1Timer(Sender: TObject);

Begin

timer:=timer-1;

if time <= 0 then

Begin

statusbar1.Panels[1].Text:=('Время закончилось ваше рекорд: '+IntToStr(s));

timer1.Enabled:=false;

timer2.Enabled:=false;

end;

end;

procedure TForm5.FormCreate(Sender: TObject);

Begin

timer:=9;

timer1.Interval:= 850;

s:=0;

image2.visible:=true;

timer1.Enabled:=true;

end;

procedure TForm5.Timer3Timer(Sender: TObject);

Begin

statusbar1.Panels[0].Text:='Ваш уровен: '+inttostr(s);

end;

procedure TForm5.TrackBar2Change(Sender: TObject);

Begin

Image3.Width:=TrackBar2.Position;

image3.Height:=TrackBar2.Position;

end;

procedure TForm5.TrackBar3Change(Sender: TObject);

Begin

Image4.Width:=TrackBar2.Position;

image4.Height:=TrackBar2.Position;

end;

End.

unit Unit6;

Interface

Uses

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

Dialogs, jpeg, ExtCtrls, ComCtrls, XPMan, StdCtrls,math;

Type

TForm6 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

XPManifest1: TXPManifest;

StatusBar1: TStatusBar;

Timer1: TTimer;

Timer2: TTimer;

Timer3: TTimer;

TrackBar2: TTrackBar;

TrackBar1: TTrackBar;

TrackBar3: TTrackBar;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

procedure Image2DblClick(Sender: TObject);

procedure Image4DblClick(Sender: TObject);

procedure Image3DblClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure TrackBar3Change(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure TrackBar2Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form6: TForm6;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.Image2DblClick(Sender: TObject);

Begin

s:=s+1;

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage('Вы перешли на новый лвл')

end;

procedure TForm6.Image4DblClick(Sender: TObject);

Begin

s:=s+1;

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage('Вы перешли на новый лвл')

end;

procedure TForm6.Image3DblClick(Sender: TObject);

Begin

s:=s+1;

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage('Вы перешли на новый лвл')

end;

procedure TForm6.Timer1Timer(Sender: TObject);

Begin

timer:=timer-1;

if time <= 0 then

Begin

statusbar1.Panels[1].Text:=('Время закончилось ваше рекорд: '+IntToStr(s));

timer1.Enabled:=false;

timer2.Enabled:=false;

end;

end;

procedure TForm6.Timer2Timer(Sender: TObject);

Begin

image2.Left:=RandomRange(1,Image1.Height-image2.Height-1);

image2.Top:=RandomRange(0,Image1.Height-image2.Height-1);

image3.Left:=RandomRange(0,image1.Width-image2.Width-1);

image3.Top:=RandomRange(0,Image1.Height-image2.Height-1);

image4.Left:=RandomRange(0,image1.Width-image2.Width-1);

image4.Top:=RandomRange(0,Image1.Height-image2.Height-1);

end;

procedure TForm6.Timer3Timer(Sender: TObject);

Begin

statusbar1.Panels[0].Text:='Ваш уровен: '+inttostr(s);

end;

procedure TForm6.Button1Click(Sender: TObject);

Begin

timer1.Enabled:=true;

timer2.Enabled:=true;

end;

procedure TForm6.Button2Click(Sender: TObject);

Begin

statusbar1.Panels[1].Text:=('Время закончилось ваш рекорд: '+FloatToSTr(s*1.8));

timer1.Enabled:=false;

timer2.Enabled:=false;

end;

procedure TForm6.Button3Click(Sender: TObject);

Begin

form1.Close;

end;

procedure TForm6.TrackBar3Change(Sender: TObject);

Begin

Image4.Width:=TrackBar2.Position;

image4.Height:=TrackBar2.Position;

end;

procedure TForm6.TrackBar1Change(Sender: TObject);

Begin

Image2.Width:=TrackBar1.Position;

image2.Height:=TrackBar1.Position;

end;

procedure TForm6.TrackBar2Change(Sender: TObject);

Begin

Image3.Width:=TrackBar2.Position;

image3.Height:=TrackBar2.Position;

end;

procedure TForm6.FormCreate(Sender: TObject);

Begin

timer:=9;

timer1.Interval:= 850;

s:=0;

image2.visible:=true;

timer1.Enabled:=true;

end;

End.

End.

КПП21008.106.081ГЧ

Диаграмма алгоритма курсового проекта

Лит.

Масса

Масштаб

Изм

Лист

№ докум.

Подпись

Дата

1:1

Разраб.

Бердасов

Провер.

Салтыкова

Т.Контр.

Лист 1

Листов 1

Реценз.

Плакат

ЧУО МКП

Н.Контр.

Утверд.

Познавательные статьи:



Формы дистанционного обучения

Передача мяча двумя руками снизу

Значение правильной осанки для жизнедеятельности человека

Основные ошибки при выполнении передач мяча на месте