Рисуем цветок на форме

Иной раз всё таки находит мысля, а не стоит ли продолжить обучение с помощью visual studio, языка С++, чем то он меня всё таки затянул. Но пока нехватка времени не позволяет изучать сразу два языка одновременно, поэтому продолжаю Visual Basic.net

Очередное занятие по графике. Решил всё — таки выложить небольшой код и решение своего задания по рисованию цветка.

Public Class Цветочек
    'определяем размер окна программы, при загрузке формы
    Private Sub Цветочек_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Width = 700
        Me.Height = 450
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim graf As Graphics
        graf = Me.CreateGraphics
        'рисуем цветок
        graf.FillPie(Brushes.Red, 150, 20, 200, 200, 70, 50) 'второй лепесток
        graf.FillPie(Brushes.Blue, 150, 20, 200, 200, 130, 50) 'третий лепесток
        graf.FillPie(Brushes.Green, 150, 20, 200, 200, 190, 50) 'четвёртый лепесток
        graf.FillPie(Brushes.Orange, 150, 20, 200, 200, 250, 50) 'пятый лепесток
        graf.FillPie(Brushes.Brown, 150, 20, 200, 200, 310, 50) 'шестой лепесток
        graf.FillEllipse(Brushes.Yellow, 225, 95, 50, 50) 'заливает контур середины цветка

        'рисуем стебель
        graf.DrawArc(Pens.Black, 25, 155, 400, 400, 300, 60)

        'рисуем клумбу
        graf.DrawRectangle(Pens.Black, 150, 350, 500, 30) 'контур клумбы
        graf.FillRectangle(Brushes.Brown, 150, 350, 500, 30) 'заливка клумбы

        'дорисовываем цветок
        graf.FillPie(Brushes.Yellow, 150, 20, 200, 200, 10, 50) 'первый лепесток (зарисовывает стебель)
        graf.DrawEllipse(Pens.Black, 225, 95, 50, 50) 'рисуем контур середины цветка


    End Sub

End Class
  1. Сначала нарисовал лепестки
  2. Потом контуры середины цветка, потом её залил цветом
  3. Затем стебель
  4. Сделал контуры газона
  5. Залил газон цветом (спрятал стебель под цветом)
  6. Перенёс первый лепесток в конец программы (он закрашивает верхнюю часть стебля)
  7. Перенёс контур середины цветка в конец программы, он разделяет границу между лепестком и центром цветка.
  8. Так как центр цветка таким же цветом, как и лепесток, заливку не переносил.

Сама программа здесь. Установки не требует. Размер 20.5kb. Необходим установленный на компьютере net.framework 3.5 и выше

Запись опубликована в рубрике Дневник программиста, Мои программы, Решение заданий vb.net. Добавьте в закладки постоянную ссылку.

Оставить комментарий

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