Delphi визуалды программалау ортасы



бет80/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   76   77   78   79   80   81   82   83   ...   97
19-сурет
3. «Тазарту» батырмасы басылғанда өріс тазарады. Әрі қарай өріске жаңа мән енгізіле береді.

4. Бағдарламадан шығу үшін тақырып жолындағы «Жабу» батырмасын шерту керек.


Бағдарламаны іске асыру жоспарының сипаттамасы

1. Жаңа жоба ашу.

2. Пішінге мына компоненттерді: Button басқару батырмасын, Label жазуын, Edit мәтіндік өрісін орналастыру.

3. Мына кестеде жазылған әрекеттерді орындау:



11 - кесте

Белгі-ленген нысан

Object Inspector терезесінің астары

Қасиеттің

аты/


Оқиғаның

аты


Атқарылатын әрекет

Form1

Properties

Caption

Пішінге «Пайызды есептеу» атын орнату

Label1

Properties

Caption

«Пайызды есептеу» атын енгізу

Edit1

Properties

Text

Қасиеттің мәнін тазалау

Edit2

Properties

Text

Қасиеттің мәнін тазалау

Edit3

Properties

Text

Қасиеттің мәнін тазалау

Button1

Properties

Caption

«Есептеу» атын енгізу

Events

OnClick

Number, Procent, Prn айнымалыларын сипаттау

Button2

Properties

Caption

«тазарту» мәнін енгізу

Events

OnClick

Editl.Text:-''; Edit2.Text:=''; Edit3.Text:='';

4. Жобаны сақтаңыз, оны іске қосып орындалуын тексеріп көріңіз.
Бағдарлама үзіндісі.

var


Number, Procent, Prn: Real; procedure TForm1.Button1Click(Sender: TObject); begin

Number:=StrToFloat(Edit1.Text); Procent:= StrToFloat(Edit2.Text); PrN:=0.01*Procent*Number; Edit3.Text:=FloatToStr(PrN); end;

procedure TForm1.Button2Click(Sender: TObject); begin

Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end;


12. Ллойд басқатырғышы


Жұмыстың мақсаты - Самуэл Ллойд басқатырғышының біреуінің компьютерлік нұсқасын жасау: Берілген сандар жиынынан қосындысы 50-ге тең болатын сандарды таңдау керек.

Ллойдтың өз басқатырғышы үшін таңдаған сандары мыналар:



25, 27, 3, 12, 6, 15, 9, 30, 21, 19.



20-сурет
Мына әрекеттерді орындау:

1. Бағдарлама іске қосылғанда терезеде Ллойдтың сандары көрінеді.

2. Сандарды жалаушаның көмегімен таңдап, оларды оң жақ терезеге орналастырамыз.

3. Таңдалған сандардың қосындысы жазба түрінде шығады.

4. Бағдарламадан шығу үшін тақырып жолындағы «Жабу» батырмасын шерту қажет.
Бағдарламаны іске асыру жоспарының сипаттамасы.

1. Жаңа жоба ашу.

2. Пішінге мына компоненттерді: CheckListBox жалаушаларының тізімін, Label жазуын, ListBox тізімін орналастыру.

3. Мына 13-кестеде көрсетілген әрекеттерді орындау:




12 - кесте

Белгі-

ленген


нысан

Object Inspector терезесінің астары

Қасиеттің

аты/


Оқиғаның

аты


Атқарылатын әрекет

Forml

Properties

Caption

Пішінге «Ллойд басқатырғышы» атын орнату

BorderStyle

bsSingle мәнін меншіктеу

CheckListBoxl

(Additional астары )



Properties

Items

Тізім құрамын береміз. Құрушы батырманы шертейік.Сонда String List editor (Жолдар тізімінің редакторы) терезесі ашылады. Тізімге берілген сандарды Enter арқылы енгізіңіз. OK батырмасын басыңыз.

Height

Мәндерді барлық сандар тізімге сиятындай етіп таңдаңыз (айналдыру жолағынсыз).

Events

OnClickCheck

Тізімнің тазаруын сипаттаңыз. Жалаушаның орнатылуын тексеріңіз.Тізімді жаңартқан соң таңдалған сандардың қосындысын есептеу керек. Тізім элементтері сан түрінде көрінгенімен, олар мәтіндік жолдар болып табылады (StrToInt функциясын қолдану қажет).

ListBox1

(Standard астары)



Properties

Height

Мәндерді барлық сандар тізімге сиятындай етіп таңдаңыз (айналдыру жолағынсыз). Алғашында тізім бос тұрады. Ол бағдарламамен жұмыс кезінде толтырылады.

Label1

(Standard астары)



Properties

Caption

«Қосынды: 0» мәтінін енгізіңіз

Autosize

False мәнін беріңіз

Alignment

taCenter мәнін беріңіз

4. Жобаны сақтаңыз, оны іске қосып, орындалуын тексеріп көріңіз.


Достарыңызбен бөлісу:
1   ...   76   77   78   79   80   81   82   83   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет