Турбо-паскальдағы графикамен жұмыс

Пән: Информатика, Программалау, Мәліметтер қоры
Жұмыс түрі: Курстық жұмыс
Тегін: Антиплагиат
Көлемі: 22 бет
Таңдаулыға:

Турбо-Паскальдағы графикамен жұмыс

Мазмұны

Кіріспе. 3

І Graph стандарттық модулі . . . 4

1. 1 Процедуралар мен функциялар5

1. 2 Координаттар, терезелер, беттер. . 7

1. 3 Көпбұрыштар . . . …. . 8

1. 4 Доғалар, шеңберлер, эллипстар . . . 9

1. 5 Тексті шығару9

ІІ Графикалық координаталар жүйесі10

2. 1Графикалық экран мен элементтердің параметрлерін қою процедуралары. . 11

2. 2 Графикалық элементтерді бейнелеу процедуралары . . . 12

2. 3 Графикалық экран мен элементтердің параметрлерін қою функциялары. 12

ІІІ Есептің берілгені. 14

3. 1 Программаның баяндалуы. . 15

3. 2 Енгізілген мәліметтер және шыққан графика . . . 17

Қортынды. . 18

Қолданған әдебиеттер. . 19

Кіріспе

Дисплей экраны нүктелер жиыны болып табылатын төртбұрышты аймақ болып табылады. Ол графикалық және мәтіндік режімдерде жұмыс атқара алады. Графикалық режімде экранның әрбір нүктесін түрлі түске бояп, сол түстер арқылы сызық, мәтін және әр түрлі бейнелер кескіндеуге болады.

Графикалық программалау процесі тиімділігін арттыру мақсатында Borland International фирмасы GRAPH арнайы программалар кітапханасын жасап шығарған болатын, онда қазіргі кездегі мониторлардың барлық типтерімен жұмыс істейтін, экранға түрлі мөлшердегі қаріптер шығара алатын драйверлер жиыны бар.

Экранға мәлімет шығаруды аппараттық жағынан сүйемелдеу екі модуль - бейнеадаптер және бейнемонитор арқылы қамтамасыз етіледі. Бейнемонитор- немесе дисплей- мәтін және графикалық бейнелер шығарылатын құрылғы, ол электрондық сәулелік түтікшеден немесе сұйық кристалды тақтадан тұрады. Дисплей теледидар сияқты жұмыс істеп, экрандағы бейне секунд сайын 25 рет жаңаланып отырады. Адамның көзі бейнелердің мұндай жиілікпен ауысуын байқай алмайды да, мониторда сол бейне қозғалмай тұрғандай болып көрінеді. Экрандағы бейнелер кішкене нүктелерден (пиксельдерден) тұратын қатарларға біріктірілген. Сондықтан экранның басқарылатын ең кіші элементі пиксель (pixel) болып табылады. Экрандағы кез келген бейне осы пиксельдер арқылы салынады. Графикалық режімде экран тіктөртбұрышты пиксельдер жиынынан құралады да, мұнда оның кез келген пикселінің түсін әр түрлі етуге мүмкіндік бар.

Graph модулінің жалпы сипаттамасы

Graph модулі ІВМ - типтес дербес компьютерлердің графикалық адаптерлерімен жұмыс істеуіне есептелінген, графикалық процедуралар мен функциялардың, тұрақтылардың, айнымалылар мен типтердің қуатты кітапханасы болып табылады. TurboPascal-7. 0 ортасын қолданатын Паскаль тілінде программалауда Graph модулінің 132 тұрақтысы, 7 қосымша типі, 2 айнымалысы, 57 процедурасы және 22 функциясы пайдаланылады. Турбо Паскальда графикалық драйверлер деп аталатын арнайы программалар (BGI-файлдар) видеоадаптерлерінің қалыпты жұмысын басқарады:

драйверлер

видеоадаптерлер

драйверлер: CGA. BGI

видеоадаптерлер: CGA, MCGA

драйверлер: EGAVGA. BGI

видеоадаптерлер: EGA, VGA

драйверлер: HERC. BGI

видеоадаптерлер: Hercules (монохромды)

драйверлер: ATT. BGI

видеоадаптерлер: AT&T 6300 (400 жол)

драйверлер: PC3270. BGI

видеоадаптерлер: 3270PC

драйверлер: IBM8514. BGI

видеоадаптерлер: IBM-8514

Көптеген видеоадаптерлер монитордың көрсету мүмкіндіктерін өзгерте алатын бірнеше графикалық режимде жұмыс жасай алады. Мәтіндік режимде экранда 40(80) х 25 символ бейнелеуге болатын болса, графикалық режимде онда бейнеленетін ең кіші объект-графикалық нүкте- пиксел деп аталынады. Мысалы: көп қолданылатын VGA адаптерінің қалыпты режимінде экранда 640 х 480 пиксел көрінеді және олардың 16 түсін айыруға болады.

UsesGraphоператорын программа басына орналастырғанда ғана Graph модулінің қызметін толық пайдалануға мүмкіндік бар.
Init Graph(Gd, Gm, `c:\TP7`) процедурасы дербес компьютерге қойылған видеодаптерді автоматты түрде тауып, сәйкес графикалық драйверді іске қосады және оны графикалық режимге көшіреді.

Мұнда `c:\TP7` - драйвер файлына апаратын жол. Графикалық драйверлерді анықтау ( Gd ) және олардың жұмыс режидерін қою ( Gm ) тұрақтылары (тәжірибеде жиі пайдаланылатын режимдер) төмендегі кестеде берілген:

Gd: Detect =0

Gm: EGALo =0 {640x200; 16түс; 4 бет}

Gd: CGA =1

Gm: EGAHi =1 {640x350; 16түс; 2 бет}

Gd: MCGA =2

Gm: EGA64Lo =0 {640x200; 16түс; 1 бет}

Gd: EGA =3

Gm: EGA64Hi =1 {640x350; 4түс; 1 бет}

Gd: EGA64 =4

Gm: EGAMonoHi=3 {640x350; 64K: 1 бет; 256K: 2 бет }

Gd: EGAMono =5

Gm: VGALo =0 {640x200; 16түс; 4 бет}

Gd: IBM8514 =6

Gm: VGAMed =1 {640x350; 16түс; 2 бет}

Gd: HereMono =7

Gm: VGAHi =2 {640x480; 16түс; 1 бет}

Gd: ATT400 =8

Gm: PC3270Hi =0 {720x350; 1бет}

Gd: VGA =9

Gm: IBM8514Lo =0 {640x480; 256 түс }

Gd: PC3270 =10

Gm: IBM8514Hi =1 {1024x768; 256 түс}

нолден өзге мәні (қателік коды) режимге көшу қателігін көрсетеді.
CloseGraphпроцедурасы графикалық драйверді жадтан шығарып, видеодаптердің мәтіндік режимін қалпына келтіреді.

Graph стандарттық модулі

Компьтердің қосылуы кезінде және Turbo Pascal ортасында программаны жіберу кезіндегі экранның стандартты күйітекстік режимде жұмыс істеуін сай келеді. Сондығтан, компьютердің графиктік мүмкіншіліктерін пайдалану үшін дисплей адаптерінің жұмысын графиктік режимге инициализациялау керек. Программа жұмысының жұмысының аяғында компьютер текстік режимге қайта көшеді.

Графиктік процедуралардың әрбір нақты адаптермен жұмыс істеуі - керекті драйверлерді қосу арқылы жүзеге асады. Графиктік драйвер - дисплей адаптерінің жұмысын графиктік режимде басқарады. Borland фирмасының барлық адаптер түріне арналған графиктік драйверлері бар. Бұл драйверлер BGI каталогында орналасқан. Әрбір адаптердің мүмкіншіліктері - нүктелер санымен және түстер санымен сипатталады.

Графикалық режимде жұмыс істеуге арналған барлық процедуралар мен функциялар Graph модулінде орналасқан. Сондықтан программаның басы Uses Graph болуы керек. Графиктік режимге көшу үшін Init Graph процедурасы орындалуы қажет.

Егер программаның бірінші жолы Uses Graph деп жазылса, онда экранда әртүсті нүктелерді, түзулерді, кесінділерді, шеңберлерді және тіктөртбұрыштарды салатын Graph модулі Паскальға процедуралар мен басқа құралдар Graph қолдануға мүмкіндік береді. Осы бөлімге мысал ретінде қолданған программалар текстері [7] -ден алынды.

Графикалық режимге ауысу және текстік режимге қайту.

Дербес компьютерді қосқаннан кейін, Турбо Паскаль ортасынан іске қосылған программа экранның текстік режимінде жұмыс істейді. Сондықтан графикалық жабдықтарды пайдаланатын әрбір программа дисплей адаптерінің жұмысын графикалық режимге ауыстыру қажет.

Жұмыс аяқталғаннан кейін компьютер текстік режимге қайта оралады.

Дисплей адаптерлерінің графикалық режимде жұмыс істеуі.

Белгілі бір адаптер арқылы графикалық процедураларды баптау керекті графикалық драйверді қосу арқылы орындалады.

Драйвер - компьютердің техникалық құрылғыларын басқаруға мүмкіндік беретін арнаулы программа.

Графикалық драйверлер графикалық режимде дисплей адаптерін басқарады. Олар дискінің жеке BGI қосалқы каталогінде BGI кеңейтілуімен (Borland Graphics Interface - Borland фирмасының графикалық интерфейсі) файл түрінде орналасқан. Олардың графикалық режимде жұмыс істеуге мүмкіндігі бар. Бұл режимде экран дисплейі тығыз орналасқан нүктелердің - пикселдердің жиынтығы ретінде қарастырылады, онымен қатар оларды программа көмегімен басқаруға болады.

Қазіргі кезде көбінесе 800х600, оданда үлкен шешу қабілеті бар, 256 және оданда үлкен түстер реңкі бар супер - VGA адаптерлері (SVGA) қолданылады. Бірақта Graph кітапханасында олар үшін драйверлер жоқ. Сондықтан мүмкіндіктері аса көп емес egavga. bgi драйверін қолданады.

Процедуралар мен функциялар

InitGraph процедурасы. Адаптер жұмысын графикалық режимге аударады. Процедура тақырыбы:

Procedure InitGraph (var Driver, Mode: integer ; Path: string ) ;

Мұнда Driver - integer типті айнымалы, графикалық драйвердің типін анықтайды;

Mode - сол типті айнымалы, графикалық адаптердің жұмыс жасау режимін береді;

Path - драйвер файлының аты және оны іздеу маршруты бар string типті өрнек.

Көп адаптерлер әр түрлі режимдерде жұмыс істей алады. Адаптерге керекті жұмыс режимін көрсету үшін, Mode айнымалысын қолданады. Мысалы:

Const

{Адаптер VGA:}

VGAHi=2 {640х480}

Егер компьютер адаптерінің типі белгісіз немесе программаның жұмысы кез келген адаптермен істелетін болса, автоматтық түрде драйвер типін анықтау процедурасы шақырылады:

Driver:= Detect ; {Немесе Driver:= 0}

InitGraph (Driver, Mode, ′D:\Lang Tpascal. 71\BGI′) ;

Сонда, бірнеше режимде жұмыс жасай алатын адаптерлерге максимал санмен кодталған жоғарғы режим таңдалады.

CloseGraph процедурасы. Адаптер графикалық режимдегі жұмысын аяқтап, текстік режимдегі жұмысына көшеді.

Процедура тақырыбы:

Procedure CloseGraph;

Келесі программа графикалық режимнен текстік режимге көшуді және қайтуды бейнелейді:

Program pr1 (output) ;

Uses Graph ;

Var Driver, Mode, Error: Integer;

Begin

{Графикалық режимді қою }

Driver:= Detect;

InitGraph (Driver, Mode, ′D:\Lang Tpascal. 71\BGI′) ;

Error:= Graph Result; {Нәтижені еске сақтау }

if Error <> grOK then {Қатені тексереміз}

Writeln (Graph Error Msg (Error) ) {Қате бар}

Else

{Қателер жоқ}

begin

Writeln (′Бұл графикалық режим′) ;

Writeln (′ ″Enter-ді″шертіңіз…′:20) ;

Readln;

{Текстік режимге көшеміз}

Restore CRT Mode;

Writeln (′Бұл текстік…′) ;

Readln;

{Графикалық режимге қайтамыз}

Set Graph Mode (Cet Graph Mode ) ;

Writeln (′Тағыда графикалық режим…′) ;

Readln;

Close Graph

End;

End.

Компьютер мен монитор текстік және графикалық екі режимде жұмыс істей алады. Бір режимнен екінші режимге көшуі программа арқылы орындалады.

Қарапайым фигураларды салу

Монитордаң графикалық режимі экранды көлденеңнен 640 пиксел мен тігінен 480 пикселге бөлген болсын делік. Режим басқадай болса, оны оңай ауыстыруға болады.

Координаттар, терезелер, беттер

Графикалық процедуралар мен функциялар экранда көрінбейтін ағымды позицияны беретін ағымды көрсеткіш (текущий указатель) қолданады. Осы көрсеткіштің орны экранның 0, 0 координатты жоғарғы сол жақ бұрышы арқылы беріледі.

GetMaxX және GetMaxY функциялары. Экранның горизотальді және вертикальді координаттарының максимал өлшемдерін қайтарады (береді) .

GetMaxX және GetMaxY функциясы. Көрсеткіштің горизонталь және вертикаль координаттарының ағымды өлшемдерін Integer типімен қайтарады.

Set View Port процедурасы. Графикалық экранды төртбұрышты терезе орнатады. Тақырып:

Procedure Set View Port (x1, y1, x2, y2: integer; Clipon: Boolean) ;

Мұнда x1… y2 - терезе бұрышының жоғарғы сол жақ (х1, y1) және оң жақ төменгі (х2, y2) бұрыштарының координаттары; Clipon - суреттің терезеге сипайтын бөлігін кесіп тастауын беретін Boolean типті өрнек. Осы параметрді басқару үшін қолданатын константа:

Const

Clip on = True; {Қиюды қосу- включить отсечку}

Clip off = False; { Қиюды қоспау- Не включать отсечку }

Clip on параметрінің жұмысын келесі программа бойынша салынған сурет көрсетеді.

Clip on бойынша терезедегі суретті қию.

Program pr2 (output) ;

Uses Graph , CRT;

Var x, y, e : Integer; k: integer;

x11, y11, x12, y12, {терезенің координаттары}

r, {бастапқы радиус}

begin

Direct Video:= False; {графикалық редимді қосу}

x:=0; Init Graph (x, y, ′D:\Lang′ ′s \Lang Tpascal. 71\BGI′) ;

{нәтижесін тексеру}

e:= Graph Result; if e <> grOK then

Writeln (Graph Error Msg(e) ) {қателік}

Else {қате жоқ}

Begin

{экранның шешу қабілетін еске ала отырып, коор-ды есептеу}

x11:= GetMaxX div 60; x12:= GetMaxX div 3;

y11:= GetMaxY div 4; y12:= 2*y11;

r:= (x12-x11) div 4;

{терезе сызу}

Writeln (′Clipon:′ :10) ;

Rectangle (x11, y11, x12, y12) ;

{терезеде төрт шеңбер салынады}

Set View Port (x11, y11, x12, y12, Clipon ) ;

For k:=1 to 4 do

Circle (0, y11, R*k) ; {перне басуды күтеміз}

If Read Key =#0 then k:= ord (Read Key) ;

Close Graph

End; end.

MoveTo процедурасы. Көрсеткіштің жаңа ағымды орнын береді. Тақырып:

Procedure MoveTo (x, y: integer) ;

Мұнда x, y - көрсеткіштің горизонталь және вертикаль бойынша жаңа координаттары.

MoveRel процедурасы. Көрсеткіштің салыстырмалы коор-динаттардағы жаңа орнын береді.

Procedure MoveRe l (dx, dy: integer) ;

Мұнда dx, dy - горизонталь және вертикальдағы көрсеткіштің жаңа координаттар бойынша өсімшелері.

Clear Device процедурасы. Графикалық экранды тазартады. Осы процедура экранды SetBkColor процедурасы бойынша берілген фонмен толтырады. Тақырып:

Procedure Clear Device;

Clear View Port процедурасы. Графикалық терезе немесе барлық экранды тазартады. Терезені тазартқанда ол ағымды палитрадан 0 номерлі түспен алынады. Тақырып:

Procedure Clear View Port;

Көпбұрыштар

Rectangle процедурасы. Бұрыштарының берілген координаттары бойынша төртбұрыш сызады. Тақырып:

Procedure Rectangle ( x1, y1, x2, y2: integer) ;

Мұнда x1…y2 - төртбұрыштың сол жақ жоғарғы (x1, y1) және оң жақ төменгі (x2, y2) бұрыштарының координаттары. Төртбұрыш ағымды түс пен сызық стилін қолданып сызылады.

DrawPoly процедурасы. Сыну нүктелерінің координаттарымен берілген кез келген сынған сызықты жасайды.

Procedure DrawPoly (N: word; var Points)

Мұнда N - екі шеткі нүктелерімен қоса, сыну нүктелерінің саны; Points - сыну нүктелерінің координаттары бар PointType типті айнымалы. Сыну нүктелерінің координаттары word типті екі мағынамен беріледі: біріншісі горизонтальды, 2-сі вертикальді координаттарды береді. Олар үшін модульде берілген келесі типті қолданады:

type PointType = record

x, y: word

end:

Сызбаны жасау кезінде түзудің ағымды түсі мен ағымды стилін қолданады.

Доғалар, Шеңберлер, Эллипстар

Мұнда x1…y2 - ортаның координаттары; r - радиус пикселмен. Шеңбер ағымды түспен шығады, Сызық жуандығы ағымды стильмен қойылады, сызық түрі ылғида SolidLn (бүтіндей) .

Arc процедурасы. Шеңбер доғасын сызады. Тақырып:

Procedure arc (x, y: integer; BegA, EndA, r: word) ;

Мұнда x, y - орта координаты; BegA, EndA - доғаның бастапқы және аяқтағы бұрыштары; r - радиус. Бұрыштар сағат тілі қозғалу бағытына қарсы есептеледі және градуспен көрсетіледі. Нольдік бұрыш вектордың горизон-таль бағытымен солдан оңға қарай сәйкес болады. Егер бұрыштың бастапқы мәні 0-ге және соңғы мәні 359 деп берілсе, толық шеңбер шығады. Шеңбердің доғасын сызғанда сызық пен радиус жөнінде Circle процедурасындағыдай параметрлерді қолданады.

Ellipse процедурасы. Эллипстік доғасын сызады. Тақырып:

Procedure ellipse ( x, y : integer; BegA, EndA , rx, ry: word) ;

Мұнда x, y - орта координаты; BegA, EndA - доғаның бастапқы және аяқтағы бұрыштары; rx, ry- пиксельмен берілген элдипстің горизонтальді және вертикальді радиустары.

Эллипстің доғаларын сызғанда Circle процедурасындағы сызықтар, Arc процедурасындағы бұрыштар жөніндегі келісімдер қолданылады. Егер радиустарды GetAspectRatio масштаб коэффициентімен келістірілсе, дұрыс шеңбер сызылады. Келесі программа бойынша әр түрлі радисутар қатынасында үш эллипстік доғалар сызылады. 2- суретте.

Тексті шығару

Графикалық режимде текстерді шығаратын әр түрлі стандарттық процедуралар мен функциялар бар. Тексті әр түрлі шрифтармен горизонталь және вертикаль бағытпен, әрі өлшемін өзгертіп, шығаруға болады.

OutText процедурасы. Көрсеткіштің аіымды орнынан бастап текстік жолды шығарады. Тақырып:

Procedure OutText (Txt: string) ;

Мұнда Txt - шығарылатын жол. Жол қойылған стиль мен тегістеу бойынша шығарылады. Егер текст экран шегінен шықса, штрихталған шрифтарды қолданғанда олар кесіп тасталынады, ал стандарттық шрифтар шықпайды.

OutTextXY процедурасы. Жолды берілген жерден бастап шығарады.

Procedure OutTextXY (x, y: integer; Txt: string) ;

Мұнда x, y- шығару нүктесінің координатасы; Txt - шығарылатын жол. OutText процедурасынан айырмасы шығару координатасы ғана. Көрсеткіш өзінің орнын өзгертпейді.

SetTextStyle процедурасы. Графикалық экранға текст шығару стилін қояды. Тақырып:

Procedure SetTextStyle (Font, direct, size: word) ;

Мұнда Font- шрифтің код (номері) ; direct -бағыт коды; size -шрифт размерінің коды.

Шрифтің кодын көрсету үшін төмендегі алдын ала анықталған константаларды қолданады:

Const

Default Font=0; {нүктелі шрифт 8х8}

Triplex Font=1; {үш есе үлкен шрифт TRIP. CHR}

Small Font=2; {кішірейтілген шрифт LITT. CHR}

SansSerifFont=3; {тура шрифт SANS. CHR}

Gothic Font=4; {готикалық шрифт GOTH. CHR}

Графикалық координаталар жүйесі

Графикалық координатталар экрандағы нүктенің (пикселдің) орнын анықтайды. Графикалық координаталар ретінде пикселдердің реттік нөмірі алынады. Мысалы, 640 х 480 режимінде х , у координаталары 0≥ х ≥639, 0≥ у ≥479 аралықта болады. х координатасының мәні оңға, ал у координатасының мәні төмен қарай өседі х , у шектеулі бүтін мәндерді ғана қабылдайды .

Нүтені экранда бейнелеу үшін оның декарттық (x, y) координаталарын графикалық ( х , у ) координаталарға

х =mx · x+dx,

у =ry -my · y -dy

формулаларын қолданып түрлендіруге болады. Мұндағы dx және dy кесіннің экранның сол жақ жоғарғы шетіне қарағандағы ығысуын қамтамасыз етеді, ал mx, my айнымалыларының мәндері

rx=mx · x +1,

ry=my · y +1

шарттарын қанағаттандыруы тиіс (x және y декарт координаталарының ең үлкен мәндері) . Мысалы, кескінді экранның центріне орналастыру қажет болса

dx=rx div 2, dy= ry div 2

деп аламыз.

Графикалық экран мен элементтердің параметрлерін қою процедуралары

Процедура

Қызметі

Процедура: П: Move To(x, y:integer)

Қызметі: Көрсеткішті (x, y) нүктесіне қояды

Процедура: П: Move Rel(dx, dy:integer)

Қызметі: Көрсеткішті (dx, dy) векторына ығыстырады

Процедура: П: SetGraphMode (r:integer)

Қызметі: Экранды алынған режимге көшіреді және оны тазалайды

Процедура: П: Set Color (c:word)

Қызметі: Суреттің түсін анықтайды, с: 0-қара, 1-көк, 2-жасыл, 3-көгілдір, 4-қызыл, 5-қызғылт, 6-қоңыр, 7-ашық сұр, 8-қара сұр, 9-ашық көк, 10-ашық жасыл, 11-ашық көгілдір, 12-ашық қызыл, 13-алқызыл, 14-сары, 15-ақ, 128-жыпылықтау

Процедура: П: SetBkColor (c:word)

Қызметі: Экран төсегінің түсін анықтайды

Процедура: П: Clear Device

Қызметі: Көрсеткішті (0, 0) нүктесіне қояды және экранды төсек түсімен толтырады

Процедура: П:SetLineStyle (s, t:word)

Қызметі:

Сызықтың типін және жуандығын анықтайды,

s: 0-тұтас, 1-нүктелік, 2-штрихпунктирлі, 3-пунктирлі, 4-орын. типі

t: 0-қалыпты, 1-жуан

Процедура: П:SetTextStyle(f, n, r: word)

Қызметі: Мәтінді экранға шығару параметрлерін анықтайды, f-шрифт (0, 1, 2, 3, 4), n-бағыт (0, 1), r-шрифт өлшемі(1, х4)

Процедура: П:SetFillStyle(s, c:word)