Рисуем стог сена

Одно из интересных заданий. Впоследствии код можно использовать в функции и рисовать стог сена на какой — либо картинке, либо в игре. Условие задания

«Стог сена». Множество случайных разноцветных отрезков прямых преимуще-ственно желтоватых оттенков, причем одна точка любого отрезка находится в случайной точке левой трети стога, другая – в случайной точке правой. Размер стога – 600 на 600.

Решение в коде

Public Class Form1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim graf As Graphics 'Объявляем переменную для рисования
        graf = PictureBox1.CreateGraphics 'указывает, что рисование будет на PictureBox
        Dim x1, y1 As Decimal ' переменные для начальных и конечных координатов отрезков

        For i = 1 To 2000 'цикл
            x1 = 200 * Rnd()
            y1 = 600 * Rnd()
            graf.DrawArc(Pens.Gold, x1, y1, 400, 400, 180, 180)
            x1 = 200 * Rnd()
            y1 = 600 * Rnd()
            graf.DrawArc(Pens.Yellow, x1, y1, 400, 400, 180, 180)
            Randomize() 'беспорядочный рандом

        Next

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Width = 600
        PictureBox1.Height = 600
    End Sub
End Class
End Class

Пояснения кода

  1. На форму, как и в предыдущих заданиях Сноп света, Мыльные пузыри, Дождь в луже, на форму добавляем кнопку и PictureBox.
  2. Объявляем переменную для рисования. Указываем, что рисовать будем на PictureBox
  3. По умолчанию стог сена должен быть 600 *600, сделать таким размером PictureBox, написал код , чтоб при загрузке формы размер сразу был таким по условию.
  4. Гораздо удобнее, да и похоже на стог сена будет, в том случае, если будет использовать не drawline , а drawarc — дугу определённого цвета.
  5. Размещаем графу в цикле. Бесконечный цикл я не писал, В итоге получился такой симпотячный стог сена, который видно на картинке.

 

О программе

  • Скачать программу: Стог сена
  • Установки не требует. Файл exe.
  • Размер 20.5kb.
  • На компьютере должен быть установлен net.framework 3.5 и выше.
Внимание!!! На некоторых компьютерах, у меня к примеру, система не даёт запускаться файлам с расширением .Exe . Всё просто, эти файлы исполняемые, и система их блокирует, как и любой файл Exe от сторонних разработчиков. В моих программах вирусов нет, можно проверить на любом сайте онлайн проверки на вирусы, или сам файл антивирусником. Если вы всё равно остерегаетесь, то используйте сам код программы в Visual Studio.net 2008
Запись опубликована в рубрике Мои программы, Решение заданий vb.net. Добавьте в закладки постоянную ссылку.

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

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