«Delphi программалау тілі»



бет29/66
Дата11.09.2020
өлшемі1,77 Mb.
#77807
түріПрограмма
1   ...   25   26   27   28   29   30   31   32   ...   66
Байланысты:
Delphi программалау тілі

ARow:integer] қасиеті қолданылады. AСol индексі кестенің бағанын , ARow индексі жолын көрсетеді. Бұл қасиет екі өлшемді массив ролін атқарады.

Ескерту! StringGrid компонентінде жол жəне баған индексі 0- ден басталады.

Мысалы: Label1.Caption:=StringGrid1.Cells[5,9];

StringGrid1.Cells[1,2]:=’Hello’;



Label1 комонентіне StringGrid1 кестесінің алтыншы бағаны мен 10- жолының қиылысында орналасқан ұяшық мазмұны шығады жəне кестенің 3- жолының 2- бағанына “Hello” сөзі шығады.

Мысал1: Кесте жасау мысалын қарастырайық. Кестенің төмендегі қасиеттерін орнатамыз:

Қасиет

Мəні

FixedCols

0

FixedRows

1

Options\goEditing

true



  1. сурет.



Батырма коды төмендегіше болады:

procedure TForm1.BitBtn1Click(Sender: TObject); begin

StringGrid1.Cells[0,0]:='Аты-жөні';

StringGrid1.Cells[1,0]:='Мамандық';

StringGrid1.Cells[2,0]:='Шифры';

StringGrid1.Cells[3,0]:='Курс'; StringGrid1.Cells[4,0]:='Топ нөмірі'; end;

Төмендегі суретте программаның орындалу нəтижесі көрсетілген.



  1. сурет.

Мысал2: Тауар аттары, əр тауардың біреуінің бағасы жəне саны кестеде берілген. Əр тауардың жалпы бағасын табыңдар. Ең қымбат жəне ең арзан тауар атын шығарыңдар.





  1. сурет.



Шешуі: Батырма кодтары төмендегіше болады.

var i, max, min, k, n:integer; // “Толтыру ” батырмасының коды Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin

StringGrid1.Cells[0,0]:='Тауар аты';

StringGrid1.Cells[1,0]:='Бағасы';

StringGrid1.Cells[2,0]:='Саны';

StringGrid1.Cells[3,0]:='Жалпы бағасы';

StringGrid1.Cells[0,1]:='Кітап';

StringGrid1.Cells[0,2]:='Дəптер';

StringGrid1.Cells[0,3]:='Қалам'; StringGrid1.Cells[0,4]:='Күнделік'; end;

// “Есептеу ” батырмасының коды procedure TForm1.BitBtn2Click(Sender: TObject); begin

For i:=1 to 4 do

StringGrid1.Cells[3,i]:=inttostr(strtoint(StringGrid1.Cells[1,i])

*strtoint(StringGrid1.Cells[2,i])); max:=strtoint(StringGrid1.Cells[1,1]); min:=strtoint(StringGrid1.Cells[1,1]); k:=1;n:=1;

For i:=1 to 4 do begin

If max

If min>strtoint(StringGrid1.Cells[1,i]) then begin min:=strtoint(StringGrid1.Cells[1,i]);n:=i;end; end;

Edit1.Text:=StringGrid1.Cells[0,k];

Edit2.Text:=StringGrid1.Cells[0,n]; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin

ShowMessage('Тауар бағасын жəне санын енгіз!') end; end.

Қосымшаның орындалу нəтижесі төмендегіше болады. (35- сурет)





35- сурет.

Деректерді енгізудің InputBox функциясы арқылы жеке терезеде енгізуге болады. Функцияның жалпы түрі:

aйнымалы:=InputBox(‘тақырып’,’түсініктеме’,’мəн’) ;

Мəтіндік ақпаратты ShowMessage процедурасы арқылы экранға шығаруға болады.

Функцияның жазылу форматы:

ShowMessage(const Msg:String);

Мысалы: ShowMessage(‘Орындаған 4204- топ студенті- Уразов Дархан ’);

Нəтижеде экранға OK батырмасы бар шағын хабарлама терезесі шығады.

Деректерді экранға шығарудың күрделі функциясы- MessageDlg() функциясы. Оның жалпы түрі:

Мəн: =MessageDlg( хабарлама, тип, батырма түрі, анықтама контексі); Əдебиеттер: [1]-[7], қ[1]-[5]



11- апта

1 кредит сағат.

Тақырыбы: Диаграмма сызу компоненттері .Additional парағының диаграмма салудың Chart компоненті.



Дəріс мазмұны:

  1. Индикаторды қолданудың ProgressBar компоненті

  2. Диаграмма сызудың Gauge компоненті

3.. Сhart компонентінің қасиеттері мен əдістері

Дельфиде индикатор шығарудың ProgressBar компоненті қолданылады.

Компоненттің негізгі қаситетері: Max, Min, Position, Step.

Қарапайым диаграмма сызудың Gauge компоненті. Диаграмма түрін анықтаудың Kind қасиеті. BorderStyle, ForeColor, BackColor, MinValue, MaxValue, Progress, ShowText қасиеттері.

Формада секторлық диаграмма сызу мысалы. Уақыт санаудың GetTickCount API- функциясы.

Chart компоненті диаграммалар мен графиктер тұрғызуға арналған. Оның негізгі қасиеті болып – TcharSeriers типті бейнелеу стильдерін сипаттаушы Series қасиеті болып табылады.AllowPanning, AllowZoom, Title, Foot, Frame, Legend, SeriesList, View3d, т.с.с. қаиеттеріне шолу. Мысал ретінде оқушылардың реттік нөмері бойынша бағаларының графигін тұрғызу.



Достарыңызбен бөлісу:
1   ...   25   26   27   28   29   30   31   32   ...   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет