Труба наискосок — код vb.net

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

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

Нарисуйте «трубу» наискосок. Получилось? Теперь попробуйте вместе с координа-тами x и у менять также и диаметр окружности. Если вы будете понемножку его увеличи-вать, начиная с 0, то получите «трубопровод», уходящий в бесконечность.

Код 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, d1, d2 As Integer
x = 50 : y = 50 ‘задаём начальные координаты трубы
d1 = 0 : d2 = 0 ‘задаём первоначальный диаметр трубы
For j = 1 To 40 ‘ включаем цикл
graf.DrawEllipse(Pens.Black, x, y, d1, d2)
x = x + 5
y = y + 5
d1 = d1 + 3
d2 = d2 + 3
Next
End Sub
End Class

Разбор кода vb.net

  1.  Объявили переменную для рисования, указали, что будем рисовать на форме.
  2. Объявили переменные для координатов, которые будут постоянно увеличиваться в цикле
  3. задали цикл до 40 проходов
  4. графику и вычисления прописали в цикле
  5. Результат на картинке
  6. P.S в следующем задание номер 42 по книге Лукина С.Н. «Понятно о Visual Basic.NET» просто меняем метод с drawEllipse на DrawRectangle.
Запись опубликована в рубрике Решение заданий vb.net. Добавьте в закладки постоянную ссылку.