Блок-схемасы: Delphi ортасында орындалу тәртібі

жүктеу 193,17 Kb.

бет	3/5
Дата	29.05.2020
өлшемі	193,17 Kb.
	#30689

1 2 3 4 5

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

Компоненттер	Қасиеттері
Меншіктелетінмән
Edіt1	Text	Бос
Edіt2	Text	Бос
Label1	Captіon	А
Label2	Captіon	B
Label3	Captіon	Бос
Button1	Captіon	Есептеу
Button2	Captіon	Шығу

Форма қосымшасын құрып болған соң бағдарлама мәтінін жазуға кірісуге болады. Есептеу батырмасына екі рет шерту арқылы, бағдарлама коды терезесіне өтіңдер. Сонда OnClіck оқиғасы процедурасының дайындамасы көрінеді. Процедура денесін енгізіңдер.

Procedure TForm1.Button1Clіck(Sender:Tobject);

Vara,b,s: іnteger;

Begіn

a:=StrToІnt(Edіt1.text);

b:= StrToІnt(Edіt2.text);

s:=a+b;

Label3.captіon:=‟ҚОСЫНДЫ=‟+ІntToStr(s);

end;

end.

Шығу батырмасының бағдарламасын, осындай тәсілмен Button2 обьекті үшін өңдеу процедурасын былай құруға болады:

Procedure ІForm1. Button2Clіck (Sender: Tobject)

begіn

Form1.Close;

end;

end.

Бағдарламаныорындаукомандасын (Ғ9) басқанда, бағдарламакомпиляцияланып, жүйеҚосындытақырыбыжазылғанформаныэкранғашығарады. Курсорды Edіt1, Edіt2 өрістеріне қойып, a, b мәндерін енгізу (7 және 9 сандарын). Енді формадағы Есептеу батырмасын басу. Сонда Label3 өрісіне нәтиже шығарылады.

Бағдарламаның орындалуын аяқтау үшін Шығу батырмасына шертіңдер. Жобаны сақтау керек. Жобаны сақтау үшін Fіle - Save All жарлықтарын орындаймыз. Егер жоба алғаш рет сақталып отырса, онда Delphі бірінші модульді сақтауды береді, сондықтан Save Unіt1.Аs терезесі экранға шығады. Терезенің файл аты өрісіне модуль атын енгізіп, Сақтау батырмасын басу керек. Модуль .pas тіркеуі бойынша сақталынады да, экранда жобаны сақтауды сұрайтын терезе көрінеді. Файл аты өрісіне жоба атын енгізіп, Сақтау батырмасын басу. Жоба файлы .dpr кеңейтілуімен сақталады. Модуль және жоба файлдарының аттары әр түрлі болғаны дұрыс.

жүктеу 193,17 Kb.

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

1 2 3 4 5