Электронный курс по информатике|Алгоритмизация и программирование

Тема 4. Графические возможности языка программирования.

Основные графические методы (точка, линия, прямоугольник, окружность).

Цель: познакомиться с основными графическими методами языка Visual Basic и научиться создавать графические изображения.

Все размеры и координаты объектов в Visual Basic по умолчанию измеряются в твипах. Можно выбрать и с помощью свойства ScaleMode установить другие единицы измерения. Например, измерять размеры в привычных для нас миллиметрах, в дюймах, см. В сантиметре 567 твипов, в одном пункте принтера 20 твипов, в одном дюйме 1440 твипов (как и минут в сутках).

К графическим методам относят:

[объект] Cls – очищает форму.

[объект] Pset [Step] (x, y), [цвет]– ставит на объекте точку с координатами (X,Y) заданного цвета.

[объект] Circle [Step] (x, y), радиус[,цвет][, начало дуги, конец дуги][,отношение] - рисует окружность, эллипс, дугу, сектор с центром в точке (X,Y), заданного цвета. Начало дуги и конец дуги задаются в радианах, знак минус перед ними задает сектор;отношение соответствует отношению вертикальной полуоси рисуемого эллипса к горизонтальной полуоси.

[объект] Line [[Step] (x1, y1)] – [Step] (x2, y2) [, [цвет][B[F]]] - рисует прямые линии, прямоугольники, закрашенные прямоугольники объект — имя объекта; x1 и y1 — координаты начала линии (или верхнего левого угла прямоугольника, х2 и у2 — координаты конца линии (или нижнего правого угла прямоугольника), цвет — цвет рисунка; В — рисуется прямоугольник; BF — рисуется закрашенный прямоугольник.

Задача 1. Примеры рисования методом Circle

Private Sub Form_Load()

Show

Circle (800, 800), 500

Circle Step(1500, 0), 400

Circle (4000, 800), 500, , 0, 3.14

Circle (800, 2200), 500, , -0.6, -2.5

Circle (2300, 2200), 500, , , , 0.3

Circle (4000, 2200), 500, , , , 3

End Sub

Задание. Поставьте точки красного цвета в центре каждой фигуры командой PSet (X,Y).

Задача 2. Примеры рисования методом Line

Private Sub Form_Load()

Show

Line (1000, 3000)-(4000, 6000), vbBlue, BF

Line (2000, 4000)-(3000, 5000), vbYellow, BF

Line (1000, 3000)-(2500, 2000), vbRed

Line (4000, 3000)-(2500, 2000), vbRed

End Sub

Задание. Нарисовать снеговика возле домика.

Хостинг от uCoz