Звёздное небо

Ответ на задачу в учебнике Лукина.

Условие: Создайте проект «Звездное небо в окне»

Решение:

Public Class Form1
    Dim graf As Graphics 'объявляем переменную для рисования окна

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        graf = Me.CreateGraphics
        graf.FillRectangle(Brushes.Black, 100, 100, 150, 400) 'рисуем первую половину окна
        graf.FillRectangle(Brushes.Black, 250, 100, 150, 400) 'рисуем вторую половину окна
        graf.DrawRectangle(Pens.White, 100, 100, 150, 400) 'рисуем ободок первой створки
        graf.DrawRectangle(Pens.White, 250, 100, 150, 400) 'рисуем ободок второй створки
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Coral 'устанавливаем цвет при загрузке формы
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        graf = Me.CreateGraphics
        graf.DrawEllipse(Pens.White, 100 + 297 * Rnd(), 100 + 397 * Rnd(), 3, 3) 'рисуем в случайном месте звезду
    End Sub
End Class

Наверное самое простое задание.

1. Объявляем переменную для рисования (глобально, так как используется на нескольких кнопках)
2. На кнопке окна пишем код сначала два прямоугольника с заливкой чёрного цвета, потом два контура белого цвета
3. При загрузке формы устанавливаем цвет формы. (можно задать непосредственно в свойствах)
4. На кнопке звезды вводим рандомный код появления звезды в пределах окна — 3 пиксела, чтобы звёзды не выходили за пределы окна. (Радиус звезды 3 пикселя)

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