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

Тапсырма: Асхана мәзірінің бағдарламасын кұру.

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

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Checkbox1	Properties	Caption	'Манты 450тг'
Checkbox2	Properties	Caption	'Куырдак 600тг'
Checkbox3	Properties	Caption	'Орама 400тг'
Checkbox4	Properties	Caption	'Плов 500тг'
Checkbox5	Properties	Caption	'Чай 80тг'
Checkbox6	Properties	Caption	'1 литр сусын 140тг'
Checkbox7	Properties	Caption	'Фанта 140тг'
Checkbox8	Properties	Caption	'Coca Cola 150тг'
Checkbox9	Properties	Caption	'Пельмени 440тг'
Checkbox10	Properties	Caption	'Борщ 400тг'
Checkbox11	Properties	Caption	'Пюре 500тг'
Checkbox12	Properties	Caption	'Каша 150тг'
Checkbox13	Properties	Caption	'Под шубой 600тг'
Checkbox14	Properties	Caption	'Грибной 200тг'
Checkbox15	Properties	Caption	'Салат Цезарь 600тг'
Checkbox16	Properties	Caption	'Астана 400тг'
Checkbox17	Properties	Caption	'Шашлык 800тг'
Checkbox18	Properties	Caption	'Баранина 500тг'
Checkbox19	Properties	Caption	'Свинина 900тг'
Checkbox20	Properties	Caption	'Конина 1000тг'
Button1	Properties	Caption	'Счет'
Button2	Properties	Caption	'Очистка'
Label1	Properties	Caption	' '

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

var sum:integer;

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

procedure TForm1.Button1Click(Sender: TObject);

begin

sum:=0;

if checkbox1.checked then

sum:=sum+450;

if checkbox2.checked then

sum:=sum+600;

if checkbox3.checked then

sum:=sum+500;

if checkbox4.checked then

sum:=sum+200;

if checkbox5.checked then

sum:=sum+80;

if checkbox6.checked then

sum:=sum+140;

if checkbox7.checked then

sum:=sum+500;

if checkbox8.checked then

sum:=sum+600;

if checkbox9.checked then

sum:=sum+25;

if checkbox10.checked then

sum:=sum+140;

if checkbox11.checked then

sum:=sum+440;

if checkbox12.checked then

sum:=sum+140;

if checkbox13.checked then

sum:=sum+400;

if checkbox14.checked then

sum:=sum+400;

if checkbox15.checked then

sum:=sum+150;

if checkbox16.checked then

sum:=sum+800;

label1.caption:=inttostr(sum);

end;

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

procedure TForm1.Button2Click(Sender: TObject);

begin

label1.caption:='0';

end;

end.

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

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