Решение задачи номер 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
- Объявили переменную для рисования, указали, что будем рисовать на форме.
- Объявили переменные для координатов, которые будут постоянно увеличиваться в цикле
- задали цикл до 40 проходов
- графику и вычисления прописали в цикле
- Результат на картинке
- P.S в следующем задание номер 42 по книге Лукина С.Н. «Понятно о Visual Basic.NET» просто меняем метод с drawEllipse на DrawRectangle.