Рисование окружностей

@raspberries · Регистрация: 02.04.2016

Студворк — интернет-сервис помощи студентам

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

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

Не могу понять как именно делать вывод, на форме ничего нет.

@Alex77755 · 20.05.2017, 16:59

В бейсике это делается так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Form_Load()
    Dim r
    Scale (-12, 12)-(12, -12)
    DrawWidth = 1
    Line (-11, 0)-(11, 0), RGB(0, 0, 255)
    Line (0, -11)-(0, 11), RGB(0, 0, 255)
    DrawWidth = 3
    For r = 10 To 1 Step -1
        Circle (0, 0), r, RGB(255, 0, 0)
    Next
End Sub

@Kogb · 20.05.2017, 18:52

На .Net это должно быть как-то так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim h As New Bitmap(500, 500)
        Dim g As Graphics = Graphics.FromImage(h)
        Dim R As Single = 50
        Dim Rmin As Single = 1
        Do While R > Rmin
            g.DrawEllipse(Pens.Black, 100, 100, R, R)
            R = 0.9 * R
        Loop
        g.Dispose()
        PictureBox1.Image = h
    End Sub
 
End Class

@raspberries · 21.05.2017, 09:14 **[ТС]**

Я так понимаю g.DrawEllipse(Pens.Black, 100, 100, R, R) все круги должны быть с центром в точке 100,100? Но он рисует так:

@Kogb · 21.05.2017, 13:26

Рисует эллипс, определяемый ограничивающим прямоугольником, заданным с помощью координат для верхнего левого угла прямоугольника, высоты и ширины.

Параметры:
pen: Структура System.Drawing.Pen, определяющая цвет, ширину и стиль эллипса.
x: Координата X верхнего левого угла ограничивающего прямоугольника, который определяет эллипс.
y: Координата Y верхнего левого угла ограничивающего прямоугольника, который определяет эллипс.
width: Ширина ограничивающего прямоугольника, определяющего эллипс.
height: Высота ограничивающего прямоугольника, определяющего эллипс.

Добавлено через 6 минут
Если нужно с общим центром, хотя в задании нет такого условия, то, думаю, координаты левого верхнего угла смещать cоответственно:

VB.NET
1
g.DrawEllipse(Pens.Black, 100 - R / 2, 100 - R / 2, R, R)

@Yury Komar · 21.05.2017, 13:44

координаты точки 0,0 можно сместить, настроив перед рисованием объект Graphics соответственно, используя TranslateTransform, если не изменяет память.

@Yury Komar · 24.05.2017, 09:54

Сообщение от Kogb

координаты левого верхнего угла смещать cоответственно

это делается через TranslateTransform

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

@Yury Komar · 24.05.2017, 09:54

Сообщение от Kogb

координаты левого верхнего угла смещать cоответственно

это делается через TranslateTransform

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Рисование окружностей

Решение

Решение

@raspberries 0 / 0 / 0 Регистрация: 02.04.2016 Сообщений: 14
	21.05.2017, 09:14 [ТС]
	Я так понимаю g.DrawEllipse(Pens.Black, 100, 100, R, R) все круги должны быть с центром в точке 100,100? Но он рисует так: Изображения 0

@Yury Komar Модератор 4357 / 3427 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	21.05.2017, 13:44
	координаты точки 0,0 можно сместить, настроив перед рисованием объект Graphics соответственно, используя TranslateTransform, если не изменяет память. 0