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

жүктеу/скачать 2,03 Mb.

бет	80/97
Дата	06.01.2022
өлшемі	2,03 Mb.
	#12435

1 ... 76 77 78 79 80 81 82 83 ... 97

Бағдарлама үзіндісі.
12. Ллойд басқатырғышы

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	«Есептеу» атын енгізу
Button1	Events	OnClick	Number, Procent, Prn айнымалыларын сипаттау
Button2	Properties	Caption	«тазарту» мәнін енгізу
Button2	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	Пішінге «Ллойд басқатырғышы» атын орнату
Forml	Properties	BorderStyle	bsSingle мәнін меншіктеу
CheckListBoxl (Additional астары )	Properties	Items	Тізім құрамын береміз. Құрушы батырманы шертейік.Сонда String List editor (Жолдар тізімінің редакторы) терезесі ашылады. Тізімге берілген сандарды Enter арқылы енгізіңіз. OK батырмасын басыңыз.
	Properties	Height	Мәндерді барлық сандар тізімге сиятындай етіп таңдаңыз (айналдыру жолағынсыз).
	Events	OnClickCheck	Тізімнің тазаруын сипаттаңыз. Жалаушаның орнатылуын тексеріңіз.Тізімді жаңартқан соң таңдалған сандардың қосындысын есептеу керек. Тізім элементтері сан түрінде көрінгенімен, олар мәтіндік жолдар болып табылады (StrToInt функциясын қолдану қажет).
ListBox1 (Standard астары)	Properties	Height	Мәндерді барлық сандар тізімге сиятындай етіп таңдаңыз (айналдыру жолағынсыз). Алғашында тізім бос тұрады. Ол бағдарламамен жұмыс кезінде толтырылады.
Label1 (Standard астары)	Properties	Caption	«Қосынды: 0» мәтінін енгізіңіз
		Autosize	False мәнін беріңіз
		Alignment	taCenter мәнін беріңіз

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

жүктеу/скачать 2,03 Mb.

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

1 ... 76 77 78 79 80 81 82 83 ... 97