Рисование окружностей - Visual Basic .NET

Формулировка задачи:

Требуется нарисовать концентрические окружности уменьшающегося радиуса. Радиус каждой следующей окружности равен 9/10 радиуса предыдущей. Рисование прекращается, когда радиус становится равным минимальному значению Rmin = 1.
Public Class Form1
    Dim R As Single
    Dim Rmin As Single
    Dim graphics As Graphics
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        graphics = PictureBox1.CreateGraphics()
        R = 8
        Rmin = 1
        Call ConcentricCricles(R, Rmin)
    End Sub
 
    Sub ConcentricCricles(ByVal R As Single, ByVal Rmin As Single)
        If R > Rmin Then
            graphics.DrawEllipse(Pens.Black, 0, 0, R, R)
            R = 0.9 * R
            Call ConcentricCricles(R, Rmin)
        End If
    End Sub
End Class
Не могу понять как именно делать вывод, на форме ничего нет.


textual

Код к задаче: «Рисование окружностей - Visual Basic .NET»

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim h As New Bitmap(Me.Width, Me.Height)
        Dim g As Graphics = Graphics.FromImage(h)
 
        g.TranslateTransform(Me.Width \ 2 - 10, Me.Height \ 2 - 10)
 
        Dim R As Single = Me.Width - 10
        Dim Rmin As Single = 1
        Do While R > Rmin
            g.DrawEllipse(Pens.Black, -(R \ 2), -(R \ 2), R, R)
            R = 0.8 * R
        Loop
        g.Dispose()
        Me.BackgroundImage = h
    End Sub
End Class
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.333 из 5

Источник