Delphi ортасында тестілеу бағдарламасын құру жобасы

жүктеу 1,89 Mb.

бет	4/10
Дата	25.12.2017
өлшемі	1,89 Mb.
	#6126
түрі	Бағдарламасы

1 2 3 4 5 6 7 8 9 10

Сурет 2.4 Тестілеу жүйесінің бастапқы бет терезезесі
Келесі, төртінші форма бетіне BitBtn, Label, Image, Bevel, SpeedButton, Timer объектілерін орналастырганнан кейін форма беті мынадай бейнеде болады.

Сурет 2.5 Тестілеу жүйесінің ішкі түрі
Timer объектісінің процедурасын орындатқанда Edit1компонетінен уақыт көрсеткішін, Edit2 компонетінен тест тапсырмасының басталған уақыты, ал Edit3 компонетінен тест тапсырмасын орындауға кетекен уақытты көреміз.:

Рrocedure TForm5.Timer1Timer(Sender: TObject);

begin

Edit1.Text := TimeToStr(Now);

Edit3.Text := TimeToStr(StrToTime(Edit1.Text)-StrToTime(Edit2.Text));

end;
procedure TForm5.Edit2Change(Sender: TObject);

begin
end;
procedure TForm5.Edit1Change(Sender: TObject);

begin
end;

Бағдарламаны орындау барысында форма бетінен төмендегідей нәтиже шығарады:

Сурет 2.6 Тест тапсырмасының уақыт мезгілін анықтайтын терезе

BitBtn6 компонентінің Caption қасиетін «А» деп өзгертіп оған процедурасын жазамыз:

procedure TForm5.BitBtn6Click(Sender: TObject);

begin

if k=9 then n:=n+1;

if k=11 then n:=n+1;

if k=12 then n:=n+1;

end;
BitBtn5 компонентінің Caption қасиетін «с» деп өзгертіп оған процедурасын жазамыз:

procedure TForm5.BitBtn5Click(Sender: TObject);

begin

if k=2 then n:=n+1;

if k=3 then n:=n+1;

if k=4 then n:=n+1;

if k=6 then n:=n+1;

if k=8 then n:=n+1;

if k=10 then n:=n+1;

if k=14 then n:=n+1;

if k=15 then n:=n+1;

end;

BitBtn1 компонентінің Caption қасиетін «D» деп өзгертіп оған процедурасын жазамыз:

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

if k=1 then n:=n+1;

if k=7 then n:=n+1;

if k=13 then n:=n+1;

end;
BitBtn3 компонентінің Caption қасиетін «Шығу» деп өзгертіп оған процедурасын жазамыз:

procedure TForm5.BitBtn10Click(Sender: TObject);

begin

Form3.Show;

Form5.Hide;

end;

Бағдарламаны орындау барысында форма бетінен төмендегідей нәтиже береді. Мысал «Сурет 2.7» келтірілген.

жүктеу 1,89 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 10