Рисуем Мыльные пузыри

По заданию 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

Разбор кода

  1. Также, как и в предыдущем задании 35-ом Рисуем — Дождь в луже, на форму помещаем кнопку и PictureBox
  2. Заливаем форму тёмным цветом, я взял чёрный.
  3. Так как мы не готовы пока делать цвет случайным образом ( не проходили), пишем просто код для 4 шаром, с разным цветом. Кода прописываем в цикле
  4. Не забываем добавить пустой цикл для постепенно появляения группы шаров из 4 штук
  5. Готово, результат на картинке.

 

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