Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Процедуры и функции графического режима
Arc Синтаксис: procedure Arc(x,у: integer; УголНачала, УголКонца: integer; Радиус: integer); Действие: Вычерчивает дугу с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты на-чальной и конечной точек линии дуги, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах. Значение угловой координаты возрастает против часовой стрелки. Параметр Радиус задает радиус дуги. Дуга вычерчивается цветом, заданным процедурой setcoior. Bar Синтаксис: procedure Bar(xl,yl,x2,y2: integer); Действие: Вычерчивает закрашенный прямоугольник. Параметры xl и yl задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего. Используемый стиль и цвет заливки задается Процедурой SetFillStyle. Bar3D Синтаксис: procedure Bar3D(xI,yl,x2,y2: integer; Глубина: word; Граница: boolean); Действие: Вычерчивает параллелепипед. Параметры xl и yl задают положение левого верхнего, а х2 и у2 — правого нижнего угла ближней грани параллелепипеда. Параметр глубина задает расстояние между передней и задней гранями. Параметр граница определяет, нужно ли вычерчивать верхнюю границу задней грани параллелепипеда. Circle Синтаксис: procedure Circle(х,у: integer; r: word); Действие: Вычерчивает окружность радиуса г с центром в точке с координатами (х,у). DetectGraph Синтаксис: DetectGraph(var Драйвер, Режим: integer); Действие: Проверяет графический адаптер и определяет, какой графический драйвер и режим используются. Ellipse Синтаксис: procedure Ellipse(х,у: integer; УголНачала, УголКонца: word; Действие: Вычерчивает эллипс или дугу эллипса с центром в точке с координатами (к,у). Параметры УголНачала и Уголконца задают угловые координаты начальной и конечной точек линии эллипса, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах, их значения возрастают против часовой стрелки. Параметры РадиусХ и Радиусу определяют горизонтальный и вертикальный радиусы эллипса. Линия эллипса или дуги вычерчивается в соответствии с установками процедуры setcoior.
GetX, GetY Синтаксис: function GetX: integer; function GetY: integer; Действие: Возвращают координаты х и у указателя вывода. GraphResult Синтаксис: function GraphResult: imteger; Возвращает результат (код ошибки) последней выполненной графической операции. Если операция выполнена успешно, функция возвращает ноль. Код ошибки выполнения графической операции устанавливают процедуры Bar, Bar3D, InitGraph, PieSlice, SetFillPattern, SetFillStyle, SetLineStyle, SetTextStyle InitGraph Синтаксис: InitGraph(var Driver: integer; var Mode: integer; Path: string) Действие: Инициализирует графический режим. Параметр Driver определяет драйвер видеосистемы, параметр Mode — режим работы видеосистемы, параметр Path — каталог, где находится драйвер. Line Синтаксис: procedure Line(xl,yl,x2,y2: integer); Действие: Вычерчивает линию между двумя точками экрана, координаты которых указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры setcoior. LineTo Синтаксис: procedure Line(x2,yl: integer); Действие: Вычерчивает линию от текущего положения указателя вывода до точки, координаты которой указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры SetColor. MoveTo Синтаксис: procedure MoveTo(x,у: integer); Действие: Перемещает указатель вывода в точку с координатами х и у. MoveRel Синтаксис: procedure MoveRel(dx:, dy: integer); Действие: Перемещает указатель вывода на dx и dy пикселов. Если значение параметра dx (dy) положительное, то указатель перемещается вниз (влево), если отрицательное, то — вверх (вправо). OutText Синтаксис: procedure OutText{Текст: string); Действие: Выводит строку символов текст от текущего положения указателя вывода и перемещает указатель вывода в точку, расположенную за последним выведенным символом. Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — SetTextStyle. OutTextXY Синтаксис: procedure OutTextXY(x, у: integer; Текст: string); Действие: Устанавливает указатель вывода в точку с координатами (х,у) и выводит строку символов текст, при этом указатель вывода своего положения не меняет, остается в точке с координатами (я, у).
Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — процедурой SetTextStyle. PieSlice Синтаксис: procedure PieSlice(х,у: integer; УголНачала,УголКонца, Радиус: word); Действие: Вычерчивает сектор радиуса Радиус с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии окружности (в градусах), которая вычерчивается против часовой стрелки от начальной к конечной точке. Значение угловой координаты возрастает против часовой стрелки. Нулевому углу соответствует горизонтальный отрезок, проведенный из точки (х,у) в сторону PutPixel Синтаксис: procedure PutPixel(х,у: integer; Цвет: word); Действие: Окрашивает пиксел, точку с координатами (х,у), цветом цвет. В качестве параметра цвет обычно используют именованную КОНСТаНТу (СМ. SetColor). Rectangle Синтаксис: procedure Rectangle{xl,yl,x2,y2: integer); Действие: Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника. SetLineStyle Синтаксис: procedure SetLineStyle(ТипЛинии: word; Образец: word; Толщина: word); Действие: Устанавливает стиль вычерчиваемых контуров и линий (см. процедуры Line, Circle И Др.).
Параметр толщлна определяет толщину линии. Линия может быть обычной толщины (константа Normwidth) или утолщенная (константа ThickWidth). Параметр образец используется в том случае, если процедура SetLinestyle устанавливает тип линии, определяемый программистом. Значением параметра образец должна быть четырехразрядная шестнадцатеричная константа, кодирующая отрезок линии длиной в 16 пикселов. SetTexStyle Синтаксис: procedure SetTexStyle{Шрифт, Ориентация, Размер: word); Действие: Устанавливает шрифт, размер и ориентацию текста, выводимого процедурами outTextxY и outText. В качестве параметра шрифт можно использовать одну из перечисленных ниже констант.
Примечание Контрольные вопросы: 1. Для чего предназначен условный оператор? 2. Каков формат данного оператора? 3. Каков порядок выполнения условного оператора
|
||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2021-03-10; просмотров: 41; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.147.103.227 (0.01 с.) |