«Ұстатқызбайтын батырма»

 

Жұмыстың мақсаты ойын – программасын құру, мұндағы программа келесі іс – әрекет жасайды:

1.      программы іске қосылғаннан кейін, батырма экранның бетінде кездейсоқ бағытта қозғалып жүреді.

2.      Бізге сол батырманы шертуіміз керек.

3.      Батырма таймерден алған мәліметтер бойынша орын ауыстырып отырады.

4.      Программадан шығу үшін, «шығу» батырмасын қолданамыз.

Жұмыс істеу жоспары:

1.      Жаңа жоба құру.

2.                  Timer және Button компоненттерін формаға орналастырамыз.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3.      Келесі іс-әрекеттер орындаңыз:

объект

Object Inspector

Қасиет атауы/

оқиға атауы

Іс-әрекет

Form1

Properties

Caption

Форманың аты «Прыгающая кнопка»

ClientWidth

300

ClientHeigth

200

BorderStyle

bsSingle (жұқа)

Events

OnCreate

Randomize;

Button1

(Вкладка Standard)

 

 

Properties

 

Caption

Батырма аты «Нажми меня»

TabStop

False.

Visible

False.

Height

30

Width

80

Events

OnClick

Button1.Caption := ‘Готово’;

Button1.Enabled := False;

Timer1.Enabled := False;


 

Продолжение таблицы 11.

объект

Object Inspector

Қасиет атауы/

оқиға атауы

Іс-әрекет

Button2

(Вкладка Standard)

 

Properties

 

Caption

 «Выход»

Default

True

Left

110

Top

160

Width

80

Height

30

Events

OnClick

Close;

Timer1

(Вкладка System)

Properties

 

Interval (интервал)

500 ( миллисекунда)

Events

Timer

var i: Integer;

begin

  i:=Random(9);

  Button1.Visible := True;

  Button1.Top := 10 + 50 * ( i div 3);

  Button1.Left := 10 + 100 * ( i mod 3);

end;

 

4.      Жобаны сақтап, программаны іске қос.

5.       Листинг подпрограммы

procedure TForm1.Button2Click (Sender: TObject);

begin

   Close;

end;

procedure TForm1.Timer1Timer (Sender: TObject);

var i: Integer;

begin

  i:=Random(9);

  Button1.Visible := True;

  Button1.Top := 10 + 50 * ( i div 3);

  Button1.Left := 10 + 100 * ( i mod 3);

end;

procedure TForm1.Button1Click (Sender: TObject);

begin

   Button1.Caption := ‘Готово’;

   Button1.Enabled := False;

   Timer1.Enabled := False;

end;

procedure TForm1.FormCreate (Sender: TObject);

begin

   Randomize;

end;