Рисуем — Дождь в луже

Очередное решение задачи номер 35 по книге Лукина. Условия задачи:

“Дождь в луже”. Поместите на форму PictureBox. Покрасьте его в цвет воды. Сделай-те ему рамочку. Все это в режиме проектирования. Это наша лужа или, скорее, бассейн. Нарисуйте на нем в случайных местах штук 20 эллипсов, сжатых по вертикали раза в два.

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

Решение задачи

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim graf As Graphics 'Объявляем переменную для рисования
        Dim razmer_razvoda As Decimal 'Объявляем переменную для диаметра развода (кругов) на воде
        Dim i As Integer 'объявляем переменную для счётчика цикла
        For i = 1 To 20 'цикл для окружностей
            razmer_razvoda = 30 * Rnd() 'пишем случайную величину развода(круга ) на воде
            graf = PictureBox1.CreateGraphics ' объявляем,что рисуем на Picturebox
            graf.DrawEllipse(Pens.Black, PictureBox1.Width * Rnd(), _
                             PictureBox1.Height * Rnd(), razmer_razvoda, razmer_razvoda / 2)
            For j = 1 To 10000000 'цикл для паузы
            Next j
        Next i
    End Sub
End Class

Разбор задачи

  1. На форму помещаем кнопку и PictureBox
  2. PictureBox в свойствах BackColor делаем заливку под цвет воды.
  3. Объявляем переменную для рисования и переменную для размера развода на воде (будет различная по диаметру)
  4. Указываем, что рисовать будем на PictureBox
  5. Пишем код для окружностей, всё это помещаем в цикл из 20 повторов (20 разводов).
  6. Делаем также пустой цикл, чтобы окружности появлялись постепенно
  7. Программка готова

О программе

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

Внимание!!! На некоторых компьютерах, у меня к примеру, система не даёт запускаться файлам с расширением .Exe . Всё просто, эти файлы исполняемые, и система их блокирует, как и любой файл Exe от сторонних разработчиков. В моих программах вирусов нет, можно проверить на любом сайте онлайн проверки на вирусы, или сам файл антивирусником. Если вы всё равно остерегаетесь, то используйте сам код программы в Visual Studio.net 2008

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