понятный стиль Visual Basic — если в списке необязательных параметров какой-то параметр пропускается, то запятые нужно указывать все равно, а то будет непонятно, какой по порядку параметр вы указали правее.

Синтаксис метода Line:

Line (x1, y1) — (х2, у2), цвет, В | BF

Здесь все параметры, включая цвет — числовые выражения.

Вертикальная черта | означает "или". Имеется в виду, что в этом месте оператора вы можете поставить или В или BF.

Метод Circle

Вот объяснение на примерах:

Метод ∙ Результат

Circle(4000,2000),1000 ∙ Окружность с центром в точке с координатами (4000, 2000) и радиусом 1000

Circle(4000,2000),1000,vbRed ∙ Красная окружность

Circle(4000,2000),1000,1,3 ∙ Дуга окружности, начинающаяся от угла в 1 радиан* и кончающаяся углом в 3 радиана. Угол отмеряется от направления на восток против часовой стрелки

Circle(4000,2000),1000,-1,-3 ∙ Сектор круга, начинающийся от угла в 1 радиан и кончающийся углом в 3 радиана. Угол отмеряется от направления на восток против часовой стрелки

Circle(4000,2000),1000,2 ∙ Эллипс (эллипс — это почти овал) с центром в точке с координатами (4000, 2000). Получен из окружности радиусом 1000 горизонтальным сжатием в 2 раза

Circle(4000,2000),1000,1/3 ∙ Эллипс с центром в точке с координатами (4000, 2000). Получен из окружности радиусом 1000 вертикальным сжатием в 3 раза

Circle(4000,2000),1000,1,3,2 ∙ Дуга эллипса

Circle(4000,2000),1000,-1, —,2 ∙ Сектор эллипса

* Для тех, кто не знаком с радианами, поясню, что в одном радиане 180/pi градусов, где pi=3.14

Синтаксис метода Circle:

Circle (х_центра, у_центра), радиус, цвет, начальный_угол, конечный_угол, сжатие

Здесь все параметры, включая цвет — числовые выражения.

CurrentX, CurrentY, Step

В процессе рисования Visual Basic постоянно меняет свойства формы CurrentX, CurrentY, которые равняются координатам последней нарисованной точки. Для метода Line это та из двух точек, координаты которой указаны в правых скобках, а если дело касается метода Circle — то это координаты центра окружности. Для метода PSet все ясно без объяснений. Метод Print тоже меняет эти координаты, устанавливая их в то место, где должен появиться следующий напечатанный символ. Вы можете отслеживать эти свойства при помощи оператора Debug.Print CurrentX, CurrentY.

Теперь поговорим о Step.

Задача: Нарисовать три точки: одну с координатами (500, 1000), а две другие правее и выше. Расстояние соседних точек друг от друга равно 179 твипов по горизонтали и 40 твипов по вертикали.

Фрагмент программы, решающий дело:

PSet (500, 1000)

PSet (679, 960)

PSet (858, 920)

Здесь нам пришлось вычислять координаты. Есть другой способ, который иногда бывает удобнее:

PSet (500, 1000)

PSet Step(179, -40)

PSet Step(179, -40)

Перед любыми скобками с указанием координат вы имеете право писать слово Step. Тогда числа в этих скобках перестают быть абсолютными координатами, а становятся смещением по горизонтали и вертикали от точки, координаты которой определяются свойствами CurrentX, CurrentY. Положительное смещение по горизонтали — направо, по вертикали — вниз.

Попробуйте без компьютера нарисовать на бумажке, что нарисует такой фрагмент:

Circle (2000, 2000), 1000

Line Step(900, 0)-Step(-900, -900)

Метод Cls

Он просто стирает все нарисованное и напечатанное. Вставьте его в программу

и проверьте в пошаговом режиме:

Circle (2000, 2000), 1000

Print 12345

Cls

Line Step(900, 0)-Step(-900, -900)

Метод Point

Задача: Вы загрузили в форму фотографию морского пляжа и хотите узнать, какого цвета зонтик вот у этой дамы слева.

Решение: Сначала вам нужно узнать координаты хоть какой-нибудь точки на зонтике. Я думаю, вы сами догадаетесь, как это сделать. (Совершенно верно, здесь вам поможет маленькая окружность, координаты которой вы подбираете так, чтобы попасть в зонтик). Пусть окружность Circle (1000, 9000), 100 оказалась прямо на зонтике. Теперь достаточно выполнить процедуру:

Private Sub Command1_Click()

   Debug.Print Point (1000, 9000)

End Sub

Цвет вы получите в виде числа, например, 12089756. Да-да, это то самое число от 0 до 16777215. Совершенно неудобоваримое. Для того, чтобы определить, сколько в нем красной, синей и зеленой краски, вам придется провести некоторые арифметические подсчеты, идею которых вам должно подсказать выражение из 0. Это и будет ваше задание 62: Определить цвет заданной точки на форме и выдать одно из трех сообщений:

В этом цвете красной краски больше, чем двух остальных.

В этом цвете зеленой краски больше, чем двух остальных.

В этом цвете синей краски больше, чем двух остальных.

Распознав цвет точки на форме, вы сделали первый шаг к решению великой и не решенной до сих пор человечеством задачи распознавания зрительных образов. Пожалуй, вы уже сейчас в силах написать программу, которая в большинстве случаев правильно отличит фотографию песчаной пустыни от фотографии океана. Но знаете ли вы, что не родился еще гений, способный написать программу, надежно отличающую хотя бы фото собаки от фото кошки? Потому что здесь дело не столько в цвете, сколько в форме. А это уже гораздо сложнее.

Решение задачи распознавания образов — ключ к осуществлению величайшей и самой дерзкой мечты ученых — созданию искусственного интеллекта, электронного разума, равного человеческому или превосходящего его.

Метод PaintPicture

Задача: В объекты Picture1 и Picture2 загружены картинки. Взять прямоугольный кусок из картинки в Picture2 и вставить, немного сжав, в определенное место картинки в Picture1.

Решение: Дело решает одна строка:

Picture1. PaintPicture Piсturе2.Picture, 500, 100, 600, 800, 4500, 1000, 900, 1200

Словесное описание этой строки: В объект Picture1 вставить фрагмент из Picture2.Picture, причем левый верхний угол исходного изображения имеет координаты (4500, 1000), его ширина — 900, высота — 1200. Левый верхний угол результирующего изображения имеет координаты (500, 100), его ширина — 600, высота — 800.

Объектом может служить форма и PictureBox.

Используем в рисовании переменные величины

Если вы нарисовали снеговика, то наверное согласитесь, что для этого вам пришлось основательно потрудиться, хотя сам рисунок получился не слишком богатый, в нем всего-то порядка десяти элементов.

Как заставить Visual Basic короткой программой рисовать множество элементов, сплетая их в красивые узоры? Ответ: применять циклы, используя в обращениях к графическим методам вместо чисел переменные величины и арифметические выражения.

Задача: Нарисовать горизонтальный ряд окружностей радиусом 100 на расстоянии 1000 от верхнего края экрана и с такими горизонтальными координатами 500, 800, 1100, 1400…, 2900.

Как видим, центры соседних окружностей отстоят друг от друга на 300. Вот примитивный фрагмент, решающий эту задачу: