Тәжірибелік жұмыс №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	' '

Сурет. Форма түрі.

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.

Сурет. Нәтиже.

Дата добавления: 2015-11-16