Графика. Графиктік бейнелеудің алгоритмдік негізделуі.
жоспары:
1. Graph модулі
2. USES GRAPH
Негізгі ұғымдардың сөздігі: графика, режим, драйвер, модуль.
Студенттерде қалыптасу керек білім мен дағды: графиктік процедуралары мен функцияларын қолданып, графиктік кескіндер құрастыру дағдыларын меңгеру.
1. Graph модулі
Turbo Pascal программалау тілінде символдық режимнен бөлек графиктік режимде жұмыс істеуге болады. Онда әр түрлі графиктік кескіндер құрастыру мүмкіндігі бар. Turbo Pascal графиктік мүмкіндіктерін пайдалану үшін арнайы “GRAPH” кітапханасы іске қосылады. “GRAPH” модулінің графиктік процедуралары мен функцияларын қолданып графиктік кескіндерді құрастыруға болады. “GRAPH” модулінде орналасқан процедуралар мен функцияларды пайдалану үшін программаның сипаттау бөлімінде көрсетіледі.
2. USES GRAPH
Графиктермен жұмыс істеу алдында оған сәйкес келетін монитор режимін орнату қажет. Турбо паскаь тілінде алдын ала бекітілген драйверлер саны бар. Олардың әр қайсысы үш түрлі режимдердің бірінде жұмыс істей алады. Драйвер типі мен оның режимі санмен немесе тұрақты түрде берілген (13.1-кесте).
1-кесте. Графикалық режимдер
Драйвер |
Режим |
Нүктелер саны |
Файл |
CGA (1) |
CGACO, CGAHi |
320x200(640x200) |
CGA.BGI |
EGA (2) |
EGALo, EGAHi |
640x200(640x350) |
EGAVGA.BGI |
VGA (9) |
HERCM ONOHI |
720x348 |
HERC.BGI |
GRAPH модулі іске қосылысымен оның ішіндегі процедуралар мен функцияларды пайдалана беруге болады.
Графикалық режимді іске қосу:
InitGraph (Var Driver, Mode: integer; path: string);
Мұндағы Driver – графикалық режимді анықтайтын параметр;
Mode – орнатылған драйверге байланысты берілетін графиктік режим параметрі;
Path – графиктік драйвер файылының атауы және жолы.
Driver мәні Graph модулінде хабарланған тұрақтылар жиынымен шектеледі (9.2-кесте).
2-кесте.
Тұрақты атауы |
Сандық коды |
Detect |
0 |
CGA |
1 |
MCGA |
2 |
EGA |
3 |
EGA64 |
4 |
EGAMono |
5 |
IBM8514 |
6 |
HercMono |
7 |
ATT400 |
8 |
VGA |
9 |
PC3270 |
10 |
DetectGraph процедурасы
DetectGraph процедурасы компьютер құрылымын тестілеп, берілген бейнеадаптеріне қандай графиктік драйвер және режим тиімді екендігін анықтайды. Процедура жазылуы:
DetectGraph (Var Driver, Mode : Integer);
Мұндағы: Driver - сәйкес келетін графиктік драйвердің типін анықтайды;
Mode – графиктік режим параметрі.
GraphResult фукциясы
GraphResult қате орындалған графиктік операциялардың кодын шығарады. Функцияның жазылуы:
GraphResult : Integer;
Қателер коды 9.3-кестеде көрсетілген.
3-кесте
Тұрақты атауы |
Коды |
Анықтамасы |
GrOk |
0 |
Қате жоқ. |
GrNolnitGraph |
-1 |
Графиктік режим анықталмаған |
GrNotDetected |
-2 |
Адаптер типі анықталмаған |
GrFileNotFound |
-3 |
Драйвер файлы табылмады |
GrlnvalidDriver |
-4 |
Анықталған файлда драйвер табылмады |
GrNoLoadMem |
-5 |
Драйверді жүктеуге жады көлемі жетпейді |
GrNoScanMem |
-6 |
Аймақты қарастыруға жады көлемі жетпейді |
GrNoFloodMem |
-7 |
Аймақты толтыруға жады жетпейді |
GrFontNotFound |
-8 |
Қаріп файлы табылмады |
GrNoFontMem |
-9 |
Қаріп файлы табылмады |
GrlnvalidMode |
-10 |
Анықталған драйверге сәйкес келмейтін режим |
GrError |
-11 |
Жалпы қате |
GrlOerror |
-12 |
Енгізу-шығару қатесі |
GrlnvalidFont |
-13 |
Қаріптің дұрыс емес пішімі |
GrlnvalidFontNum |
-14 |
Қаріптің номері дұрыс емес |
RestoreCrtMose процедурасы
RestoreCrtMose графиктік режимнен текстік режимге уақытша ауысу процедурасы.
Процедура жазылуы:
RestoreCrtMose ;
RestoreCrtMose процедурасының CloseGraph процедурасынан айырмашылығы, ол граыиктік режимнен текстік режимге ауысқанда графиктік режим параметрлерін сақтап қалады.
Бұл процедураны SetGraphMode процедурасымен бірге қолдануға болады. Бірге қолдану арқылы текстік режимнен графиктік режимге бірден ауыстырылады.
CloseGraph процедурасы
Графиктік режимді жабу процедурасы. Процедура жазылымы:
CloseGraph;
Бұл процедура жадыда орналасқан барлық графиктік параметрлерден босатады.
SetColor процедурасы
Бейнеленетін символдар мен түзулердің түсін орнату процедурасы. SetColor процедурасының жалпы жазылуы:
SetColor (Color:Word);
Мұндағы Color – ағымдағы түс.
Мысалы:
SetColor (1); - экранға бейнелер көк түске боялып шығады.
GetColor функциясы
GetColor функциясы ағымдағы түстің мәнін қайтарады.
Функция жазылуы:
Function GetColor : Word;
Бұл функция SetColor функциясы арқылы өзгертілген түстің мәнін қайтарады.
GetMaxColor функциясы
GetMaxColor функциясы SetColor функциясына параметр ретінде беруге болатын ең үлкен мәнді анықтайды.
Функция жазылуы:
Function GetMaxColor : Word;
Функция арқылы берілетін мән, адаптер және драйверде қолданылатын тип арқылы анықталады. Мысалы, SVGA режимінде берілген процедура 15 санын қайтарады.
SetBkColor процедурасы
SetBkColor процедурасы фон түсін орнатады.
Процедура жазылуы:
Procedure SetBkColor (Color : Word);
Мұндағы Color – фонның жаңа түсі.
Фон түсі терезе үшін емес, экран түсін өзгертуге беріледі.Фонды өзгерту кодтары 0-15 аралығында болуы тиіс.
Мысалы:
SetBkColor(2);
немесе SetBkColor(Green);
Берілген мысал көмегімен экран фоны жасыл түске өзгертіледі.
GetBkColor функциясы
GetBkColor экрандағы фон түсінің мәнін анықтауға қолданылатын функция.
Функцияның жазылуы:
Function GetBkColor: Word;
GetBkColor функциясының қайтаратын мәні 0-15 аралығында болады. Ал текстік режимде берілген түстер санының тең жартысын ғана қолдануға болады.
SetPalette процедурасы
SetPalette палитра түсін жаңа түске ауыстыру процедурасы.
Процедураның жазылуы:
Procedure SetPalette (Cut:Word; Paste:Shortint);
Мұндағы: Cut – палитра түсі;
Paste – жаңа түстің коды.
Мысалы: SetPalette(9,4);
Берілген көк түсті қызыл түске ауыстыру процедурасы.
SetFillStyle процедурасы
SetFillStyle боялу түсін және нұсқасын анықтайды.
Процедураның жазылуы:
Procedure SetFillStyle(Pattern:Word;Color:Word);
Мұндағы: Pattern – толтыру нұсқасы;
Color – боялу түсі.
GetX және GetY функциясы
Ағымдағы нүктенің тік және көлденең координаталар мәнін қайтарады.
Функцияның жазылуы:
Function GetX : Integer;
Function GetY : Integer;
GetX және GetY функцияларының мәндері экранның сол жақ жоғарғы бұрышынан нөлден басталып есептеледі.
MoveTo процедурасы
MoveTo ағымдағы көрсеткішті берілген координата бойынша орналастырады.
Процедураның жазылуы:
Procedure MoveTo(X, Ү : Integer);
Мұндағы Х және Ү көрсеткіш орнын ауыстыруға берілетін экрандағы нүкте координаталары.
ClearDevice процедурасы
ClearDevice экранды тазартып, ағымдағы көрсеткішті экранның жоғарғы сол жақ бұрышына орналастырады.
Процедураның жазылуы:
Procedure ClearDevice;
Экранды тазартып, SetBkColor процедурасының көмегімен берілген түске бояйды.
6. Әдебиеттер
1. Н.С. Заурбеков, Б.Ж.Жумажанов. Алгоритмдеу және программалау тілдері. Экономика баспасы. Алматы-2008.
2. Ж.Қ. Масанов, Б.А.Белгибаев, А.С.Бижанова, Қ.Қ.Мақұлов «Turbo Pascal». Алматы 2004.
3. Фаронов В.В. Тurbo Pascal 7.0. Практика программирования. Оку құралы.- М.: Нолидж, 2000ж. 416 бет.
Жарияланған-2014-06-25 19:50:14 Қаралды-4173
АРА НЕ БЕРЕДІ?
Аралар - біздің әлемде маңызды рөл атқаратын кішкентай, бірақ өте маңызды жәндіктер.
КЕМПРҚОСАҚ ДЕГЕНІМІЗ НЕ?
Адамдар бұл ең әдемі табиғат құбылысының табиғаты туралы бұрыннан қызықтырды.
АЮЛАР НЕГЕ ҚЫСТАЙДЫ?
Ұйықта қысқы ұйқы аюларға қыстың аш маусымынан аман өтуіне көмектеседі.
АНТИБӨЛШЕКТЕР ДЕГЕНІМІЗ НЕ?
«Анти» сөзінің мағынасын елестету үшін қағаз парағын алып...
- Информатика
- Қазақстан тарихы
- Математика, Геометрия
- Қазақ әдебиеті
- Қазақ тілі, әдебиет, іс қағаздарын жүргізу
- География, Экономикалық география, Геология, Геодезия
- Биология, Валеология, Зоология, Анатомия
- Әлеуметтану, Саясаттану
- Астрономия
- Ән, Мәдениет, Өнер
- Қаржы, салық және салық салу, банк ісі, ақша несие және қаржы
- Қоршаған ортаны қорғау, Экология
- Мәдениеттану
- ОБЖ
- Психология, Педагогика
- Тіл ғылымы, Филология
- Философия
- Физика, Химия
- Стандарттау және сертификаттау
- Спорт
- Автоматтандыру
- Аудит
- Ауыл шаруашылығы
- Биотехнология
- Бухгалтерлік есеп
- Журналистика
- Кедендік іс
- Құқық, Қоғам, Криминалистика
- Менеджмент, Маркетинг, Мемлекетті басқару
- Өндіріс, Өнеркәсіп, Құрылыс, Мұнай-газ, Электротехника
- Туризм
- Халықаралық қатынастар
- Экономика, макроэкономика, микроэкономика
- шет тілі
- Ауыл шаруашылық
- Медицина