Дебиеттер

Негiзгi әдебиеттер:

1. В.В.Фаронов Turbo Pasсal.7.0. Практика программирования..изд. «Нолидж»,1999. Москва.

2. С.Немюгин,Л.Перколаб. Изучаем Turbo Pasсal. Изд.«Питер Принт»,2002.Санкт-Петербург.

3. Ж.А.Аитов, М.Б.Мақамбаев. Программалау тілі Паскаль. Изд.«Алматы».1998.

4. Ж.С.Каженова Ж.С.. Программалау. Изд.«Интелект».2009.Семей.

Қосымша әдебиеттер:

1. Ефимова О., Морозов В., Шафрин Ю. Курс компьютерной технологии, 1-том, Москва, АБФ, 1998, стр. 452-477.

3. Микляев А.П., Настольная книга пользователя, Москва, 2000, стр. 329-366

10. АҚПАРАТТЫҚ – ДИДАКТИКАЛЫҚ БӨЛІМ

Graph модул құралдары экранда тұтас экранға шығарылатын немесе қосымша жасалған терезелерге шығарылатын әртурлі түрлі-түсті бейнелерді жасауға мүмкіндік береді. Сызықтар мен толтырулардың бірнеше типтері колданылады. Шрифттардың масштабталуына икемделетін жиынтық бар. Модульдардың бірқатар ішкі программалары экрандаа әртурлі толтырылған және толтырылмаған фигураларды бейнелеуге мүмкіндік береді.

Экранға қандай-да 6ip бейнені шығаруды жузеге асыратын Graph модулінің процедуралары мен функцияларын пайдалану үшін алдымен графикалық режимге қосу (инициировать) қажет. Графикалык режимге өтуді InitGraph процедурасы жүзеге асырады.

InitGraph процедурасы видеоадаптердің графикалық режимге өтуін жүзеге асырады. Мундағы Driver - графикалык драйверді анықайтын параметр Моde көрсетілгенгендрайвер үшін мүмкін графикалық режимдердің біреуін көрсететін параметр; Path - графикалык драйвер файлының атауы(немесе жолы);

Егер Path параметрі бос жолға сәйкес келсе, драйвер файлын іздеу ағымдағы каталогта жүргізіледі.

Егер Driver пapараметірінің мәні Deteсt(O) – re тең болса, жүйе видеоадаптерінің түрін автоматты түрде анықтауға тырысады. Бұл жағдайда InilGraph процедурасы DetectGraph процедурасын шакырады. Егер графикалықаппараттық жабдық табылса, сәйкес графикалық драйвер инициализациаланып, графикалық режим іске қосылады. Әр түрлі видио адаптерлерге арналған режимдерді анықтайтын тұрақтылар төменгі кестеде көрсетілген.

CGA	EGA	EGAMono	HercMono	VGA
MCGA	EGA64	IBM8514	ATT400	PC3270

Program Primer1; Uses Graph;{ модуль библиотекасы графикалық процедураны қосу } Var GraphDriver, GraphMode: integer; Begin GraphDriver:= detect; {драйвер типін автоматты түрде айыру } InitGraph(GraphDriver, GraphMode, Path); {графикалық режимді инициализациялау}......... СloseGraph;{графиктік режимді жабу} End.

Мысалы GraphMode айнымалы InitGraph адаптера VGA келесі мәнін алуы мүмкін: VGALo = 0; VGAMed = 1; VGAHi = 2; Сізге Pascal тілінде компьютердің графикалық мүмкіндігін пайдаланып программа жазу керек болсын.егер сізге адаптер белгілі болса жақсы,ал болмаса. Онда сіз кезгелген адаптермен жұмыс жасайтын программа құруыңыз керек.ол үшін InitGraph драйверді автоматты түрде анықтады сұрайсыз. Ол былай болады:

Графиктік бейнені салу үшін пикселдердің (нүктелер) қажетті тобын белгілі түске бояй білу керек. Оны оңайлату үшін Graph модулі қолданылады, бұнда 79 пайдалы процедурамен функциялар бар, ондаған стандарт константалар мен деректер типі бар. Бұл модульді қосу үшін программаға Uses Graph жолын жазу керек. Шарт бойынша Graph модульінде функциялық әрекетіне байланысты бірнеше топтарға бөлуге болады.(Мұнда тек ең алғашқылары алынған.)

1) Графиканы инициализациялау, дайындау жұмыстары, түсті басқару, режимді жабу:

InitGraph	Графиктік режимде (инициализация) жұмысты қою
CloseGraph	Графиктік режимде жұмысты аяқтау
DetectGraph	Драйверді анықтау
FloodFill	Тұйық контурды белгілі типпен не түспен толтыру
RestoreCRTMode	Мәтіндік режимге қайту
SetBkColor	Фонды толтырып бояу.
SetColor	Пайдаланылатын жаңа түсті таңдау
SetFillStyle	Толтырушы жаңа шаблонды не түсті таңдау және орнату

2) Видиобеттермен курсорды басқару процедуралары және и функцилары:

ClearDevice	Ағымдағы шығару құрылғысын тазарту.
ClearViewPort	Ағымдағы терезені тазарту.
GetMaxX	X осі бойынша ең үлкен координатасын алу
GetMaxY	Y осі бойынша ең үлкен координатасын алу
GetPixel	Экранда нүктенің ағымды түрін шығару
GetX	X координатының мәнін алу
GetY	Y координатының мәнін алу
MoveRel	Курсорды ағымдағы нүктеден берілген өсімшеге ауыстыру.
MoveTo	Курсорды ағымдағы нүктеден берілген нүктеге ауыстыру.

3). "Графикалық оңтайлармен" жұмыс жасайтын процедуралар мен функциялар:

Arc	Доға салады
Bar	Қалың сызық салады
Bar3D	Үш координатта қалың сызық салады
Circle	Шеңбер салады
DrawPoly	Көпбұрыш салады
Ellipse	Эллипс немесе элипстік доға салады
FillEllipse	Толтырылған элипс салады
FillPoly	Толтырылған көпбұрыш салады
Line, LineRel, LineTo	Сызық салады
Rectangle	Тік төртбұрыш салады
Sector	Эллипс секторын салады
PutPixel	Нүктені салады

4) Мәтінмен жұмыс процедурасы: OutText - Мәтінді шығару, OutTextXY - Мәтінді шығару.

Сонымен графиктік жүйені қосу үшін бізге керегі:

1. Модуль GRAPH-ты қосу керек- графиктік процедуралар библиотекасы:Uses Graph;

2. Екі айнымалысы арқылы графиктік режимті қою керек:

Var GraphDriver, GraphMode: integer; Begin GraphDriver:=detect; InitGraph(GraphDriver, GraphMode, '..BGI'); {осы моменттен бастап графиктік құралдар пайдаланушы қолданаалады } { программа денесі } CloseGraph; End.

Бұл программаны жүргізуден бұрын компьютерде BGI файлын каталогтан іздеу маршрутын қою керек. Ол үшін мынаны орындау керек:

EXE&TPU directory терезесінде .BGI теру керек.
TAB пернесімен Unit directories терезесіне өтіп, .BGI теру керек
TAB пернесімен ОК ке өтіп Enter басу керек.

Дата добавления: 2015-07-10