Тәжірбиелік жұмыс №9

Тапсырма: Тақ сан мен жұп санды ажырататын бағдарламасын құру.

Орындалуы:Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1), Edit(1), Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (17-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз(Кесте 9).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	'OK'
Label1	Properties	Caption	'Санды енгізіңіз'
Label2	Properties	Caption	' '
Edit1	Properties	Text	' '

17-сурет. Форма түрі.

var a:integer;

Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtoint(edit1.Text);

if a mod 2=1 then

label2.Caption:='Так сан'

else

label2.caption:='Жуп сан'

end;

end.

18-сурет. Нәтиже.

Тәжірибелік жұмыс №10

Тапсырма: Аудармашы бағдарлмасын құру.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(3), ComboBox(1), Edit(1), Label(1), Memo(2), ProgressBar(1) компоненттерін алып, форманы келесі түрге келтіреміз (19-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз(Кесте 10).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	'Выход'
Button2	Properties	Caption	'Показать'
Button3	Properties	Caption	'Перевести'
Label1	Properties	Caption	'Ай санын теріңіз'
ComboBox1	Properties	Items	Казакша English
Edit1	Properties	Caption	' '

19-сурет. Форма түрі.

var n:integer;

Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

close

end;

Button2 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button2Click(Sender: TObject);

begin

button3.Enabled:=true;

progressbar1.Position:=0;

memo1.Lines.clear;

n:=strtoint(edit1.Text);

if ((n<1) or (n>12)) then showmessage('Месяца с таким номером не существует!')

else

case n of

1,2,12:memo1.font.color:=clBlue;

3..5:memo1.font.color:=clgreen;

6..8:memo1.font.color:=clred;

9..11:memo1.Font.color:=clolive;

end;

memo1.Lines.add(month[combobox1.itemindex,n]);

end;

Button3 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button3Click(Sender: TObject);

var i:integer;

begin

button3.enabled:=false;

memo2.lines.clear;

i:=1;

while i<5 do begin

sleep(300);

progressbar1.position:=progressbar1.position+25;

inc(i);

end;

memo2.lines.add(month[2-combobox1.itemindex-1,n]);

end;

end.

20-сурет. Нәтиже.