StringGrid жадвал компонентаси - Информатика и ИТ - Рефераты

StringGrid жадвал компонентаси

Загружено в:

20.09.2019

Скачано:

0

Размер:

122.5 KB

StringGrid жадвал компонентаси Режа: 1. Delphi график имкониятлари 2. Чизиш соҳаси

StringGrid жадвал компонентаси икки ўлчовли маълумотларни , масалан матрица элементлари қ ийматини экранда жадвал кўринишда тасвирлаш , улар қ ийматини киритиш ва та ҳ рирлаш учун ишлатилади . Жадвал қ атор ва устун нумерлари нулдан бошланади . Жадвал устун ва қ аторлар сонини кераклича ўзгартириш мумкин . Бу унинг хоссаси ёрдамида ани қ ланади . Жадвалнинг ҳ ар бир кесишган устун ва сатри ячейка дейилиб , унга киритилган маълумот символ қ атори бўлиб ани қ ланади . Масалан , (3,5) ячейка тўртинчи устун ва олтинчи қ аторда жойлашган . StringGrid жадвал компонентасининг асосий хоссалари : ColCount - жадвалдаги устунлар сонини ани қ лайди ; RowCount - жадвалдаги сатрлар сонини ани қ лайди ; FixedCols - фиксирланган устунлар сонини ани қ лайди ; FixedRows - фиксирланган сатрлар сонини ани қ лайди ; Options – жадвад ҳ олатини ани қ лайди ( ани қ лаш унинг памаметрларига асосан бажарилади , масалан GoEditing параметр true қ ийматга эга бўлса ячейкани та ҳ рирлаш мумкин , акс ҳ олда мумкин эмас . Бу параметрларни аниқлаш учун Options хоссасига ўтиб у икки марта тез - тез босилади ); ColWidths - жадвалдаги ҳ ар бир устун кенглигини аниқлайди ; DefaultColWidth - жадвалнинг бошланғич устунлар кенглигини аниқлайди ; DefaultRowHeight - жадвал сатрининг бошланғич баландлигини аниқлайди ; FixedColor - фиксирланган ячейка рангини аниқлайди ; RowHeights - жадвал сатри баландлигини аниқлайди ; Cells - символ қаторли икки ўлчамли массивни аниқлайди .

М и с о л 5 . Бутун қийматли A (4,4) массив элементлари йиғиндиси ва ўрта армфметик қиймати топилсин. Е ч и ш 1.Янги илова яратамиз. 2.Формага Additional компоненталар палитрасидан StrinGrid компонентасини StrinGrid 1 ном билан, Standart компоненталар палитрасидан Memo компонентасини Memo 1 ном билан ва Botton 1 тугмаларини ўрнатамиз. 3. StrinGrid компонентасининг хоссаларини ўрнатамиз. FixedCols -0, FixedRows -0, ColCount -4, RowCount -4. Демак, ҳосил қилинадиган жадвал 4 та устун ва 4 та сатрга эга. Option хоссасига кирамиз ва уни икки марта тез-тез чиқиллатамиз. У ердан GoEditing параметрини True қийматга тенглаштирамиз. 4. Botton 1 тугмасининг Coption хоссасига кириб унинг номини “Ечиш” номига ўзгартирамиз. 5.”Ечиш” тугмасини активлаштирамиз, яъни уни икки марта тез-тез босиб дастур кодларини ёзиш ойнасига ўтамиз ва қуйидаги кодларни киритамиз. Var i,j,cod:integer;

A:array[1..4,1..4] of Real; S:real; s1:String; begin For i:=1 to 4 do For j:=1 to 4 do Val(StringGrid1.cells[i-1,j-1],a[i,j],cod); S:=0; For i:=1 to 4 do For j:=1 to 4 do s:=s+a[i,j]; Str(s:7:2,s1); Memo1.Clear; Memo1.Lines.add('Summa ='+s1); s:=s/4/4; Str(s:7:2,s1); Memo1.Lines.add('Ortacha='+s1); end; 4. Тузилган лойи ҳ а ( проект ) яъни Project1 ва Unit1 стандарт модул номларини мос номлар билан алмаштириб са қ лаймиз . 5.Янги ном билан сақланган проект, яъни илова F 9 тугмачасини босиш билан ишга тушурилади.

Илова ишга туширилганда унинг қуйидаги кўриниши экранда намаён бўлади. Ташкил қилинган модулнинг тўлиқ кўринишини келтирамиз. unit j1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) StringGrid1: TStringGrid;

Button1: TButton; Label1: TLabel; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var i,j,cod:integer; A:array[1..4,1..4] of Real; S:real; s1:String; begin

For i:=1 to 4 do For j:=1 to 4 do Val(StringGrid1.cells[i-1,j-1],a[i,j],cod); S:=0; For i:=1 to 4 do For j:=1 to 4 do s:=s+a[i,j]; Str(s:7:2,s1); Memo1.Clear; Memo1.Lines.add('Summa ='+s1); s:=s/4/4; Str(s:7:2,s1); Memo1.Lines.add('Ortacha='+s1); end; end. Delphi график имкониятлари Delphi дастурчига график дастурлар схема, чертеж, иллюстрациялар яратишга имкон беради. Дастур графикани объект (форма еки Image компонентаси) юзасига чиқаради. Объект юзасига canvas хоссаси моc келади. Объект юзасига график элемент (тўғри чизиқ, айлана, туртбурчак ва ҳоказо), чиқариш учун бу объектнинг canvas хоссасига мос усул қўллаш лозим. Мисол учун Form1.anvas. Rectangle (10,10,100,100) инструкцияси дастур ойнасида туртбурчак чизади.

Чизиш соҳаси Юкорида кўрилган canvas хоссаси -TCanvas типидаги объектдир. График примитивларни чиқариш усуллари Canvas хоссасини абстракт чизиш соҳаси деб қарайди. Чизиш соҳаси алоҳида нуқталар - пикселлардан иборат. Пиксел ҳолати унинг горизонтал (X) ва вертикал (Y) координаталари билан аниқланади. Чап юқори пиксел координаталари (0,0). Координаталар юқоридан пастга ва чапдан ўнгга қараб ўсиб боради. Соҳа ўлчовларини image компонентасининг Height и width хоссалари ва форманинг ClientHeight ва Clientwidth хоссалари орқали аниқлаш мумкин. Қ алам Қ алам геометрик фигураларни чизиш учун ишлатилади. Чизи қ к ў риниши T ре n объектининг қ уйидаги жадвалда к ў рсатилган хоссалари ор қ али ани қ ланади. Tреn (қалам) хоссалари . Хосса Таърифи Color Чизи қ ранги Width Чизи қ калинлиги Style Чизи қ к ў риниши Mode Акслантириш режими Қуйидаги жадвалда color хоссаси қиймати сифатида берилувчи номланган константалар санаб ўтилган.

Color хоссаси қийматлари. Константа Ранг Константа Ранг clBlack Қора clSilver Серебристый clMaroon Каштановый clRed Қизил clGreen Яшил clLime Салатный clOlive Оливковый clBlue Кўк (зангори) clNavy Тим - кўк clFuchsia Ярко-розовый clPurple Розовый clAqua Бирюзовый clTeal Зелено-голубой clWhite Оқ clGray Кул ранг Чизиқ қалинлиги width хоссаси орқали пикселларда берилади. Чизиқ турини style хоссаси белгилайди. Қуйидаги жадвалда чизиқ турини белгиловчи номланган константалар санаб ўтилган. Style хоссаси кийматлари . Константа Чизи қ к ў риниши psSolid Узлуксиз чизи қ psDash Пунктир чизи қ , узун штрихлар psDot Пунктир чизи қ , қ ис қ а штрихлар psDashDot Пунктир чизи қ , узун ва қ ис қ а штрихлар кетма кетлиги psDashDotDot Пунктир чизи қ , би т та узун ва икки та қ и сқ а штрихлар кетма кетлиги psClear Чизи қ акс этмайди

Mode хоссаси чизиқ рангининг фон рангига муносабатини кўрсатади. Одатда чизиқ ранги Pen.Color хоссаси қиймати билан белгиланади. Дастурчи чизиқ учун фон рангига нисбатан инверс ранг бериши мумкин. Бу ҳолда ҳатто чизиқ ва фон ранги бир хил берилган бўлса ҳам чизиқ ажралиб туради. Қуйидаги жадвалда Mode хоссаси қиймати сифатида ишлатиш мумкин бўлган константалар берилган. Mode хоссаси қ ийматлари Константа Чизиқ ранги pmBlack Қ ора, Pen. Color хоссаси қ ийматига богли қ эмас pmWhite Ок, Pen. Color хоссаси қ ийматига бо ғ ли қ эмас pmCopy Чизи қ ранги Pen. Color хоссаси қ ийматига бо ғ ли қ pmNotCopy Чизи қ ранги Pen. Color хоссаси қ ийматига инверс pmNot Чизи қ ранги со ҳ анинг мос ну қ таси рангига инверс

Муй қ алам Муй қ алам ( C anvas.Brush) ё пи қ со ҳ аларни чизиш ва со ҳ а ичини б ў яш учун м ў лжалланган усулларда н фойдаланилади. Муй қ алам объект жадвалда к ў рсатилган икки хоссага эга. TBrush (муй қ алам) хоссалари . Хосса Таърифи Color Style Епи қ со ҳ ани б ў яш ранги Со ҳ ани т ў лдириш услуби Контур ичидаги соҳа бўялиши ёки штрихланиши мумкин. Соҳани тўлдириш усулини белгиловчи константалар қуйидаги жадвалда берилган. Brush.style хоссаси қ ийматлари . Константа Со ҳ а б ў яш услуби bsSolid Узлуксиз б ў яш bsClear Со ҳ а б ў ялмайди bsHorizontal Горизонтал штрихлаш bsVertical Вертикал штрихлаш bsFDiagonal Диагонал штрихлаш, олдинга о ғ иш bsBDiagonal Диагонал штрихлаш, ор қ ага о ғ иш bsCross Катакли горизонтал-вертикал штрихлаш bsDiagCross Катакли диагонал штрихлаш

Мисол тари қ асида с о ҳ аларни б ў яш усуллари дастурини келтирамиз. Со ҳ ани б ў яш усуллари дастури ойнаси Со ҳ ани б ў яш усуллари дастури матни unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public

{ Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); const bsName: array[1..8] of string = ('bsSolid','bsClear','bsHorizontal', 'bsVertical','bsFDiagonal','bsBDiagonal', 'bsCross','bsDiagCross'); var x,y: integer; w,h: integer; bs: TBrushStyle; k: integer; i,j: integer;

begin button1.visible:=false; w:=60; h:=40; y:=80; for i:=1 to 2 do begin x:=10; for j:=1 to 4 do begin k:=j+(i-1)*4; case k of 1: bs:= bsSolid; 2: bs:= bsClear; 3: bs:= bsHorizontal; 4: bs:= bsVertical; 5: bs:= bsFDiagonal; 6: bs:= bsBDiagonal; 7: bs:= bsCross; 8: bs:= bsDiagCross; end; Canvas.Brush.Color := clGreen; Canvas.Brush.Style := bs;

Canvas . Rectangle (x, y, x+w, y-h) ; Canvas.Brush.Style := bsClear; Canvas.TextOut(x, y-55, bsName[k]); x := x+w+30; end; y:= y+h+30; end; end; end. Матнни чи қ ариш График объект юзасига матн чи қ ариш учун TextOut усули қў лланилади . Бу усулни ча қ ириш инструкцияси қ уйидаги к ў ринишга эга : Объект. Canvas . TextOut ( x , у, Текст) Матн шрифти Font хоссаси қ иймати билан ани қ ланади . Font хоссаси TFont типидаги объекдир . Қ уйидаги жадвалда TFont объекти хоссалари келтирилган. TFont объекти хоссалари Хосса Таърифи Name Size Шрифт номи, масалан Arial Шрифт пунктларда катталиги

Style Символлар чи қ ариш услуби. Қ уйидаги константалар ор қ али берилади: fsBold (полужирный), fsltalic (курсив), fsUnderline (подчеркнутый), fsStrikeOut (перечеркнутый). Color Бу хосса бир неча услубларни комбинациясини олишга имкон беради. Масалан: Объект. Canvas . Font : = [ fsBold , fs Italic ] Символлар ранги. Матн чи қ ариш со ҳ аси муй қ алам жорий рангига буялади. Шунинг учун матн чи қ аришдан олдин Brush. Color хоссасига bsClear қийматини ёки соҳа рангига мос қийматни бериш лозим. Мисол : with Form1.Canvas do begin Font.Name := 'Tahoma'; Font.Size := 20; Font.Style := [fsltalic, fsBold] ; Brush.Style := bsClear; TextOut(0, 10, 'Borland Delphi 6'); end;

Textout услуби ор қ али матн экранга чи қ арилгандан с ў нг қ алам матн чи қ ариш со ҳ асининг ю қ ори ў нг бурчагига келтирилади . Агар матн узунлиги маълум б ў лмаса , чи қ арилган матн ў нг чегараси координаталарини PenPos хоссасига мурожаат қ илиб ани қ лаш мумкин . Мисол : with Form1.Canvas do begin TextOut(0, 10, 'Borland ') ; TextOut(PenPos.X, PenPos.Y, 'Delphi 6'); end;

Похожие

Массивлар (жадвал катталиклар)

Электрон жадвал тушунчаси

Маълумотлар базасида жадвал билан ишлаш

Электрон жадвал ва унинг имкониятлари

MICROSOFT EXCЕL – электрон жадвал процессори