Компоненттер
|
Қасиеттері
|
Меншіктелетінмән
|
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 кеңейтілуімен сақталады. Модуль және жоба файлдарының аттары әр түрлі болғаны дұрыс
Достарыңызбен бөлісу: |
