Линия (отрезок), прямоугольник.

Вариант №9

Выполнила: студентка Смирнова Д.

Гр. БМ-11.

Старший преподаватель: Широков А.А.

Киров 2012

Цель работы

Цельюработы является изучение возможностей разработки графических приложений

Порядок выполнения работ

· Запустить программу Visual Basic.

· Изучить графические операторы языка Visual Basic

· Изучить возможности просмотра графических файлов в Visual Basic

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

· Сохранить результаты работы на личной дискете.

· Показать результаты работы преподавателю.

· Хранить файлы результатов работы на личной дискете до завершения семестра.

1. Окно программы

Линия (отрезок), прямоугольник. - student2.ru

Текст программы:

Private Sub Command1_Click()

Picture1.Cls

x0 = -10

y0 = 1 / (x0 ^ 2 - 2 * x0 + 1)

n = 0

For x = x0 To n Step 0.5

y = 1 / (x ^ 2 - 2 * x + 1)

Picture1.Line (3000 + x0 * 200, 1000 - y0 * 900)-(3000 + x * 200, 1000 - y * 900), RGB(255, 0, 0)

x0 = x

y0 = y

Next x

End Sub

2. Окно программы

Линия (отрезок), прямоугольник. - student2.ru

Текст программы:

Private Sub Form_Activate()

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)

End Sub

Private Sub Command1_Click()

Picture1.FillColor = &H8000000F

Picture1.FillStyle = 0

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)

Picture1.FillColor = QBColor(12)

Picture1.FillStyle = 0

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

End Sub

Private Sub Command2_Click()

Picture1.FillColor = &H8000000F

Picture1.FillStyle = 0

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)

Picture1.FillColor = QBColor(14)

Picture1.FillStyle = 0

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

End Sub

Private Sub Command3_Click()

Picture1.FillColor = &H8000000F

Picture1.FillStyle = 0

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

Picture1.FillColor = QBColor(10)

Picture1.FillStyle = 0

Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)

End Sub

Private Sub Command4_Click()

End

End Sub

,

Выводы:

Графический режим работы подразумевает использование операторов, позволяющих создавать графические объекты: точки, отрезки, прямоугольники, окружности, дуги, сектора, эллипсы. Из этих элементарных объектов можно создавать более сложные.

Общими параметрами для всех графических объектов являются:

· координаты, определяющие его расположение в окне;

· цвет объекта;

· цвет заливки объекта, если он ограничен замкнутой линией.

Координаты расположения объектов

Координаты отсчитываются от левого верхнего угла окна. Единицей отсчета по умолчанию является Twip. В процессе разработки приложения можно изменить единицу измерения, используя свойство объекта ScaleMode.

Цвета

Цвет может задаваться двумя способами, в зависимости от выбранной палитры:

· 16 цветовая палитра использует команду QBcolor(n), где n - номер цвета:

· палитра, полученная при смешивании разного количества красного, зеленого и голубого цветов задается:

o командой RGB(n1,n2,n3). Здесь n1, n2 и n3 числа в диапазоне от 0 до 255, которые задают количество каждого из базовых цветов в полученном оттенке. Например: RGB(0, 255, 0) - задает зеленый цвет без примеси других оттенков (цветов).

o константами вида: &H8000000F&, &H000000FF& и т.д.

Графические примитивы

Рассмотрим процедуры вывода графических примитивов на заданный объект.

Точка.

[объект.] Pset (x,y) [,цвет]

- где (x,y) - координаты точки

Линия (отрезок), прямоугольник.

[объект.] Line [(x1,y1)] - (x2,y2) [,Цвет] [,B[F]]

- где (x1,y1) - координаты начальной точки отрезка. Если они не указаны, отрезок начинается от текущей позиции. Координаты конечной точки отрезка (x2,y2) нужно указывать обязательно.

Параметр Цвет определяет цвет линии. Если он не задан, то для рисования используется значение свойства формы ForeColor. Для явного задания значения цвета можно использовать функцию QBColor(n) или RGB(n1,n2,n3).

Если указан параметр B (Box-прямоугольник), то вместо линии вычерчивается прямоугольник; пары координат определяют положение его противоположных по диагонали углов. Прямоугольник заполняется цветом (см. далее закраску фигур), указанным в FillColor, а тип заполнения определяется свойством FillStyle формы. Если указан параметр F, то прямоугольник закрашивается тем же цветом, что и границы. Параметр F используется только вместе с параметром B.

Наши рекомендации