Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

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






Секция Baggage.






Data Files батырмасы Ms HW тірізеден диалог терезесі ашылады, файлдың анық талуы, іздеу кітапханасыда пайдалынады. Осы файалдардың тізімі [Baggage] секциясын жоба файлын сақ тайды.

 

Delphi-де программалау элементтері

1. Тармақ талу командасы. RadioButton компоненті.

Тармақ талу командасының қ ысқ а жә не толық нұ сқ алары бар. Олардың жазылу тү рлері Турбо Паскальдағ ы сияқ ты:

1) if P then S //қ ысқ а нұ сқ а

2) if P then S1 else S2 //толық нұ сқ а

мұ ндағ ы P– шарт; S, S1, S2- орындалуы тиіс сериялар (бір блоктық операторлар). Егер блок бірнеше операторлардан тұ рса, олар бір қ ұ рама оператор ретінде қ арастырылып, begi – end операторлық жақ шылардың ішіне жазылады:

If P then begin

S1

End

Else begin

S2

End;

Блокқ а енгізілген оператор тек біреу болса, оны операторлық жақ шаларғ а алу міндетті емес.

Мысал. RadioButton компоненттерін пайдаланып, геометриялық фигуралардың аудандарының формулалары жө нінде анық тамалық программа қ ұ ру керек.

1. Жаң а жоба ашу. Формағ а Memo1, RadioButton1, …RadioButton4, BitBtn1, BitB2 компоненттерін орнату. (1 - сурет).

RadioButton - байланысты ауыстырып қ осқ ыш компонент. Формада оның кемінде екеуі орнатылуы тиіс. Олар Checked қ асиеті арқ ылы анық талатын тек екі кү йде болуы мү мкін: True жә не False. жоба іске қ осылып, кө рінген формада қ ай ауыстырып қ осқ ыш шертілсе (Check қ асиетіне True мә ні меншіктелсе), программада осығ ан сә йкес программа бө лімі орындалады.

1 - сурет Калькулятор ү шін дайындалғ ан

2. Компоненттер қ асиеттеріне мә ндер меншіктеу:

Компонент Қ асиет Мә н
Form1   RadioButton1 RadioButton2 RadioButton3 RadioButton4 BitBtn1 BitBtn2 Caption Font Caption Caption Caption Caption Kind Kind Геометрия-анық тамалық Tmes Kaz, 11 Ү шбұ рыш Тіктө ртбұ рыш Дө ң гелек Трапеция BkOK BkClose

 

3. ОК батырмасын екі рет шертіп, батырманың OnClickоқ иғ асын ө ң деуіш процедурасын қ ұ ру:

Procedure Tform1.BitBtn1Click(Sender: TObject);

Begin

If RadioButton1.Checked then

Begin Memo1.Lines.clear;

Memo1.Lines.Add(S=ah/2);

Memo1.Lines.Add(‘a – ү шбұ рыш табаны, h - биіктігі’);

End;

If RadioButton2.Checked then

Begin Memo1.Lines.clear;

Memo1.Lines.Add(S=ab);

Memo1.Lines.Add(‘a – тіктө ртбрыш табаны, b- биіктігі’);

End;

If RadioButton3.Checked then

Begin Memo1.Lines.clear;

Memo1.Lines.Add(S=Pi*r*r);

Memo1.Lines.Add(‘r- дө ң гелек радиусы, Pi – 3, 14’);

End;

If RadioButton4.Checked then

Begin Memo1.Lines.clear;

Memo1.Lines.Add(S=(a+b)*h/2);

Memo1.Lines.Add(‘a, b – тіктө ртбрыш табаны, h- биіктігі’);

End;

End;

4. Жобаны сақ тап, - іске қ осу. Кө рінген формадан қ ажетті фигураның атауын таң дап, ОК батырмасын шерту. Мысалы, «Трапеция» қ атарындағ ы ауыстырып-қ осқ ыш орнатылса, ө рісінде нә тиже кө рінеді (1-сурет).


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал