DELPHI визуал дастурлаш муҳити компоненталари билан ишлаш технологиялари - Informatika va AT - Referatlar

DELPHI визуал дастурлаш муҳити компоненталари билан ишлаш технологиялари

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

188 KB

Ko'chirib olish

DELPHI визуал дастурлаш муҳити компоненталари билан ишлаш технологиялари Режа: 1. Label, Edit, Memo матн компонентлари ва Button тугмачаси 2. Лойиҳани сақлаш. Иловани компиляция қилиш ва ишга тушириш. 3. Танлаш тугмаларини ўрнатиш

Label белгиси. Белги тушунтиришлар, номлар, мавзулар ва бошқа ҳар хил турдаги матнли маълумотларни экранга жойлаштириш учун ишлатилади. Белги учун Caption асосий хоссалардан бири бўлиб, унда экранга чиқариладиган матн жойлашади. Матнни экранга жойлаш учун Delphiнинг Standart палитрасидан (ускуналар панелидан) “ A” пиктограммаси белгиланиб форма устига келинади ва сичқонча тугмачасини босган ҳолда матн жойлаштирилиши лозим бўлган жой ажратилади. Натижада Label1 матн майдони ҳосил қилинади ва Caption хоссасига кирилиб керакли матн терилади. Матнга ишлов бериш учун (масалан, катталаштириш ёки кичиклайтириш; курсив ёки қалин қилиш ва бошқа) яъни унга ўзгартириш киритиш учун керакли хосса танланиб улар ўзгартирилади. Маслан, киритилган матнни катталаштириш ёки кичиртиш учун олдин матн майдони ажратилиб, кейин Font хоссасига кирилади ва мулоқот дарчасидан шрифт, унинг ўлчами ва ранги танланиб Ок тугмаси босилади. Label компонентаси нафақат маълумотларни экранга жойлаш-тириш учун хизмат қилади, балки дастур натижаларини чиқаришда ҳам ишлатиш мумкин. Бунинг учун дастурда Label5.caption:='Дастур натижаси'; буйруғи берилиши керак. Мисол , Label5.caption:=' Ечим ='+s; бу ерда s:String ў згарувчиси . Edit киритиш қ атори . Edit киритиш қ атори матнни бир қ атордан киритиш ва уни та ҳ рирлаш учун ишлатилади . Матн киритиш қ аторини экранга жойлаш учун Delphi нинг Standart палитраси ( ускуналар панели ) дан “ ab” пиктограммаси белгиланиб форма устига келинади ва сич қ онча тугмачасини босган ҳ олда матн киритилиши лозим б ў лган жой ажратилади . Натижада Edit1 матн киритиш майдони ҳ осил қилинади . Матнни киритиш дастур ишчи ҳ олатига ўтилганда бажарилади .

Матн қаторига киритилган маълумот фақат матн , яъни String ( қатор ) бўлиб ҳ исобланади . Edit киритиш қаторида киритилган маълумотни дастурда ўқиб ва уни рақамга ўтказиш учун кўп ҳ олларда Val функциясидан фойдаланилади . Бу функция Турбо Паскалда қуйилагича ёзилади . Val(Edit1.Text,a,cod) - бу ерда a: Real; - ўзгаручиси бўлиб , Edit1.Text майдонидаги маълумотни рақам қилиб ўзлаштиради . cod: Integer; деб эълон қилинади . Memo матн чиқариш қатори . Memo матнларни бир неча қатор қилиб чиқариш учун ишлатилади . Memo матн чиқариш қатори ни экранга жойлаш учун Delphi нинг Standart палитраси ( ускуналар панели ) дан “ ab” пиктограммаси ёнидаги Memo тугмаси белгиланиб форма устига келинади ва сичқонча тугмачасини босган ҳ олда матн чиқарилиши лозим бўлган жой ажратилади . Натижада Memo1 матн чиқариш майдони ҳ осил қилинади . Бу матн чиқариш майдони дастурда натижаларни чиқаришда қўл келади . Натижани чиқаоишда у дастур ичида қуйидагича ишлатилади . Memo1.Lines.add(' Ечим ='+S); Memo майдонини тозалаш эса натижани чиқаришдан олдин модулда Memo1.Clear; буйруғини бериш билан амалга оширилади . Button тугмачаси . Button тугмачаси босилиши натижасида кутилиши лозим бўлган жараёнлар ( масалан , ҳ исоблашлар ёки бажарилиши лозим бўлган операциялар ) бажарилишга туширилади . Button тугмачасини экранга жойлаш учун Delphi нинг Standart палитраси ( ускуналар панели ) дан “ Ok” пиктограммаси белгиланиб форма устига келинади ва сичқонча тугмачасини босган ҳ олда тугмача қўйилиши лозим бўлган жой ажратилади . Натижада Bottom1 тугмачаси ҳ осил қилинади . Тугмача номини ўзгартириш Caption хосасига кирилиб ўзгартирилади .

Дастурдаги ҳ исоблаш жараёнлари , киритиш ва чиқариш операциялари ҳ осил қилинган тугмачани икки марта тез - тез босиш билан “ собитияни қийта ишлаш ” дарчасига ўтилиб , у ердан модул ичига керакли операторларни ёзиш билан амалга оширилади . Бошланғич форма иловасини яратиш Delphi да бошланғич формани тузиш форма Form1 хоссаларини ўзгартириш билан бошланади . Форма хоссаларини унинг ташқи кўринишини , яъни унинг ўлчами , экранда жойлашиши , ойнаси кўриниши ва сарлов ҳ а матнини аниқлаб беради . Унинг хоссалари Object Inspector ойнасида келтирилган бўлиб , ойнанинг чап устунида хосса номлари ва ўнг устунида унинг қийматлари берилган . Формага янги компоненталарни жойлаштириш унча ката қийинчилик туғдурмайди. Бирор бир компонентани жойлаштириш учун уни компоненталар политрасидан белгилаб олиб, кейин уни бир марта чиқиллатиш керак ва кейин хоссаларини ўзгартириш учун унинг формадаги кўринишини сичқончада яна бир марта чиқиллатиш зарур. Масалан, Label (метка) компонентасини формага жойлаштириш учун уни Standart компоненталар политрасидан топиб у сичқончада бир марта чиқилатилади, натижада формада у Label 1 ном билан жойлашади. Бу компонента формага ҳар хил матнларни жойлаштириш учун хизматқилади. Унинг бошланғич ҳолатини ва хоссаларини ўзгартириш учун уни формадан белгилаймиз. Унинг Label 1 стандарт номини ўзгартириш учун объект инспектори ойнасидан Caption хоссасига кирамиз ва Label 1 номни ўчириб ўрнига, масалан, “Менинг биринчи дастурим” деган сўзни ёзамиз. Ёзилган матн ранги ва ўлчамини ўзгартириш эса Font хоссасига кирилиб Size ва Color параметрларини ўзгартириш билан амалга оширилади.

Яна бир компонентани - Botton (тугмача) компонентасини формага жойлаштирайлик. Бу компонента дастурчи томонидан берилган (киритилган) дастур кодларини ишга тушириш учун мўлжалланган. Унга ходисаларни қайта ишловчи ( On Click - обработчик события) дейилади. М и с о л 1. Delphi нинг имкониятларини ва унинг визуал лойиҳалаш воситаси технологиясини намойиш этиш учун мисол тариқасида квадрат тенглама ечимларини топиш дастурини яратишни қарайлик. Бунинг учун лойиҳанинг бошланғич элементларини яратишдан бошлайлик. Delphi фойдаланувчига Form 1 номли стандарт формани таклиф этади. Формага янги , ҳисоб ва чи қиш тугмачаларини жойлаштириш учун стандарт компоненталар палитрасидан форманинг керакли жойларига қўйилади ва кейин улар номлари, яъни қийматлари хоссадан аниқланади. Натижада қуйидаги формага эга бўлинади.

Ҳ одиса ва уни қайта ишлаш. Яратилган форма илованинг қай тарзда ишлашини кўрсатиб беради. Формадаги буйруқ тугмачалари бирор иш бажариши учун улар сичқончада кўрсатилиб чиқиллатилади. Сичқончада тугмачани чиқиллатиш (босиш) ходисага мисол бўлиб, у илованинг ишлаш жараёнида ҳосил бўлади. Бу ерда ҳ одиса сўзини юз берадиган жараён деб тушиниш керак. Ҳ одисаларга жавоб Delphi да уларнинг қайта ишловчи процедуралар кўринишида ташкил қилинади. T urbo Pascal тилида ёзиладиган бу процедуралар ҳ одиса қайта ишловчиси ( “обработчик”) деб аталади. Delphi автоматик равишда қайта ишловчига иккита қисмдан иборат ном беради. Биринчи қисм ном формани, объектга кирувчиларни ўз ичига олиб, иккинчи қисм ном эса айнан объект ўзини ва қайта ишловчини акс эттиради. Бизнинг мисолимизда форма номи - Form 1, биринчи буйру қ тугмаси номи “ҳисоб” - Button 1, қайта ишловчи номи эса - Click . Энди Begin ва End орасига қайта ишловчи бажарувчи Паскаль тилидаги операторларни қуйидаги процедурада киритиш мумкин. Бу процедура “ҳисоб” тугмасини икки марта тез-тез чиқиллатиш билан экранга чақирилади. Procedure Tform1.Button1click(Sender:Tobject); Var A,B,C:Real; D:Real; X1,X2:Real; S1,S2:String[7]; Code:Integer; Begin

Val(Edit1.Text,a,Code); Val(Edit2.Text,b,Code); Val(Edit3.Text,c,Code); If a =0 Then Label 6 .Caption:=’ Хато ! ’+С hr (13) +’Ноъмалум иккинчи даражаси коэффиценти’ +Chr(13)+’ нольга тенг ’ Else Begin d:=b*b-4*a*c; x1:=(-b+Sqrt(d))/(2*a); x2:=(b+Sqrt(d))/(2*a); Str(x1:7:3,S1); Str(x2:7:3,S2); Label 6 . Caption :=’ Тенглама илдизлари :’ +Chr(13)+’x1=’+S1 +Chr(13)+’x2=’+S2; End; End;

Келтирилган дастур матнида Turbo Pascal нинг оддий Read ва Write ( Киритиш ва чи қ ариш ) операторлари ишлатилмаган . Ў згарувчилар қ ийматини киритиш тахрирлаш майдонидан Text хоссасига мурожаат қ илиш билан амалга оширилади . Киритилган ўзгарувчилар қ иймати матн бўлгани учун улар Val функцияси ёрдамида ра қ амга ўтказилади . Квадрат тенгламанинг илдизлари x1 ва x2 лар қ ийматлари Str функцияси ор қ али мос равишда s1 ва s2 ўзгарувчиларга матнли қ илиб ўзатилади . Натижани экранга матн кўринишида бериш учун Label 6 . Caption меткасига қ иймат қ илиб юборилади . Худди шундай “ янги ” ва “ чи қ и ш ” тугмачалари учун ҳам қ айта ишловчи процедураларини ташкил қилиш керак . Улар матнлари қуйидаги кўринишга эга . Procedure Tform1.Button2Click(Sender:Tobject); Begin Edit1.Text:=’ ‘; Edit2.Text:=’ ‘; Edit3.Text:=’ ‘; Label2.Caption:=’ ‘; Edit1.SetFocus; End; Procedure Tform1.Buton3click(Sender: Tobject);

Begin Form1.Close; End; Лойи ҳ ани са қ лаш . Иловани компиляция қилиш ва ишга тушириш. Лойиҳани сақлашда Delphi бир неча файл ташкил қилади. Айримлари лойиҳа бутун лойиҳани тавсифлашни, бошқалари форма ва дастур модулини тавсифлашни ўз ичига олади. Агар ҳали сақланмаган лойиҳа бўлса Файл ( File ) менюсидан Сохранить проект ( Save Project ) буйруғи берилади ва кейин дастур модули ва проект номи берилади. Лойиҳани бо ғ лаб бўлгандан сўнг Compile менюсидан compile (Компилировать) буйруғи берилади. Агар дастурда синтаксик хато бўлмаса экранда компиляция тўғри ўтганлиги ҳақида хабар берилади. Агар компиляция дастурда қандайдир хатони топса хато ҳақида экранга маълумот беради. Компи л яциядан тўғри ўтган дастур учун махсус - .exe кенгайтмали файл тузиб беради ва у файлни Delphi тизимисиз ишлатиш мумкин. Delphi тизимидан чиқмасдан туриб иловани ишга тушириш мумкин, бунинг учун Run менюсининг Run буйруғини ёки F 9 тугмачасини босиш кифоя бўлади. Юқоридаги мисол учун илова ишга туширилиб a , b ва c қийматлари киритилиб “хисоб” тугмаси босилса дастур қуйидаги натижани экранга чиқади.

Процедура TForm 1. Button 2 Click “янги” тугмачасини сичқончада чиқиллатиш билан ишлайди ва тахрирлаш майдонига курсорни коэффициент қийматларини киритиш учун олиб келиб қўйади. Процедура TForm 1. Button 3 Click “тамом” тугмачасини сичқончада чиқиллатиш билан ишлайди ва формани ёпади. Танлаш тугмаларини ўрнатиш RadioGroup гурухли танлаш тугмалари иловалар яратишда бир неча вариантлардан бирини танлаш учун ишлатилади. Бу компонента Standart компоненталар палитрасида жойлашган бўлиб, у кўринишдаги пиктограммага эга. Унинг асосий хоссаси Items бўлиб, у тугмалар номлари рўйхатини ўзида сақлайди. Тугмалар номлари рўйхатини киритишда олдин RadioGroup тугмаси учун формадан жой ажратилади ва кейин Items хоссаси кўрсатилиб, ундан уч нуқтали тугмача босилади, натижада StringList Editor ойнаси очилади. Бу ойнадан танлаш тугмалари номларининг ҳар қайсиси янги қатордан киритилади ва кейин Ok тугмаси босилади. Формага RadioGroup гуруҳли танлаш тугмаси жойлаштирилганда у RadioGroup1 ном

билан ёзилади. Бу номни бошқа мос номга алмаштириш Caption хоссасига кириб амалга оширилади. CheckListBox компонентаси рўйхатдан бир нечтасини танлаш имконини беради. CheckListBox компонентаси Additional палитрасида жойлашган. RadioGroup боғлик переключателларни, CheckListBox эса боғлиқ бўлмаган переключателларни бирлаштиради. Бунда ключател уч хил ҳолатда бўлиши мумкин: -ёқилган (включен) -тўғри белгиси; -ўчирилган (выключен) -бўш белгиси; -нейтрал ҳолат -кўкиш рангда тўғри белгиси. CheckListBox нинг асосий хоссалари: AllowGryer -учинчи нейтрал ҳолат вариантини ишлатишни тақиқлайди; Items –Танлаш тугмалари номлари рўйхатини сақлайди. М ис о л 2 . Edit киритиш қаторида терилган матн ҳолатини ўзгартирувчи илова яратиш. Е ч и ш 1.Янги илова яратамиз. 2.Формага Standart компоненталар палитрасидан RadioGroup компонентасини уч марта RadioGroup 1, RadioGroup 2, RadioGroup 3 номлар билан ўрнатамиз ва унинг caption хоссаси қийматига мос равишда “ёзув”, “ўлчам” ва “ранг” қийматларни берамиз

3. Items хоссасига ўтамиз. Ундан уч нуқтали тугмачани босиб, StringList Editor ойнасига кирамиз ва бу ойнадан ключателлар номларини ҳар қайсисини янги қатордан киритамиз: RadioGroup 1 -компонентаси учун обычный курсив полужирный полужирный курсив RadioGroup 2 -компонентаси учун 8 10 12 14 RadioGroup 3 -компонентаси учун черный зеленый красный синий Ҳар қайсиси учун киритишни тугатгандан сўнг Ok тугмаси босилади. 4. C hec kListBox компонентасини Additional палитрасидан олиб формага ўрнатамиз ва унинг Items хоссасига кириб выключателлар номларини киритамиз. Зачеркнутый

Подчеркнутый 5. Edit компонентасини Standart палитрасидан олиб формага ўрнатамиз ва унинг Text хоссасига “Компьютер” қийматини киритамиз. 6.Мос равишда C hec kListBox ва Edit 1 компонентаси рамкалари юқорисига Label 1 ва label 2 меткаларини ўрнатамиз ва уларнинг Coption хоссасига “Атрибутлар” ва “Образецлар” қйиматини берамиз. 7. RadioGroup 1 компонентаси майдонини икки марта тез босамиз ва пайдо бўлган кодларни киритиш майдонига қуйидаги кодларни киритамиз. Case RadioGroup1.ItemIndex of 0: Edit1.Font.Style:=[ ]; 1: Edit1.Font.Style:=[FsItalic]; 2: Edit1.Font.Style:=[FsBold]; 3: Edit1.Font.Style:=[FsItalic,FsBold]; End; 8.RadioGroup2 компонентаси майдонини икки марта тез тез босамиз ва пайдо б ў лган кодларни киритиш майдонига қ айидаги кодларни киритамиз . Case RadioGroup2.ItemIndex of 0: Edit1.Font.Size:=8; 1: Edit1.Font.Size:=10; 2: Edit1.Font.Size:=12; 3: Edit1.Font.Size:=14;

End; 9.RadioGroup3 компонентаси майдонини икки марта тез босамиз ва пайдо бўлган кодларни киритиш майдонига қайидаги кодларни киритамиз. Case RadioGroup3.ItemIndex of 0: Edit1.Font.Color:=ClBlack; 1: Edit1.Font.Color:=ClGreen; 2: Edit1.Font.Color:=ClRed; 3: Edit1.Font.Color:=ClBlue; End; 10. CheckListBox компонентаси майдонини икки марта тез босамиз ва пайдо бўлган кодларни киритиш майдонига қайидаги кодларни киритамиз. If CheckListBox1.Checked[0] Then Edit1.Font.Style:=Edit1.Font.Style+[FsStrikeOut] Else Edit1.Font.Style:=Edit1.Font.Style-[FsStrikeOut]; If CheckListBox1.Checked[1] Then Edit1.Font.Style:=Edit1.Font.Style+[FsUnderLine] Else Edit1.Font.Style:=Edit1.Font.Style-[FsUnderline];

11.Тузилган лойиҳа (проект) яъни Project1 ва Unit1 стандарт модул номларини мос номлар билан алмаштириб сақлаймиз. 12.Янги ном билан сақланган лойиҳа (проект), яъни илова F9 тугмачасини босиш билан ишга тушурилади. Илова ишга туширилганда унинг қуйидаги кўриниши экранда намоён бўлади. Энди илова билан ишлаш мумкин . Ташкил қилинган модулнинг тўлиқ кўринишини келтирамиз. unit pxx2; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst; type TForm1 = class(TForm) Edit1: TEdit; CheckListBox1: TCheckListBox; Label1: TLabel; Label2: TLabel; RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; RadioGroup3: TRadioGroup; procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); procedure RadioGroup3Click(Sender: TObject); procedure CheckListBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RadioGroup1Click(Sender: TObject); begin Case RadioGroup1.ItemIndex of 0: Edit1.Font.Style:=[ ]; 1: Edit1.Font.Style:=[FsItalic]; 2: Edit1.Font.Style:=[FsBold]; 3: Edit1.Font.Style:=[FsItalic,FsBold]; End; { CheckListBox1ClickCheck(Self);} end; procedure TForm1.RadioGroup2Click(Sender: TObject); begin Case RadioGroup2.ItemIndex of 0: Edit1.Font.Size:=8;

1: Edit1.Font.Size:=10; 2: Edit1.Font.Size:=12; 3: Edit1.Font.Size:=14; End; end; procedure TForm1.RadioGroup3Click(Sender: TObject); begin Case RadioGroup3.ItemIndex of 0: Edit1.Font.Color:=ClBlack; 1: Edit1.Font.Color:=ClGreen; 2: Edit1.Font.Color:=ClRed; 3: Edit1.Font.Color:=ClBlue; End; end; procedure TForm1.CheckListBox1Click(Sender: TObject); begin If CheckListBox1.Checked[0] Then Edit1.Font.Style:=Edit1.Font.Style+[FsStrikeOut] Else Edit1.Font.Style:=Edit1.Font.Style-[FsStrikeOut];

If CheckListBox1.Checked[1] Then Edit1.Font.Style:=Edit1.Font.Style+[FsUnderLine] Else Edit1.Font.Style:=Edit1.Font.Style-[FsUnderline]; end; end. ListBox ва ComboBox компоненталари ListBox компоненти рўйхат ва массив кўринишдаги маълумотларни экранга акс этдиришда ишлатилади . Маълумотларни киритишда эса Edit компонентасидан фойдаланилади . ListBox компонентаси Standart компоненталар палитрасида жойлашган бўлиб , у кўринишдаги пиктограммага эга . Бу тугмачани босиб формадан рўйхат учун жой ажратилади ва кейин эса хоссалари ани қ ланади . Унинг айрим асосий хоссалари: Items -рўйхат элементларини беради; Sorter -рўйхат элементларини алфавит бўйича автоматик равишда тартиблайди; Clear -барча рўйхат элементларини ўчиради. ComboBox компоненти рўйхат ва массив кўринишдаги маълумотларни экрандан киритиш учун ишлатилади. У ListBox ва Edit компоненталарининг биргаликдаги ишини бир ўзи бажаради. Ташқи кўринишдан бу компонент оддий Edit киритиш қаторини эслатади. Унинг ўнг қисмида пастга белгиси бўлиб, киритилеётган маълумотларни кўриб бориш мумкин. Бу компонента

Standart компоненталар палитрасида жойлашган бўлиб, у кўринишдаги пиктограммага эга. Бу тугмачани босиб формадан рўйхат учун жой ажратилади ва кейин эса хоссалари аниқланади. Унинг айрим асосий хоссалари: DropDownCount -рўйхатдаги экранга чиқадиган маълумотлар сонини аниқлайди. Бу хоссанинг бошланғич қиймати 8 га тенг бўлади. Агар экранга чиқадиган маълумотлар сонини 10 та бўлсин десак, унда унинг қийматини 10 га ўзгартириш керак бўлади. Агар киритилган маълумотлар ундан ортиқ бўлса у ҳолда пастга ва юқорига силжитиш тугмачаси автоматик равишда пайдо бўлади; Style -рўйхатдаги маълумотнинг кўринишини тасвирлайди; Text -рўйхатдаги киритилган маълумот матн эканини балдиради. М и с о л 3. Бутун қийматли A (10) массив элементлари ичидан энг ката ва энг кичиклари топилсин. Иловада Listbox компонентасини ишлатинг. Е ч и ш 1.Янги илова яратамиз. 2.Формага Standart компоненталар палитрасидан Listbox компонентасини ListBox 1 ном билан, Edit компонентасини Edit 1 ном билан ва иккита Botton 1 ва Botton 2 тугмаларини ўрнатамиз. 3. Edit компонентасинининг text хоссасига кириб Edit 1 қийматини бўш қатор қилиб берамиз.

4. Botton 1 ва Botton 2 тугмачаларининг Caption хоссасига кириб уларни “Киритиш” ва “Ечиш” қийматига тенглаштирамиз. 5.”Ечиш” тугмаси пастига “ Memo ” компонентасини “ Memo 1” ном билан ўрнатамиз. 6.Форма устига сичқончада икки марта босиб, кодларни ёзиш ойнасига ўтамиз ва қуйидагиларни киритамиз: i :=0; ListBox 1. Clear ; Inteface бўлимига массив ва ишлатиладиган ўзгарувчиларни Var сўзидан кейин тавсифлаймиз. a:Array[1..10] of integer; k,i,maxx,minn: Integer; s1,s2: String; 7.”Киритиш” тугмасини активлаштириш учун уни икки марта тез-тез босиб, кодларни ёзиш ойнасига ўтамиз ва қуйидагиларни киритамиз: ListBox1.Items.Add(Edit1.text); i:=i+1; a[i]:=StrToInt(Edit1.text);

Edit1.SetFocus; 8.”Ечиш” тугмасини активлаштириш учун уни икки марта тез-тез босиб, кодларни ёзиш ойнасига ўтамиз ва қуйидагиларни киритамиз: minn:=a[1]; maxx:=a[1]; For k:=1 to 10 do Begin If minn>a[k] Then Minn:=a[k]; If maxx<a[k] Then maxx:=a[k]; End; Str(maxx:5,S1); Str(minn:5,S2); Memo1.Clear; Memo1.Lines.Add(' Энг каттаси ='+s1); Memo1.Lines.Add(' Энг кичиги ='+s2); 9.Киритиш фокуси Edit1 киритиш қаторида туриши учун уни икки марта босиб кодларни ёзиш ойнасига ўтамиз ва қуйидагини киритамиз:

If key=13 Then Button1.SetFocus; 10.Тузилган лойиҳа (проект) яъни Project1 ва Unit1 стандарт модул номларини мос номлар билан алмаштириб сақлаймиз. 11.Янги ном билан сақланган проект, яъни илова F 9 тугмачасини босиш билан ишга тушурилади. Илова ишга туширилганда унинг қуйидаги кўриниши экранда намаён бўлади. Массив элементи қ ийматларини киритиб , “ Ечиш ” тугмасини босамиз ва натижада қ уйидаги натижага эга б ў ламиз .

Ташкил қилинган модулнинг тўлиқ кўринишини келтирамиз. unit pxx3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; Edit1: TEdit;

Memo1: TMemo; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1KeyDown(Sender: TObject;var key: Word; Shift: TshiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:Array[1..10] of integer; k,i,maxx,minn:Integer; s1,s2:String; implementation {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add(Edit1.text); i:=i+1; a[i]:=StrToInt(Edit1.text); Edit1.SetFocus; end; procedure TForm1.FormCreate(Sender: TObject); begin i:=0; ListBox1.Clear; end; procedure TForm1.Button2Click(Sender: TObject); begin minn:=a[1]; maxx:=a[1]; For k:=1 to 10 do Begin If minn>a[k] Then Minn:=a[k];

If maxx<a[k] Then maxx:=a[k]; End; Str(maxx:5,S1); Str(minn:5,S2); Memo1.Clear; Memo1.Lines.Add('Энг каттаси='+s1); Memo1.Lines.Add('Энг кичиги ='+s2); end; procedure TForm1.Edit1KeyDown(Sender: TObject;var key: Word; Shift: TshiftState); Begin If key=13 Then Button1.SetFocus; End ; end . М и с о л 4 . Бутун қийматли A (10) массив элементлари ичидан энг ката ва энг кичиклари топилсин. Иловада ComboBox компонентасини ишлатинг. Е ч и ш 1.Янги илова яратамиз.

2.Формага Standart компоненталар палитрасидан ComboBox компонентасини ComboBox 1 ном билан, Memo компонентасини Memo 1 ном билан ва иккита Botton 1 ва Botton 2 тугмаларини ўрнатамиз. 3.Олдинги мисол каби бу компоненталарнинг хоссаларини ҳам ўрнатамиз ва дастур кодларини ҳам киритамиз. Ҳамма дастур кодлари “киритиш” тугмасига боғлиқ, яъни Botton 1 модули кодлари қуйидагича бўлади. ComboBox1.Items.Add(Combobox1.text); i:=i+1; a[i]:=StrToInt(ComboBox1.text); ComboBox1.SetFocus; 4.Тузилган лойиҳа (проект) яъни Project1 ва Unit1 стандарт модул номларини мос номлар билан алмаштириб сақлаймиз. 5.Янги ном билан сақланган проект, яъни илова F 9 тугмачасини босиш билан ишга тушурилади. Илова ишга туширилганда унинг қуйидаги кўриниши экранда намаён бўлади.

Ташкил қилинган модулнинг тўлиқ кўринишини келтирамиз. unit s1p; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton;

Memo1: TMemo; Label1: TLabel; ComboBox1: TComboBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:Array[1..10] of integer; k,i,maxx,minn:Integer; s1,s2:String; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin

ComboBox1.Items.Add(ComboBox1.text); i:=i+1; a[i]:=StrToInt(ComboBox1.text); ComboBox1.SetFocus; end; procedure TForm1.FormCreate(Sender: TObject); begin i:=0; ComboBox1.Clear; end; procedure TForm1.Button2Click(Sender: TObject); begin minn:=a[1]; maxx:=a[1]; For k:=1 to 10 do Begin If minn>a[k] Then Minn:=a[k]; If maxx<a[k] Then maxx:=a[k]; End;

Str(maxx:5,S1); Str(minn:5,S2); Memo1.Clear; Memo1.Lines.Add(' Энг каттаси ='+s1); Memo1.Lines.Add(' Энг кичиги ='+s2); end; End.

O'xshashlar

DELPHI визуал дастурлаш муҳити ҳақида асосий тушунчалар

Компьютер тармоқларида маълумотлар билан ишлаш технологиялари

Delphi дастурлаш мухитининг ёрдам тизими

Дастурлашнинг янги технологиялари сифатида объектга йўналтирилган дастурлаш технологияларидан фойдаланиш

Алгоритмлаш ва дастурлаштириш асослари