End Sub

Line (3000, 900)-(2500, 1300), 0

Line (3900, 1000)-(3000, 900), 0

Line (4400, 1400)-(4200, 1800), 0

Line (1200, 1200)-(4400, 1400), 0

Circle (4200, 1600), 600, vbBlue, 3.14, 0, 0.3

Circle (3000, 1600), 600, vbBlue, 3.14, 0, 0.3

Circle (1800, 1600), 600, vbBlue, 3.14, 0, 0.3

Private Sub Command1_Click()

Занятие 17. Создание графических программ

End Sub

Circle (2000, 1000), 400, 255,,,5

Circle (1000, 1000), 400, 255

Private Sub Command1_Click()

Закраска окружностей, эллипсов

Circle (1000, 2000), 500, 100000, 0, 3.14, 3

End Sub

Next I

Circle (X, Y), R, C,,,E

Private Sub Command1_Click()

For i = 1 To 30

X = Rnd * 12000

Y = Rnd * 9000

R = Rnd * 2000

C = Rnd * 16777215

E = Rnd ‘ вариант для Е > 1E = Rnd * 10

Изображение дуги эллипса – Circle

Задача: Нарисовать дугу эллипса (арку)с центром в точке (1000, 2000) и радиусом 500 твипов, цвет дуги 100000, начальный угол которой 0°, а конечный 180°, эксцентриситет равный 3.

Решение:

Закрасить замкнутый контур, выполненный из линий одного цвета можно так:

1. В свойствах формы в команде FillStyle (ФилСтайл СтильЗаполнения) Заменить Transparent (Транспарент Прозрачный) на Solid (сэлид Сплошной). Т.е. стиль заполнения фигуры - сплошной.

2. В свойстве FillColor (ФилКолор ЦветЗаполнения) выбрать подходящий цвет щелкнув по нему.

3. При выполнении программы выбранная фигура будет заполнена нужным цветом.

Если в рисунке несколько фигур, которые надо закрасить разными цветами, то назначение параметров закраски выполняют из программы.

Form1.FillStyle = 0

Form1.FillColor = 255

Form1.FillStyle = 4

Form1.FillColor = 65535

Составить программу рисунка.

В начале, на тетрадном листе нарисуем оси и рисунок. Затем, проставим координаты характерных точек рисунка и начинаем составлять программу.

На форме разместим три кнопки: Рисунок, Сетка и Очистка. Сетка и очистка являются вспомогательными и служат для отладки.

Circle (600, 1600), 600, vbBlue, 3.14, 0, 0.3 'волны

Line (1800, 1800)-(1200, 1200), 0 'Лодка

Line (4000, 1400)-(3900, 1000), 0 'Кабина

Form1.FillStyle = 0 'подготовка к закраске солнца

Form1.FillColor = vbYellow

Circle (600, 600), 200, vbRed 'солнце

Circle (4200, 600), 200, vbBlack, 3.14 / 2, 3.14, 0.3 'чайка

Circle (3800, 600), 200, vbBlack, 0, 3.14 / 2, 0.3

Circle (1000, 800), 200, vbBlack, 3.14 / 2, 3.14, 0.3 'чайка

Circle (600, 800), 200, vbBlack, 0, 3.14 / 2, 0.3

Кнопка Command2 выводит на экран сетку из горизонтальных и вертикальных линий с шагом 200. Такому шагу соответствует 5 мм на бумаге.