Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
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.
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2016-08-26; просмотров: 198; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.135.241.191 (0.009 с.) |