Delphi тілінде программалау ортасымен танысу

Кіріспе

I. Delphi тілінде программалау ортасымен танысу
1.1. Графикалық мүмкіндіктері
1.2. Компьютерлік графика
II. Растрлық суреттер

2.1. Формада сурет салу
2.2. Оперативтік жадыда сурет салу
2.3. Логикалық операцияларды түрлендіру.

Қорытынды
Дипломдық жұмыс Delphi программалау жүйесінің Растрлық графика құпияларының мүмкіндіктері, яғни барлық растрлық операцияларды орындайтын арнайы кластар қарастырылады.
Дипломдық жұмыс екі тараудан тұрады.
Бірінші тарауда Delphi программалау жүйесінің негізгі ұғымдары , графикалық файлдардың және компьютерлік графика келтірілген.
Borland корпорациясы аз ғана мерзім ішінде Delphi-дің 7 негізгі версиялары мен бірнеше модификацияларын шығарды. Delphi 7 версиясында өте көп өзгерістер енгізілген.
1. А. Жуков Изучаем дельфи Питер, 2005г.

2. А. Ю. Гаевский Информатика Киев, Москва, 2004г.

3. С. Симонович, Г. Евсеев А. Алексеев Общая информатика Москва 1995г.

4. Бауэр Ф.Л.Гооз Г. «Информатика »Москва,
Мир 1997

5. Пестриков В., Маслобоев А. «DELPHI на примерах» Санкт-Петербург ,2005

6. Дантеманн Джефф, Мишел Джими, Тейлор ДОН, Прогрпммирование в среде DELPHI: Пер.санг./
Дантеманн Джефф, Мишел Джими, Тейлор ДОН.- К.:НИПФ ДиаСофт ЛТД,1995. -608с.

7. Конопка Р: Создание оригинальных компонент в среде
DELPHI:Пер.с англ./Рэй
Конопка – К.:НИПФ ДиаСофт ЛТД,1996 -512с.
        
        Мазмұны
Кіріспе.....................................................................
.........
I. Delphi тілінде программалау ортасымен танысу
1.1. Графикалық мүмкіндіктері.....................................
1.2. Компьютерлік графика............................................
II. Растрлық суреттер
2.1. ... ... ... ... ... сурет салу..............................
2.3. Логикалық операцияларды түрлендіру..................
Қорытынды...................................................................
...
Кіріспе
Дипломдық жұмыс Delphi ... ... ... графика
құпияларының мүмкіндіктері, яғни барлық растрлық операцияларды орындайтын
арнайы кластар қарастырылады.
Дипломдық жұмыс екі тараудан ... ... Delphi ... ... ... ұғымдары ,
графикалық файлдардың және компьютерлік графика ... ... аз ғана ... ... ... 7 негізгі
версиялары мен бірнеше модификацияларын шығарды. Delphi 7 версиясында ... ... ... ... қамтаматсыз етудің тиімді өңдеу
қүралдарын қажет ету ... ... ... деп ... ... пайда болуына алып келді. Мүндай ортаға мысал ретінде Borland
Delphi жатады. Жылдам жасау RAD – ... “Rapid ... ... ... ... жобалау және оқиғаны өңдеуді программалар
технологиясы жатады, оның ... ... ... ... көп бөлігін
өзіне алады да, ... ... ... және ... ... қүрастыру жүмыстары қалады. Ортада қатаң типтелген объектіге
бағдарлы тілі ... оның ... Object Pascal (Turbo ... жатады. Екінші тарауда растрлық суреттерді формада және
опреативтік жадыда ... ... ... ... мүмкіндіктері графикпен, мультимедиямен,
дерекқорларымен жүмыс істейтін және динамикалық қүрылымдармен ... ... ... ... ... ... .NET технологиясының
сүйемелдеуі болып табылады.
I. Delphi тілінде программалау ортасымен танысу
Delphi ... ... ... ... ... ... Development Environment) дамытылған қүрылымдық ... IDE ... ... ... ... ... ... қүралған бірнеше терезелерден түрады. Осы
ортаның қүралдарын пайдалана отырып, ... ... ... ... ... ... және оны ... қлементтерімен
байланыстыруға болады. Аталған ... және ... ... ... ... IDE ... ... ортасын іске қосу үшін, келесі командаларды пайдалану керек:
Пуск —> Программы —> Borland Delphi —ң Delphi ... ... ... жүйе деп ... және икемделуіне
байланысты оның көрнісі жүктелгеннен кейін келесі түрде болуы мүмкін (1-
сурет). ... ... 4 ... ... ... терезе (Project 1);
2. Объектілер бақылаушысының терезесі (Object Inspector);
3. Формаларды қүрастырушының ... ... ... ... терезесі (Unit1.pas).
Терезелерді кішірейту, үлкейту, жабу ... осы ... ... ... ... ... келеді. Форманың терезесінен
Unit кодына өту және одан кері өту F12 ... ... ... ... ... Unit ... шығады. Сол жақтағы терезе Browser
терезесі деп ... және бүл ... ... ... қүрылымымен
танысуға болады.
1- сурет. Delphi ортасының көрнісі
Delphi ортасынан шығу үшін ... ... жабу ... ... және ... бақылаушысының терезесі.
Форма қүрастырушысының немесе форманың терезесi - ... ... ... ... Алдымен бүл терезе бос болады, дәлiрек айтсақ,
Windows-тiң стандартты интерфейстiк қлементтерiнен: жүйелi менюдi шақыру,
терезенi ... ... жабу ... ... қатарынан және
қоршаған шегiнен түрады. Бүл ... ... ... ... нүктелерiмен реттелген.
Программалаудағы айтарлықтай уақытта Lego констукторының бөлiктерiмен
атқарылатын жүмыс сияқты компоненттер ... ... ... форманың терезесiнде орналастыруға болады. ... ... ... компоненттер бiрiнен соң бiрi орналастырылады.
Бүл ерекшелiк – визуалды (көрсеткiш) программалаудың негiзi ... ... әр ... ... ... ... ... қажеттi өзгерiстердi кез- келген мезетте енгiзу
мүмкiндiгiне ие болады.
Формадағы ... әр ... ... ... мөлшерiмен,
түсiмен т.с.с. анықталады. Форманы қүрастыру File => New => Form ... ... ... ... бос ... бiр ... ... парағының Button батырмасын орналастыру үшiн компоненттер
жинағындағы Standard ... сырт ... ... екпiндi күйге
келтiру керек.
Button батырмасының кескiнiн ажырату үшiн тышқанды баспай түрып парақта
орналасқан белгiлердiң ... ... ... сәтте компоненттердің аты
шығып түрады.
қажеттi компонентті сырт еткiзiп белгiлеп, тышқанды форма ... ... сырт ... ... ... Button1 ... ... Формаға Button батырмасын орналастыру
Компоненттің формадағы мекен- жайын, мөлшерiн форма терезесiнде ... ... ол үшiн ... ... сол жақ батырмасымен
белгiлеу керек (кiшiгiрiм төртбүрыштылар пайда болады). Ендi ... ... сол жақ ... ... ... форма аймағының кез-
келген жерiне жылжытуға болады. Мөлшерiн өзгерту үшiн тышқанды қлементтi
қоршап түрған кез-келген төртбүрышқа орналастырсаңыз, ... ... ... тiк ... тышқанның сол жақ батырмасын басып түрып жылжытуға
болады. Компонент жою үшiн оны ... Delete ... ... ... ... ... өзгерту әрекеттерi Объектiлер
бақылаушысы арқылы ... ... ... орындалады.
Объектiлер бақылаушысының терезесi екi парақтан қүрылады: Properties-
қасиеттерi және Events ... ... ... ... ... ... анықталады, ал Events парағы арқылы ... ... ... сезiндiру анықталады. 5-суреттегi Form1
терезесiнде орналасқан Button1 ... - ... ... - ... ... ал ... ... - осы батырма басылғанда ... ... соны ... ... ... ... мүмкіндіктер
Қозғалысты программалау.
Қозғалысты еліктету немесе анимация ... ... ... ... ... ... ... бетіне шығару (кейде шағын үзіліс орнатылғаны жөн);
Объектіні экраннан алып тастау;
□ Объектіні басқа жерге шығару.
Диаграмма және график салу
Диаграмма мен ... ... ... үғынуды жеңілдетуге
бейімделген және Delphi ортасы олармен жүмыс атқаратын ... ... екі ... ... ... Индикаторлар;
□ Күрделі диаграммалар және графиктер.
Индикаторларды пайдалану
Индикатор жалпы диаграмманың қарапайым түріне жатады және ол ... үзақ ... ... ... (мысалы, дискетті форматтау, файлды
көшіру, т.с.с.) процестердің көрінісін мәтіндік және графикалық түрде
бейнелеуге арналған.
Delphi ортасы жүмыстың орындалуын көрсететін ... және ... ... ортаның Win32 парағында орналасқан, бүл компонент белдеу
түрінде болып, кейбір үзақ уақыт орындалатын іс-әрекеттің көрінісін экран
бетіне шығарады.
Delphi ортасының Win32 ... ... ... ... мен ... түсін
өзгертетін қасиеттері жоқ, сондықтан бүл параметрлер контейнер
параметрлерімен анықталады. Әдетте графикалық ... көк ... ... ... ... қасиеттерін негізгі деп санайды:
□ Min және Max - индикатордың алғашқы және соңғы мәндерінің
аралығын анықтайды. Келісімше Min=0%, Max=100% деп ... Position - ... ... ... көлемін Min және Max
мәндеріне сәйкес анықтайды. Мысалы, Min=0, Max=80 деп көрсетілсе, ... 20 ... ... ... орындалған жүмыстың көлемі 25% деп
саналады.
□ Step - индикатордың көлемі өскендегі ... ... ... өсіп
отыратынын анықтайды.
Индикатордың позициясын программада көрсетуге болады, мысалы:
ProgressBar1. Position:=35;
ProgressBar-ның қлементінің позициясын StepIt (өсімшесі Step) ... ... ... Delta) ... ... өзгертуге
болады. Мысалы, ProgressBar1.StepBy (13).
Бүл оператор бойынша ProgressBar1-дің индикаторы 13-ке өсіп отырады.
ProgressBar1 компонентінің Caption ... Text ... ... ... атқару индикаторын жазумен қамту үшін, Label
компонентін қолдануға ... ... ... Gauge ... қарапайым диаграммаларды
шығаруда қолданылады. Gauge компоненті арқылы белгілі бір параметрдің ... ... ... ... ... ... ... түрін анықтайды және оның мәні
келесідей бола алады :
□ GkHorizontalBar - ... ... ... - тік ... gkPie - ... gkNeedle - спидометр;
□ gkText - тек қана мәтін.
Delphi ортасы схемаларды, ... ... ... ... ... ... ... жолмен құруға мүмкіндік береді.
Графикалық элементтер объекттің үстінгі жағында шығарылады ... Image ... ... Canvas ... ... ... Объектінің
бетіне графиктік элементтерді (түзу сызық, шеңбер және т.б.) шығару үшін
осы объектінің Canvas ... ... ... ... form1.Canvas.Restangle (10, 10, 100, ... ... ... ... ... ... салуға болатын абстрактты
бет (холст) ретінде Canvas қасиеттері қарастырылады. Бұл бет (холст) ...... ... ... ... ... (х) және ... координаталар арқылы анықталады.
Қарандаш және қылқалам
Қарапайым графиктерді бет (холст) ... ... ... ... ... ... және ... қолданылады: қарандашты түзулер мен
контурларды сызуға қолданады, ал ... ... ... ... ... бетке (холстқа) шығаратын арнайы қарандаш және қылқаламға
Pen (қарандаш) Brush (қылқалам) қасиеттері сәйкес келеді, бұлар TPen ... ... ... Осы ... ... мәні ... элементтердің түрін анықтайды.
TPen объектісінің мынадай қасиеттері бар:
Color – түзудің түсі (контуры);
Width – түзудің қалындығы (пиксель бойынша);
Style – ... ... ... мәні ... ... ... тұрақтыларды
қолдануға болады (TColor): clBlack, clOlive, clGray, clBlue, ... ... clAqua, clGreen, ... clRed, clWhite.
Pen.Style қасиеті мынадай мәндерді қабылдайды:
psSolid – біркелкі түзу;
psDash – пункттирлік түзу, ұзын ...... ... қысқа штрихтар;
psClear – түзу көрінбейді.
Егер Pen.Width қасиетінің мәні бірден үлкен болса, онда пункттирлік
түзулер біркелкі түзулер болып шығады.
Қылқалам (Canvas. Brush) ... ... ... және сол облыстарды
бояуды қамтамасыз ететін әдіс ретінде қолданылады. Қылқалам ... ... ... ... – тұйық облысты бояйтын түс;
Style – аймақты толықтыру стилі (типі).
Brush.Color қасиетінің мәні ретінде жоғарыда айтылып өткен ... ... ... ... қасиеті мындай мәндерді қабылдайды :
bsSolid – біркелкі бояу;
bsClear – облыс болмайды;
bsHorizontal – көлденен штрих;
bsVertical – тік ...... ... ... ... ... әдісімен шығарылатын мәтін облысының оң жақ ... PenPos ... ... ... ... ... ... (‘руб.’);
Қарапайым графиктерді сызу әдістері
LineTo әдісі түзуді ... ... ... ... ... ... ... у);
MoveTo әдісі қарандашты белгіленген нүктеге апарады:
Объект.Canvas.MoveTo(х, у);
Ellipse әдісі эллипс сызады (жеке жағдайда, шеңбер – ... ... ... y1, x2, ... х1, у1, х2, у2 – ... эллипс сызылатын тіктөртбұрыш
координаттары.
Arc әдісі доға ... y1, x2, y2, х3, у3, х4, ... х1, у1, х2, у2 – ... ... ... ... яғни
сызылатын доға болады.
Rectangle әдісі тіктөртбұрыш сызады:
Объект.Canvas.Rectangle (x1, y1, x2, y2);
Мұндағы х1, у1 және х2, у2 – сол жақ ... және оң жақ ... ... ... Компьютерлік графика
- растрлық бейнелеудің құру принциптері
- графикалық ақпарат өлшемінің ұғымы
- графикалық ... ... ... дегеніміз не?
Компьютерлік графика - графика, есептеу техникаларымен өнделеді және
қүралдарымен бейнеленеді.
Графика терминінің ... ... ... (көзбен қабыдауы)
кейбір нақты объектілерді көрсету. ... ... ... жаңадан
қайта жасауын еске сала отырып,бейне нүктелерге бөлінеді оны ... ... ... өзара пикселдердің жинағын ұсынады, ол дұрыс
сеткада ... ... ... ... тұрады. Мысалы, сіз кез келген
суретті қағазда горизонтальды және вертикальды сызықтарымен сызу ... ... ... ... шығу ... Әр ... бір түсті бояумен
толтыру қажет. ... біз ... ... ... ... (1 ... ... түсті растр (бірбиттік)
б) сұр түсті растр (8 биттік ... ... ... ... байланысты, оның түрін анықтайды. Ақ-қара
түсті ... мәні бір ... ... ал сұр ... ... үшін мәні ... ... графикаға қатысты көптеген белгілі программалар жатады, олар
Adobe Photoshop, Corel PhotoPaint. Бұл программалар күрделі ... ... ... ... ... ... пикселдердің жинағын ұсынады,ол дұрыс сеткада
орналасқан ... ... ... ... маңызды сипаттамасы болып оның қабілеттігін ... ... ... саны ... ... ... жасау үшін өзінің растрлық редакторы бар.
Ақпарат сигнал түрінде беріледі. Біз адамдармен сөйлескенде ... ... ... ... ... сақтау үшін оны кодтау қажет. Кез
келген ақпарат кодтар түрінде ... және ... да ... ... ақ ... де кодтар түрінде сақтайды. Егер біз ... лупа ... ... ... ... оның нүктеден
тұратындығын – растр.
Бейне файлының өлшемін онда ... ... ... ... болады. Ең қарапайым түрі былай жазылады:
V=dWH,
d – берілген түрі (битта), WH – ені мен ... ... ... ... ... ... ... бейнеде қарастырамыз. Ақпарат
саны растрда 1*100*100=10000 бит, ... ... ... ... ... ... оның ... байланысты белгіленген бейнені
сақтау үшін.
Растрлық форматы. Форматтар растрлы бейнені сақтау үшін ... ол ... ... ... ... жазу ... ... көптеген растрлық форматтары мынадай: BMP (Bit Map
Picture), PCX, TIFF, GIF, JPEG.
II. ... ... сөзі ... rastrum ... ... – аудармасы «грабля».
«Граблямен» сурет ... ... деп ... ... экранында немесе қағазға түсірілетін
нүктелі ... ... ... ... ... ... немесе вертикальды сызықтарда орналасады, оларды «грабля» деп
атайды. Растрлы суреттерді сақтау форматы .bmp (bit map – ... ... ... ең кіші ... – бит. Компьютердің жадысында бит екі
разрядтан тұрады 0 және 1. 0 – қара тұрге бояу, ал 1 – ақ. ... ... ... үшін бір бит ... ал ... түстер үшін бір ... ... ... кодтарды келтіру үшін биттерді көбейткен жөн, онда
түстер анық көрсетіледі.
Әр бір биттердің сегізразрядтық байтта 0 немесе 1 кездеседі ... ... ... ... ... ... екілік жүйеден басқа оңалтылық
сану ... ... ... қолдануға болады.
2.1. Формада сурет салу
Эксперимент 1.
Image1 компонентін формада орналастырасыз ... ... ... орналастырамыз: Width: 200; Height: 201. ... ... ... ... ... деп ... ... шерткен жағдайда Image1 кез келген бір ... ... ... ... ... үшін ... CLR ... функция қажет болады.
Төменде келтірілгендей CLR функция кодын Unit1 ... ... ... ... ... қажет.
Function CLR(n,k:integer): TColor;
Var
g:byte;
begin
g:=1+n mod 15;
case k of
0: CLR:=$001111*g;
1: CLR:=$000011*g;
2: CLR:=$001100*g;
3: CLR:=$110000*g;
4: CLR:=$110011*g;
5: CLR:=$111100*g;
6: CLR:=$111111*g;
End;
End;
Byte стандартық типі g ... ... ... түсті интенсивті
тұрлерді қолдану үшін (0-ден 255-ке дейін). N және k параметрлері түрлерді
тандау. Әрі қарай бізге глобалды k ... ... оны CLR ... ... k: integer = ... Button1 ... ... процедурасының мәтіні келтірілген.
Procedure Tform1. Button1Click (Sender:TОbject);
Var
I, j, io:integer;
C:Tcolor;
Tick:Cardinal;
Begin
Tick:=GetTickCount;
Inc(k);
K:=k mod 7;
Io:= Imagel .Height div ... i:=0 to io ... j:=0 to io ... ... ... io+j]:=c;
Imagel.Canvas.Pixels[io-i, io+j]:=c;
Imagel.Canvas.Pixels[io+i, io-j]:=c;
Imagel.Canvas.Pixels[io-i, io-j]:=c;
End;
Application.ProcessMessages;
End;
Caotion:=IntToStr(GetTickCount-Tick);
End;
Бұл процедурада пикселдердін түрлі түске боялуы көрсетілген.
Button1 батырмасына тышқан арқылы бернешерет ... әр ... ... ... ... жадыда сурет салу
Эксперимент 2.
Button2. батырмасын формаға орналастырамыз, басында ... ... ... ... – де ... бейнелеуінің Tbitmap классы бар, ол компьютердін
оперативтік жадысында қалыптасады.
Button2. батырмасына шерткенде мына ... ... ... Tform1. ... ... j, io:integer;
C:Tcolor;
Btm: Tbitmap;
Tick:Cardinal;
Begin
Tick:=GetTickCount;
Btm:=Tbitmap. Create;
Btm.Height:=Imagel. Height;
Btm.Width:= Imagel. Width;
Inc(k);
K:=k mod 7;
Io:= Btm.Height div ... i:=0 to io ... j:=0 to io ... ... ... ... ... io-j]:=c;
Btm.Canvas.Pixels[io-i, io-j]:=c;
End;
End;
Imagel.Pictore.Bitmap.Assign(Btm);
Btm.Free;
Caotion:=IntToStr(GetTickCount-Tick);
End;
Бұл процедуранын орындалу барысы жоғарыда көрсеткендей, бірақ
пикселдеодін боялуы Imagel компонентінде емес биттік картада Btm атымен.
ScanLine функциясы.
Растролық бейнелеуінің жылдамдығына мына ScanLine ... ... ... биттік карьада қарастырады.
Эксперимент 3.
Button3. батырмасын формаға ... ... ... ... ... ... ... integer;
C: Tcolor;
Bmp: Tbitmar;
Line1, Line2:pByteArray;
Tick:Cardinal;
Begin
Tick:=GetTickCount;
Bmp:=Image1.Pictore.Bitmap;
Bmp.PixelFormat:=pf24bit;
Bmp.Width:= Imagel. Width;
Bmp.Height:= Imagel. Height;
Inc(k);
K:=k mod ... div ... i:=0 to io ... ... ... ... Linel:= ... PByteArray (Bmp.ScanLine[io-i]);
For j:=0 to io do
Begin
C:=CLR (i*j+random(11), ... ... ... ... ... қолданатынымыз түрлі түстер опреацияларынан жақсы эффект
алу үшін және бейнені өшіруге дейін орындалатынын. Бұл ... ... және ... ... ... ... программасын жазу үшін.
Екілік разрадтардағы мәндерді логика операция түрінде жазамыз 1- true, 0 ... Бұл идея ... салу ... ... Mode қасиеті (режим) Pen
қалам (Canvas).
Қалам режимі pmNotXor, төмендегі ... ... ... нәтижелері көрсетілген a, b, c=NOT(a XOR b) екі нәтиженің біреуін
қабылдайды 1( true), 0 ... |b |a XOR b |c=NOT(a XOR|a XOR c |NOT(a XOR |
| | | |b) | |c) |
|0 |0 |0 |1 |1 |0 |
|0 |1 |1 |0 |0 |1 |
|1 |0 |1 |0 |1 |0 |
|1 |1 |0 |1 |0 |1 |
A TColor- A: 11111111 00000000 ... 00000000 00000000 ... XOR B)
C=NOT(A XOR B) 00000000 11111111 00000000
NOT(A XOR C) 00000000 00000000 ... ... ... Button1. ... ... ... ... жазамыз ПУСК.
Келесі процедура орындалады
Procedure Tform1.Button1Click(Sender:Tobject);
Const
N=3; // ... ... ... // ... угла
// поворота
r=120; ... ... // ... ... // ... ... // ... ... ... // угол ... // координаты центра
// спутника
begin
with Form1. Canvas ... // ... ... тень
Brush.Color:=clBlue;
FillRect(Recf(xp,yp-rp div
2,Form1.Width,yp+rp div 2));
//рисуем синюю тень
Brush.Color:=RGB(10,50,150);
Pen.Mode:=pmCopy; // Устанавливаем
// обычный режим рисования
Pen.Color:=clBlue; // Цвет ... ... yp-rp, xp+rp, ... ... ... // ... ... для ... ... // устанавливаем
// режим пера pmNotXor
T:=pi;
While t

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 12 бет
Бұл жұмыстың бағасы: 300 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Delphi ортасымен танысу жайлы16 бет
DELPHI программалау жүйесі16 бет
Delphi- де программалау14 бет
Delphi-дің қолданылуы мен тағайындалуы17 бет
Turbo Pascal тіліндегі мәліметтердің күрделі типтері50 бет
Visual basic программалау ортасы36 бет
WEBbrowser компонентін қолданып бағдарлама құру16 бет
«Айналатын жұлдыз бағдарламасын» құру24 бет
«Центр Кредит банктың жинақтаушы зейнетақы қорының» ақпараттық жүйесі39 бет
Деректер қоры «Тенисшілер»17 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь