
По заданию 36 из книги Лукина «Понятно о Visual Basic.net » нам нужно нарисовать мыльные пузыри различных диаметров и различных оттенков.
Не совсем понимаю, как это сделать, так как до цветов и оттенков в цифровом варианте ещё не доходили, а прошли только в свойствах, но по любому придется делать, так как задание решить надо.
В дальнейшем для простеньких решений я не буду выкладывать программы, так как время уходит больше, чем писать сам код программы. Если захотите сделать её , то код внизу. Итак.
Решение
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 a, b As Integer 'объявляем переменные для счётчиков
Dim razmer_shara As Decimal
graf = PictureBox1.CreateGraphics ' указываем, что рисовать будем на PictureBox
For a = 1 To 20
razmer_shara = 30 * Rnd()
graf.FillEllipse(Brushes.White, Me.Width * Rnd(), Me.Height * Rnd(), razmer_shara, razmer_shara)
graf.FillEllipse(Brushes.Yellow, Me.Width * Rnd(), Me.Height * Rnd(), razmer_shara, razmer_shara)
graf.FillEllipse(Brushes.LightBlue, Me.Width * Rnd(), Me.Height * Rnd(), razmer_shara, razmer_shara)
graf.FillEllipse(Brushes.LightPink, Me.Width * Rnd(), Me.Height * Rnd(), razmer_shara, razmer_shara)
For b = 1 To 100000000 : Next b
Next a
End Sub
End Class
Разбор кода
- Также, как и в предыдущем задании 35-ом Рисуем — Дождь в луже, на форму помещаем кнопку и PictureBox
- Заливаем форму тёмным цветом, я взял чёрный.
- Так как мы не готовы пока делать цвет случайным образом ( не проходили), пишем просто код для 4 шаром, с разным цветом. Кода прописываем в цикле
- Не забываем добавить пустой цикл для постепенно появляения группы шаров из 4 штук
- Готово, результат на картинке.