Турбо Паскальдағы Graph модулі


Мазмұны

Кіріспе 3

1. 1 Graph модулі 4-5

1. 2 Процедуралар 5-8

1. 3 Функциялар 8-9

1. 4 GRAPH кітапханасын қолдану 9

1. 5 Graph модуліне мысалдар 10-11

Қорытынды12

Қолданылған әдебиеттер13

Кіріспе

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

TurboPascal - да графикалық драйверлер деп аталатын арнайы программалар (BGI- файлдар) видеоадаптерлерінің қалыпты жұмысын басқарады.

Драйверлер
Видеоадаптерлер
Драйверлер: CGA. BGI
Видеоадаптерлер: CGA, MCGA
Драйверлер: EGAVGA. BGI
Видеоадаптерлер: EGA, VGA
Драйверлер: HERC. BGI
Видеоадаптерлер: Hercules (монохромды)
Драйверлер: ATT. BGI
Видеоадаптерлер: AT&T 6300 (400 жол)
Драйверлер: PC3270. BGI
Видеоадаптерлер: 3270 PC
Драйверлер: IBM 8514. BGI
Видеоадаптерлер: IBM - 8514

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

Мысалы: көп қолданылатын VGA адаптерінің қалыпты режимінде экранда 640×480 пиксел көрінеді және олардың 16 түсін айыруға болады.

Uses Graph операторын программа басына орналастырғанда ғана Graph модулінің қызметін толық пайдалануға мүкіндік береді.

1. 1 Graph модулі

Турбо Паскальда Graph модулі 50-ге жуық әртүрлі процедуралар мен функцияларды графикалық экранда қолдануға мүмкіндік ашады. Сондай-ақ осы модульде графикалық программаларға пайдаланылатын тұрақтылар мен айнымалылар баяндалған. Graph модулін пайдалану үшін программаның басында мына операторды міндетті түрде қолдану керек:

Uses Graph;

  • Graph модулінің процедура мен функцияларын топтарға бөліп қарастыру керек. Графикалық режимдерді басқару және оны анализдеу.

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

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

Мұндағы Driver - графикалық драйвердің типін анықтайды.

Mode - графикалық адаптердің жұмыс режимін береді.

Path - драйвер файлының аты немесе іздеу маршруты көрсетіледі.

Сондай-ақ бұл топқа CloseGraph, DetectGraph жатады.

Procedure CloseGraph- графикалық режимді жабады.

Procedure DetectGraph (var Driver, Mode:integer) - қондырылған драйвердің және ағымдағы режимнің типін қайтарады.

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

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

  • Ағымдағы көрсеткішті басқару:

Procedure Move To (x, y: integer) ; - ағымдағы көрсеткішті (х, у) - ке әкеледі.

Procedure Move Rel (Dx, Dy: integer) ; - көрсеткішті үлкейтілген нүктеге апарады.

Procedure Get Max x:Integer; - Графикалық экрандағы горизонталь максималды координатаны табады.

Procedure Get Max y: integer; - вертикаль максимал координатаны табу.

Procedure Get x, Get y: Integer; - курсор ағымдағы х пен у-тің мәнін қайтарды.

  • Өзіндік сурет салу:

Procedure Line (x1, y1, x2, y2:integer) ; - x1, y1 нүктесінен х2, у2 нүктесіне дейін сызық жүргізеді.

Procedure Circle (x, y: integer; R:word) - xy - ті координат центрі ретінде пайдаланып, радиус арқылы шеңбер сызғызады.

Procedure Ellipse (x, y:integer; StAngle, EndAngle, XR, YR:Word) ; - StAngle бұрышынан соңғы EndAngle бұрышына қосатын доға салады, ху - координат центрі, XR, YR - горизонталь немесе вертикаль радиус бойынша сурет салу.

  • Шаблондар және түстердің боялуын басқару (SetColor, GetColor, GetPalette) ;
  • Биттік операциялар (PutPixel, GetPixel, ImageSize, GetImage, PutImage) ;
  • Видеопарақтарды басқару (SetActivePage, SetVisualPage) ;
  • Графикалық терезелерді басқаруға арналған операциялар (SetViuoPort, GetViewSetting, ClearViuoPort) ;
  • Тексті шығаруды басқару (OutText, OutTextXY, SetTextStyle және тағы басқа)

1. 2 Процедуралар:

  1. Procedure Arc (x, y:integer;

StAngle, EndAngle, Radius:Word) ;

Х, У - ті центр координаты ретінде пайдаланып, (StAngle) бас бұрыштан соңына (EndAngle) дейін Radius - пен доға сызады.

  1. Procedure Bar (x1, y1, x2, y2:integer) ; - ағымдағы түс пен стильді пайдаланыпжолақсызады.
  2. Procedure Bar3D (x1, y1, x2, y2:integer;

Derth:Word;

Top:Boolean) ; - ағымдағы түс пен стильді пайдаланып, кеңістіктегі жолақты сызады (трехмерный) .

  1. Procedure ClearDevice; - экранды тазартады.
  2. Procedure ClearViewPort; - терезені тазартады.
  3. Procedure CloseGraph - графикалық режимді жабады.
  4. Procedure DrowPoly (NumPoints:word;

Var PolyPoints) - ағымдағы түс пен сызықтың типін пайдаланып PolyPoints - та берілген координаттар арқылы NumPoints - та көрсетілген бұрыштың санына сәйкес көпбұрыш салады.

  1. Procedure Fill Ellipse (x, y:integer;

XR, YR: Word) - х, у - ті центр ретінде және XR, YR - ді гаризонтальді, вертикальді радиус ретінде пайдаланып штрихталған эллипс салады.

  1. Procedure Fill Poly (NumPoints:Word;

Var:Poly Points) - PolyPoints - та көрсетілген координаттарды және Npoints - тағы төбелерді пайдаланып көпбұрыш салады және штрихтайды.

  1. Procedure Fload Fill (x, y:integer;

Border:Word) - Border түсімен шектелген және ішкі нүктелері х, у координаттары болатын жабық ауданды штрихтайды (ағымдағы режимде) .

  1. Procedure GetArcCoords (Var ArcCoo: ArcCoordstype) - доғаның бастапқы және соңғы бұрыштарын, центрінің координаттарын қайтарады.
  2. Procedure Get AspectRatio (Var xAsp, yAsp: Word) - графикалық экран шеттерінің қатынасын бағалауға болатын 2 сан қайтарады.
  3. Procedure GetDefaultPalette (Var Palette: PaletteType) - PaletteType жазбасындағы ағымдағы палитраны қайтарады.
  4. Get Fill Pattern (Var:FillPatt: FillPatternType) - ағымдағы штрихтың үлгісін қайтарады.
  5. Get Fill Settings (Var:FillInfo: FillSettingsType) - ағымдағы штрихтың үлгісін және түсін қайтарады
  6. Get Image (x1, y1, x2, y2: integer;

Var BitMap) - экранның көрсетілген бөлігінің биттік нұсқасын BitMap айнымалысына сақтайды.

  1. GetLineSettings (Var LineInfo: LineSettings Type) - ағымдағы стильді, шаблонды және сызықтың жуандығын қайтарады.
  2. GetModeRange (Graph Driver: integer;

Var LoMode, HiLode: integer) - Graph Driver графикалық драйвері үшін жұмыс жасауға мүмкін болатын режим диапазонын қайтарады.

  1. GetPalette (var Palette: PaletteType) - ағымдағы палитраны және оның размерін қайтарады.
  2. GetTextSettings (var TextInfo: TextSettingsType) - SetTextStyle және SetTextJustify процедураларымен орнатылған ағымдағы шрифті, бағытты, өлшемін және мәтіннің көлемін түзетуді қайтарады.
  3. GetViewSettings (var ViewPort: NiewPortType) - ағымдағы терезенің координаттарын қайтарады.
  4. GraphDefaults - графикалық режимнің стандартты параметрлерін орнатады.
  5. LineRel (DX, DY: integer) - ағымдағы көрсеткіштен координаттардың өсу бойынша берілген нүктеге сызық салады.
  6. LineTo (x, y: integer) - ағымдағы көрсеткіштен х, у нүктесіне сызық салады.
  7. OutText (TextString: string) - тексттік жолды экранға шығарады.
  8. OutTextXY (x, y: integer;

TextString: string) - тексттік жолды экранның көрсетілген бөлігіне шығарады.

  1. PieSlice (x, y : integer;

StAnge, EndAngle, Radius: Word) - шар секторын салады және штрихтайды.

28. PutImage (x, y: integer;

Var BitMap;

BitBet: Word) - экранға биттік нұсқаны шығарады.

29. PutPixel (x, y : integer;

Color:Word) - x, y координаттары бойынша Color түсті нүктені экранға шығарады.

30. Rectangle (x1, y1, x2, y2 : integer) - ағымдағы түс пен сызықтың типін пайдаланып тіктөртбұрыш сызады.

31. Restore CRT Mode - экранның текстік режим жұмысын орнатады.

32. Sector (x, y : integer;

StAngle, EndAngle, XR, YR : WORD) - эллипс- секторын салады және штрихтайды.

33. SetActivPage (Page : Word) - графикалық нәтиже үшін активті парақты орнатады.

34. SetAllPalette (var Palette) - палитраның барлық түсін өзгертеді.

35. SetAspectRafio (xAsp, yAsp : Word) - графикалық экранның шеттерінің қатынасының масштабтық коэффициентін өзгертеді.

36. SetBkColor (Color : Word) - фонның түсін орнатады.

37. SetColor (Color : Word) - Сурет салуды іске асыратын негізгі түсті орнатады.

38. Set Fill Pattern (Pattern : Fill Pattern Type;

Color : Word) - штрихтың еркін үлгісін орнатады.

39. Set Graph But Size (Size : Word) - штрихтың функциясы үшін буфердің өлшемін өзгертуге мүмкіндік береді .

40. Set Graph Mode (Mode : integer) - жаңа графикалық режим орнатады және экранды тазартады.

41. Set Line Style (LineStyle, Pattern, Thickness :Word) - сызықтың стилі мен жуандығын орнатады.

42. Set Palette (ColorNum, Color : integer) - ColorNum номерін және Color түсіне сәйкес палитраның түсін ауыстырады.

43. Set RGB Palette (ColorNum, Red, Green, Blue : integer) - IBM8514 және VGA үшін палитраны толықтыруға мүмкіндік береді.

45. Set Text Justify (Horiz, Vert : Word) - тексті туралауды орнатады (OutText және OutTextXY процедуралары үшін) .

46. Set Text Style (Font, Direction, Char Size : Word) - ағымдағы шрифті, мәтіннің өлшемін, стилін орнатады.

47. Set User Char Size (MultX, DivX, MultY, DivY : Word) - шрифтың түрлеріне қою, өзгерту.

48. Set View Port (x1, y1, x2, y2 : integer;

ClipOn : Boolean) - графикалық нәтиже үшін ағымдағы терезе орнатады.

49. Set Visual Page (PageNo : Word) - көрініп тұрған графикалық парақтың номерін орнатады.

50. Set Write Mode (Write Mode : integer) - DrowPoly, Line, LineRel, LineTo, Rectangle процедуралары арқылы салынған сызықтардың нәтижелерін шығаруға режим орнатады.

1. 3 Функциялар

  1. Get Bk Color : Word - ағымдағы фондық түсті қайтарады.
  2. Get Color : Word - ағымдағы түсті қайтарады.
  3. Get Driver Name : String - ағымдағы драйвердің атын жолға шығарады.
  4. Get Graph Mode : integer - ағымдағы графикалық режимді қайтарады.
  5. Get Max Color : Word - SetColor- да беруге болатын максималды түсті қайтарады.
  6. Get Max Mode : integer - жүктелген ағымдағы драйвердің максималды режимнің номерін қайтарады.
  7. Get Mode Name (ModeNum:Word) : String - көрсетілген графикалық режимнің атын қайтарады.
  8. Get Palette Size : integer - палитра таблицасының өлшемін қайтарады.
  9. Get Pixel (x, y : integer) : Word - x, y координаттары бойынша пиксельдің түсін қайтарады.
  10. Graph Error Msg (ErrorCode: integer) : String-ErrorCode- коды үшін берілген қате туралы мәліметті қайтарады.
  11. Graph Result: integer - соңғы графикалық операция үшін қатенің кодын қайтарады.
  12. Image Size (x1, y1, x2, y2 : integer) - экранның тікбұрышты ауданының сақталуына қажет байт санын қайтарады.
  13. Install User Driver (Name : string;

Auto DetectPtr : Pointer) : integer - драйверлер құрылғысының кестесіне қолданушы драйвер құрылғысын орнатады.

  1. Install User Font (FontFileName : string) : integer-BGI жүйесінде орнатылмаған жаңа шрифті орнатады.
  2. Register BGI driver (Driver: Pointer) : integer - графикалық жүйе үшін драйверді тіркеу.
  3. Register BGI font (Font: Pointer) : integer - графикалық жүйе үшін шрифті тіркейді.
  4. Text Height (TextStr : String) : Word - жолдың биіктігін пиксельде қайтарады.
  5. Text Width (TextStr : String) : Word - жолдың енін пиксельде қайтарады.

1. 4 GRAPH кітапханасын қолдану.

Turbo Pascal графиктік мүмкіндіктерін пайдалану үшін арнайы “GRAPH” кітапханасы іске қосылады . Кітапханада программистің (бағдарлама құрушы) графикалық экранда басқаруына арналған 50-ге жуық процедуралар мен функциялар қызметі енгізілген. Кітапхана құрамындағы процедуралар мен функциялар қызметтік принципіне сәйкес топтастырылған.

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

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

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

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

Қазіргі кезде шығарылатын ДК (IBM) ЭЕМ фирмасы шығарған адаптерлермен жабдықталады. Монохромды MOD адаптерден басқа адаптерлердің барлығы графикалық режимде жұмыс жасай алады. Бұл режимде дисплейдің экраны жақын орналасқан пиксел нүктелерінің жиынтығы ретінде қаралады. Олардың жарқырауын бағдарлама арқылы басқаруға болады. Адаптердің графикалық мүмкіндігі экрандағы пикселдің мөлшерімен түстердің (рең) санымен анықталады. Көптеген адаптерлер бірнеше графикалық парақтармен жұмыс жасайды. Графикалық парақ (парақ, бет) - деп жедел жад аймағын айтады. Экранның сызбасын жасауға қолданады, яғни әрбір пикселдің реңгі (жарығын) туралы мәлімет сақтайды.

1. 5 Graph модуліне мысалдар:

  • Экранға периодты түрде “жұлдызды аспанды” шығарады және оны өшіреді.
... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.
Ұқсас жұмыстар
Турбо паскаль графикалық режимі
Турбо паскаль программалау тілінде графикалық объекттерді құру
Турбо паскальда графиканы құру
Турбо Паскалль тілінің негізгі элементтері
Турбо-паскальдағы графикамен жұмыс
Турбо паскальдағы графикалық процедура
Паскаль программалау тілінің негізі операторлары
„Трэк” ойыны
Turbo Pascal-дағы графика y=f(x) функциясының графигін салу
Turbo Pascal жүйесіндегі графиканы ұйымдастыру технологиясы
Пәндер



Реферат Курстық жұмыс Диплом Материал Диссертация Практика Презентация Сабақ жоспары Мақал-мәтелдер 1‑10 бет 11‑20 бет 21‑30 бет 31‑60 бет 61+ бет Негізгі Бет саны Қосымша Іздеу Ештеңе табылмады :( Соңғы қаралған жұмыстар Қаралған жұмыстар табылмады Тапсырыс Антиплагиат Қаралған жұмыстар kz