4.2 Графические команды

При помощи графических команд можно создавать по-настоящему красивые рисунки в вашем приложении [мои прим.: у каждого свои вкусы и запросы - у кого брилианты слишком мелкие, а у кого суп слишком жидкий.]. Чтобы "объяснить" в цифрах компьютеру что и куда он должен писать используют координаты. Обращение с координатами Вы будете учить в этом курсе.

Расстояния на мониторе, в Visual Basic измеряются не в сантиметрах, а с помощью специальной единицы измерения "твип". Один твип - это очень маленькое расстояние: взгляните на форму в режиме "design" - она вся изрисована серыми точками. Так вот от точки до точки помещается 120 твипов!

Итак, чтобы начертить линию на форме, нужно задать координаты её начала и конца.

Пример:

Line (1000,1500)-(5000,1500)

Line (начальная точка)-(конечная точка)

Этой командой будет нарисована горизонтальная линия, т.к. начальная точка и конечная точка имеют одинаковое расстояние к верхнему краю окна (1500 твипов). Начало линии - 1000 твипов от левого края формы, а конец линии на 5000 твипов. Всего линия 4000 твипов длиной.

Если нужно, можно задавать ещё и цвет, в котором надо рисовать (чёрный цвет стоит по умолчанию). Для этого однако нужно знать, как Windows обращается с цветами: в компьютере имеется для каждого цвета, которые он "знает", просто одно число, т.к. числа, как известно, компьютер может обрабатывать особенно хорошо. Но для нас труднее понять, что светло-коричневый цвет соответствует числу 8887245, поэтому в бэйсике имеется "компромисс": GRB-функция. Этим компьютеру "объясняют", как должны смешиваться цвета. В телевизорах и компьютерных мониторах каждый цвет - это смесь из красного, зелёного и синего цвета. В каждом цвете разное содержание каждого из них. Однако это смешивание не действует, как в ящике с красками: если, например, смешать одинаково много синего, зелёного и красного, можно получить серый цвет.

Line (1000,1500)-(5000,3000), RGB(255,0,0)

Этим рисуется красная диагональная линия. Цвет описан с помощью RGB-функции, где отдельно задаётся каждый цвет (в пределах от 0 до 255).

По этому принципу можно достигнуть любого цвета. Давайте я покажу, как это

делается.

Важные цвета:

цветR(ed)G(reen)B(lue)цветRGB

черный000жёлтый2552550

белый255255255фиолетовый2550255

красный25500коричневый205155135

зелёный02550оранжевый2551280

синий00255серый128128128

Итак, например, оранжевый цвет в бэйсике называется RGB(255,128,0). Если нужно нарисовать прямоугольник, для этого хватит всего одной Line-команды, в которой вместо начальной и конечной точки нужно задать координаты левого верхнего и правого нижнего угла прямоугольника, и после цвета вписать ещё ", B" (В, потому что прямоугольник на английском называется box):

Line (1000,1500)-(5000,3000),RGB(255,0,0),B

чертит вместо линии прямоугольник из красных линий. Можно также "прицепить" за "B" букву "F". Тогда прямоугольник будет заполнен краской.

Если Вы не хотите задавать цвет, обе запятые писать нужно всё равно: при помощи команды

Line (1000,1500)-(5000,3000),,BF

Будет начерчен чёрный, заполненный прямоугольник. Будьте внимательны и не пропускайте запятые между которыми мог бы стоять цвет!

Рисовать круги компьютер может, конечно же, тоже! Для этого имеется команда Circel. К этому нужно, конечно, добавить где и каким размером должен быть круг. Для этого описывают сначала координаты середины круга, и потом задают величину круга - его радиус в твипах.

Кроме того можно устанавливать цвет круга.

Circle (3000,4000),2000,RGB(0,190,0)

компьютер рисует тёмно-зелёный круг с радиусом 2000 твипов и серединой с координатами (3000,4000).

Также можно рисовать отдельные точки, а именно при помощи команды PSet:

PSet (1000,500),RGB(255,128,0)

рисует оранжевую точку с координатами (1000,500). Цвет, как и во всех других командах, можно тоже убирать.

И, наконец, ещё одна важная команда: при помощи команды Cls можно всё, что было прежде нарисовано или написано командами PSet, Line, Print или Circle просто стереть. Если на форме находятся какие-нибудь объекты, они при этом стёрты не будут. Имя Cls происходит из ангийских слов clear screen: очистить экран.