Ковёр — код vb.net

Решение задачи номер 55 по книге Лукина С.Н. «Понятно о Visual Basic.NET»

Условие задачи:

Ковер сделан из пересекающихся окружностей. Если центры соседних окружностей отстоят друг от друга на одинаковое расстояние как по горизонтали, так и по вертикали, и если удачно подобраны размеры, то ковер у вас получится красивым и с аккуратными краями.

Решение задачи

Код vb.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
        graf = Me.CreateGraphics
        Dim x, y As Integer
        x = 10
        y = 20
        For i = 1 To 50
            x = x + 10
            graf.DrawEllipse(Pens.Black, x, y, 20, 20)
            y = 10
            For j = 1 To 50
                y = y + 10
                graf.DrawEllipse(Pens.Black, x, y, 20, 20)
            Next j
        Next i

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

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

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