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

Узнай цену своей работы

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

Требуется нарисовать концентрические окружности уменьшающегося радиуса. Радиус каждой следующей окружности равен 9/10 радиуса предыдущей. Рисование прекращается, когда радиус становится равным минимальному значению Rmin = 1.
Не могу понять как именно делать вывод, на форме ничего нет.

Решение задачи: «Рисование окружностей»

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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