«Ұстатқызбайтын
батырма»
Жұмыстың мақсаты – ойын – программасын құру, мұндағы программа келесі іс – әрекет жасайды:
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;