Главная страница
Рефераты
Информатика и ИТ
DELPHI визуал дастурлаш муҳити компоненталари билан ишлаш технологиялари
DELPHI визуал дастурлаш муҳити компоненталари билан ишлаш технологиялари
Загружено в:
20.09.2019
Скачано:
0
Размер:
188 KB
Скачать
Похожие
DELPHI визуал дастурлаш муҳити ҳақида асосий тушунчалар
Компьютер тармоқларида маълумотлар билан ишлаш технологиялари
Delphi дастурлаш мухитининг ёрдам тизими
Дастурлашнинг янги технологиялари сифатида объектга йўналтирилган дастурлаш технологияларидан фойдаланиш
Алгоритмлаш ва дастурлаштириш асослари
![Ҳ одиса ва уни қайта ишлаш. Яратилган форма илованинг қай тарзда ишлашини кўрсатиб беради. Формадаги буйруқ тугмачалари бирор иш бажариши учун улар сичқончада кўрсатилиб чиқиллатилади. Сичқончада тугмачани чиқиллатиш (босиш) ходисага мисол бўлиб, у илованинг ишлаш жараёнида ҳосил бўлади. Бу ерда ҳ одиса сўзини юз берадиган жараён деб тушиниш керак. Ҳ одисаларга жавоб 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](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-6.png)
![Подчеркнутый 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;](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-13.png)
![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];](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-14.png)
![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;](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-17.png)
![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];](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-18.png)
![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 киритиш қаторини эслатади. Унинг ўнг қисмида пастга белгиси бўлиб, киритилеётган маълумотларни кўриб бориш мумкин. Бу компонента](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-19.png)
![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);](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-21.png)
![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 киритиш қаторида туриши учун уни икки марта босиб кодларни ёзиш ойнасига ўтамиз ва қуйидагини киритамиз:](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-22.png)
![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}](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-25.png)
![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];](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-26.png)
![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.Янги илова яратамиз.](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-27.png)
![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 тугмачасини босиш билан ишга тушурилади. Илова ишга туширилганда унинг қуйидаги кўриниши экранда намаён бўлади.](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-28.png)
![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](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-30.png)
![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;](/data/documents/f83a4ef8-e0cb-4f8e-8b40-bc87b1caeb90/page-31.png)
