Transcript Графика Gambas. Использование графических методов для

Использование графических методов.
С помощью методов графики можно рисовать
графические примитивы: линии,
прямоугольники, многоугольники и эллипсы на
поверхности формы или в области для
рисования, а также выводить текст в нужном
месте. Для этого необходимо выбрать
графический режим.
DRAW.BEGIN(DRAWAREA1)
К объекту DRAWAREA1 применить метод
НАЧАТЬ РИСОВАНИЕ.
Параметром может выступить и форма,
например: DRAW.BEGIN(FMain)
DRAW.LINE (X1,Y1,X2,Y2)
Рисовать линию(отрезок) от (x1,y1) до (x2,y2).
Использование графических методов.
DRAW.RECT(X,Y, ширина, высота)
Нарисовать прямоугольник. Левый верхний угол
(X,Y). Задаем ширину и высоту.
DRAW.ELLIPSE(X,Y, ширина, высота, начало
дуги, длина дуги)
Нарисовать эллипс. Первые 4 параметра – это
параметры описанного прямоугольника. Два
последних – параметры дуги в градусах,
задаются если нужна дуга, а не целый эллипс.
DRAW.POLYLINE(ОБЪЕКТ МАССИВ ТОЧЕК)
Нарисовать ломаную по заданным точкам. До
этой команды нужно определить объект и
присвоить значения координатам точек.
DRAW.POLYGON(ОБЪЕКТ МАССИВ ТОЧЕК)
Нарисовать многоугольник по заданным
точкам.
DRAW.PICTURE(ПУТЬ К ФАЙЛУ)
Нарисовать картинку из файла.
DRAW.TEXT(“Hello”,100,120)
Вывести текст на картинке в заданной точке.
DRAW.END()
Применить метод окончить рисование.
Перед рисунком фигуры нужно задать свойства
объекта рисунок:
FORECOLOR – цвет контура,
FILLCOLOR – цвет заливки,
FILLSTYLE – Стиль заливки:
0 - нет заливки,
1 – сплошная заливка, 2 – 14 – штриховки.
ПРИМЕР:
DRAW.FORECOLOR(255) ‘Задать голубой цвет контура
DRAW.FILLCOLOR(16711680) ‘Задать красный цвет заливки.
DRAW.FILLSTYLE(1) ‘Установить заливку сплошным цветом.
DRAW.RECT(10,10,100,50) ‘Нарисовать закрашенный
прямоугольник. Контур голубой. Внутри красный.
НОМЕРА ЦВЕТОВ:
0 - черный
16777215 - белый
16711680 - красный
16778060 - желтый
8388863 - фиолетовый
65280 - зеленый
255 - голубой
65525 - темно-синий
16711935 - пурпурный
16744448 - оранжевый
Остальные номера дают миллионы
различных оттенков цветов.
Некоторые свойства формы в Gambas.
Height – высота формы; Width – ширина формы;
Изменять ширину и высоту формы можно разными
способами:
1. Мышкой (ЛКМ на квадраты границ формы);
2. В окне свойств;
3. Непосредственно в программе:
Height = 400
Width = 600
0,0
0,Height
Width, 0
Использование графических методов
10Х10
Задание №1.
Набрать программу. Запустить на выполнение.
Проверить выполнение программы (см. рис.)
DRAW.BEGIN(FMain)
‘незакрашенный прямоугольник
DRAW.RECT (20, 20, 80, 60)
‘закрашенный прямоугольник желтого цвета
DRAW.FillColor = 16778060
DRAW.FillStyle = 7
DRAW.RECT (170, 20 , 90, 30)
‘линия красного цвета
DRAW.ForeColor = 16711680
DRAW.Line (20, 120, 90, 160)
‘ закрашенная окружность: стилем 7, синим цветом
DRAW.FillColor = 65525
DRAW.FillStyle = 7
DRAW.ELLIPSE(210, 110, 60, 60)
DRAW.End
Задание №2:
Используя графические методы, составить
программу вычерчивания данного
рисунка:
DRAW.BEGIN(FMain)
‘ кузов
DRAW.Rect (0, 100, 300, 140)
‘ кабина
DRAW.Line (450, 150)-(450, 100)
DRAW.Line (450, 100)-(400, 100)
DRAW.Line (400, 100)-(400, 30)
DRAW.Line (400, 30)-(300, 30)
DRAW.Line (300, 30)-(300, 100)
DRAW.Line (300, 150)-(450, 150)
DRAW.FillStyle = 4
DRAW.Rect (400, 110, 400, 30)
DRAW.FillStyle = 7
DRAW.Rect (310, 40, 80, 100)
DRAW.Rect (320, 50, 60, 50)
‘ колеса
DRAW.FillStyle = 6
DRAW.ELLIPSE (100, 180, 60, 60)
DRAW.ELLIPSE (350, 180, 60, 60)
DRAW.FillStyle = 0
DRAW.FillColor = 16778060
DRAW.ELLIPSE(100, 180, 30, 30)
DRAW.ELLIPSE (350, 180, 30, 30)
Задание №3:
Загрузить грузовик кирпичиками (прямоугольниками
одинаковой ширины и высоты).