Как закрасить сектор окружности?

29.10.2007, 08:09. **Показов** 5011. **Ответов** 4

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

Рисую окружность, выделяю сектор. Вопрос: как его закрасить?

@NickSun · 29.10.2007, 17:16

Да ... вопрос конечно интересный.
Помотрел - действительно, стандартных средств не нашел.
Если-уж очень очень нада, то могу предложить два решения.
1. Используй DirectX
2. Есть несколько рекурсивных алгоритмов заполнения. А так как у тебя выпуклая фигура - их можна модернизировать, до более-менее приемлимой скорости. (Хотя рак это конечно, но ... решать тебе)

@AndrewD · 29.10.2007, 17:21

Положи на форму и кликни

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Click()
'Рисуем круг в пределах формы
wd = Me.ScaleWidth: ht = Me.ScaleHeight
If wd < ht Then r = 0.45 * wd Else r = 0.45 * ht
Me.FillStyle = 0
Me.FillColor = vbGreen ' делаем зеленое заполнение
Me.Circle (wd / 2, ht / 2), r
'заливку сектора делаем концентрическими дугами
'подлый VB не дает заливать ничего, кроме кругов и прямоугольников
For i = 1 To r
Me.Circle (wd / 2, ht / 2), i, vbRed, 0, 1.571 ' вместо 0 и 1.571 поставь че надо
Next i
' наслаждайся
End Sub

@NickSun · 29.10.2007, 17:23

Можно ...
Токо коэфициент подобрать нада. Чтоб дырок небыло.

@AndrewD · 31.10.2007, 23:29

Да! Проблема с дырками решается просто - надо увеличить ширину линии:
Form1.DrawWidth=2 ' или 3-4, смотря какое разрешение монитора.Для 800х600 хватает 2

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

Серж

	Как закрасить сектор окружности? 29.10.2007, 08:09. Показов 5011. Ответов 4 Метки нет (Все метки) Рисую окружность, выделяю сектор. Вопрос: как его закрасить?

@NickSun 0 / 0 / 0 Регистрация: 22.06.2007 Сообщений: 176
	29.10.2007, 17:16
	Да ... вопрос конечно интересный. Помотрел - действительно, стандартных средств не нашел. Если-уж очень очень нада, то могу предложить два решения. 1. Используй DirectX 2. Есть несколько рекурсивных алгоритмов заполнения. А так как у тебя выпуклая фигура - их можна модернизировать, до более-менее приемлимой скорости. (Хотя рак это конечно, но ... решать тебе) 0

@NickSun 0 / 0 / 0 Регистрация: 22.06.2007 Сообщений: 176
	29.10.2007, 17:23
	Можно ... Токо коэфициент подобрать нада. Чтоб дырок небыло. 0

@AndrewD 0 / 0 / 0 Регистрация: 29.10.2007 Сообщений: 6
	31.10.2007, 23:29
	Да! Проблема с дырками решается просто - надо увеличить ширину линии: Form1.DrawWidth=2 ' или 3-4, смотря какое разрешение монитора.Для 800х600 хватает 2 0

Опции темы