Информатика 2011-2012 / Информатика-2-сем(2011) / Задания и примеры / Заполнение цветом

Тема: Построение графических объектов.

Задание: Создать приложение «Построение геометрических фигур и работа с цветом», позволяющее рисовать прямоугольник, окружность, квадрат различного цвета, толщины линий и заполнения, а так же сглаживать прямые углы.

Решение:

Эскиз экранной формы представлен на рис. 1

1. Расставим имена объектов на эскизе экранной формы.

Рис. 1. Эскиз проекта

При запуске программы вы имеете возможность нарисовать одну из представленных геометрических фигур, также вы можете выбрать цвет линий, фона и сгладить углы.

Строим с помощью инструментов Toolbox объекты на экранной форме Form1 в соответствии с эскизом проекта и пишем программный код.

2. Программный код :

Private Sub b_Click()

If Op1.Value = True Then Sh1.FillColor = b.BackColor Else Sh1.BorderColor = b.BackColor

End Sub

Private Sub Option1_Click()

Sh1.BorderWidth = 1

End Sub

Private Sub Option2_Click()

Sh1.BorderWidth = 3

End Sub

Private Sub Option3_Click()

Sh1.BorderWidth = 5

End Sub

Private Sub pp_Click()

If Op1.Value = True Then Sh1.FillColor = pp.BackColor Else Sh1.BorderColor = pp.BackColor

End Sub

Private Sub Ch1_Click()

Call pr

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub g_Click()

If Op1.Value = True Then Sh1.FillColor = g.BackColor Else Sh1.BorderColor = g.BackColor

End Sub

Private Sub O1_Click()

Call pr

End Sub

Private Sub o2_Click()

Call pr

End Sub

Private Sub o3_Click()

Call pr

End Sub

Private Sub o4_Click()

Call pr

End Sub

Private Sub pr()

If Ch1.Value = 1 Then

If O1.Value = True Then Sh1.Shape = 5

If O2.Value = True Then Sh1.Shape = 3

If O3.Value = True Then Sh1.Shape = 2

If O4.Value = True Then Sh1.Shape = 4

Else

If O1.Value = True Then Sh1.Shape = 1

If O2.Value = True Then Sh1.Shape = 3

If O3.Value = True Then Sh1.Shape = 2

If O4.Value = True Then Sh1.Shape = 0

End If

End Sub

Private Sub r_Click()

If Op1.Value = True Then Sh1.FillColor = r.BackColor Else Sh1.BorderColor = r.BackColor

End Sub

Private Sub w_Click()

If Op1.Value = True Then Sh1.FillColor = W.BackColor Else Sh1.BorderColor = W.BackColor

End Sub

Private Sub y_Click()

If Op1.Value = True Then Sh1.FillColor = y.BackColor Else Sh1.BorderColor = y.BackColor

End Sub

3.Работа приложения

3.1 Запустить приложение и щелкнуть «Круг»

3.2 Щелкнуть «Круг» 3.3 щелкнуть «Ширина ×1» и фон «Красный»

Вывод:

Приведенное Windows-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи.