Графические возможности языка VB

Цикл While…Wend

Цикл Do…Loop

Применяется в том случае, когда число повторений операторов тела цикла заранее неизвестно.

Do Until условие

Операторы

Loop

Если результатом проверки условия является значение False, то блок операторы выполняется, иначе осуществляется переход на оператор, расположенный после служебного слова Loop.

Do While условие

Операторы

Loop

Если условие истинно, то происходит выполнение блока операторы, если же оно ложно, то цикл ни разу не выполняется.

Do

Операторы

Loop Until условие

Блок операторы выполняется до тех пор, пока результатом проверки условия является значение False, иначе выполнение цикла заканчивается.

Do

Операторы

Loop While условие

В случае ложности условия выполняется блок операторы, если же оно истинно, то происходит окончание цикла.

Используется, когда число повторений операторов тела цикла заранее неизвестно.

While условие

операторы

Wend

Если результатом проверки условия является истина, то блок операторы выполняется, иначе осуществляется переход на оператор, расположенный после служебного слова Wend.

На формах (Form) или в графических окнах (PictureBox) можно рисовать различные графические объекты с использованием графических методов:

Scale – задает систему координат и масштаб формы или графического окна:

Object.Scale (X1,Y1)-(X2,Y2)

X1,Y1- координаты левого верхнего угла объекта;

X2,Y2- координаты правого нижнего угла объекта

Pset – установка точки с заданными координатами и цветом

Object.Pset (X,Y) [, color]

X,Y- координаты точки

color – цвет, который можно задать с помощью одной из восьми констант, определяющих цвет: vbBlack – черный, vbBlue – синий, vbGreen – зеленый, vbCyan- голубой, vbRed- красный, vbMagenta – сиреневый, vbYellow- желтый, vbWhite-белый или с помощью функции QBColor(number), аргументом которой служат числа от 0 до 15, а результат соответствует одному из 16 цветов.

В случает отсутствия аргумента color рисование будет производиться черным цветом.

Line – рисование линии, прямоугольника или закрашенного прямоугольника заданного цвета:

Object.Line (X1,Y1) – (X2,Y2) [, color] [,B] [F]

X1,Y1 и X2,Y2 – координаты концов линии (левого верхнего и правого нижнего угла прямоугольника)

Color – цвет линии

B – задает рисование прямоугольника

F – закрашивает прямоугольник

Circle – рисование окружности, овала или дуги с заданными координатами центра, радиусом, цветом, начальным и конечным углами дуги и коэффициентом сжатия:

Object.Circle (X,Y), radius [, color, start, end, aspect]

X,Y – координаты центра окружности

radius – радиус окружности

color – цвет окружности

start и end – начальный и конечный угол дуги

aspect – коэффициент сжатия

Замечание:

Эллипсом называется кривая, которая получается из окружности путем ее равномерного сжатия к одному из диаметров. На рис.1 представлен общий вид эллипса:

A,B,C,D – вершины эллипса;

O- центр эллипса;

OA=a, OB=b – большая и малая полуоси эллипса (если a=b, то эллипс преобразуется в окружность

Рис. 1. Общий вид эллипса, отношение <1

При использовании метода Circle для рисования эллипсов предусмотрен параметр отношение, который определяет отношение вертикальной полуоси (OB) и горизонтальной (OA). Если это отношение < 1 окружность “прижата” к горизонтальной оси, при >1 - к вертикальной, при =1 будет настоящая окружность.

При рисовании дуг и секторов предусмотрены еще два параметра: начало и конец, определяющие угол начала дуги и угол ее окончания. Углы измеряются в радианах и отсчитываются от нулевого угла, направленного по оси OX, против часовой стрелки, число p=3,14159, в полной окружности 360° или 2p радиан. Перевод из градусов в радианы по формуле: , где n – значение в градусах (p/2 – 90° p - 180°).

Например:

Const p=3.14159

Circle (100,100), 70, vbBlue, p/2, p

Построит дугу из точки 90° в точку 180°. Построение дуги всегда выполняется по часовой стрелке. Знак “минус” перед значением угла указывает на то, что данная точка дуги будет соединена с центром окружности, т.е. будет нарисован сектор.

Дата добавления: 2014-01-06