Очередное решение задачи номер 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
Разбор задачи
- На форму помещаем кнопку и PictureBox
- PictureBox в свойствах BackColor делаем заливку под цвет воды.
- Объявляем переменную для рисования и переменную для размера развода на воде (будет различная по диаметру)
- Указываем, что рисовать будем на PictureBox
- Пишем код для окружностей, всё это помещаем в цикл из 20 повторов (20 разводов).
- Делаем также пустой цикл, чтобы окружности появлялись постепенно
- Программка готова
О программе
Скачать программу: Дождь в луже
Установки не требует.
Файл exe. Размер 20.5kb.
На компьютере должен быть установлен net.framework 3.5 и выше.
Внимание!!! На некоторых компьютерах, у меня к примеру, система не даёт запускаться файлам с расширением .Exe . Всё просто, эти файлы исполняемые, и система их блокирует, как и любой файл Exe от сторонних разработчиков. В моих программах вирусов нет, можно проверить на любом сайте онлайн проверки на вирусы, или сам файл антивирусником. Если вы всё равно остерегаетесь, то используйте сам код программы в Visual Studio.net 2008