Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

DELPHI ұғымы | Тәжірибелік жұмыс №1 | Тәжірибелік жұмыс №7 | Тәжірибелік жұмыс №10 | Form1компонентінің OnClick қасиетіне | Тәжірибелік жұмыс №20 | Тапсырма: Оқушы күнделігі туралы бағдарлама жасау. | Тәжірибелік жұмыс №23 | Cурет. Форма түрі. |


Читайте также:
  1. A) Қолданушыға қажет жұмыстарды атқаруға мүмкіндік беретін программа.
  2. A. Работа была выполнена к 6 часам. \ Жұмыс сағат 6-ға таман орындалды.
  3. Flash MX-те жұмыс жасау мүмкіндігі
  4. Microsoft Word бағдарламасымен және гипертекстпен жұмыс істеу.
  5. Ажет материалыңды табу, іздеу машиналарымен жұмыс істеу.
  6. Дыбыспен жұмыс
  7. Еңбек және жұмыспен қамтуды мемлекеттік реттеу

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

Орындалуы: Пуск> Все программы> 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; просмотров: 185 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Тәжірибелік жұмыс №3| Тәжірибелік жұмыс №6

mybiblioteka.su - 2015-2024 год. (0.009 сек.)