Окраска множества эллипсов в заданной последовательности

@Infinity20_5 · 21.06.2016, 13:31. **Показов** 3720. **Ответов** 66

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

Здравствуйте!
Помогите, пожалуйста, практическими алгоритмами кода.
Меня интересует:
1) Как залить (полностью окрасить) эллипсы случайными цветами?

2) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) по признаку делимости на 2, 3 (без остатка) и прочие. Всего три цвета окраски.

3) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) для группы, например: For i = 1 To 3 — vbRed; For i = 4 To 6 — vbGreen; For i = 4 To 6 — vbBlue. Всего три цвета окраски.

Не по теме:

Столкнулся на форуме с распространённым явлением. Многие из участников почему-то пытаются скрыть подобные сведения. Не знаю их мотивов. По мне: сравниваю их с мальчиком Васей из детского садика — считающего, что у него лучшие фантики (обёртки от конфет) в мире. Поэтому Вася никому и никогда не рассказывает: откуда они взяты. Одна только мама Васи догадывается — откуда, поскольку Вася любит гулять возле мусорных баков. Они сейчас возле каждого многоэтажного дома. "Клондайк". В литературе есть образ Плюшкина.

Вот ниже код, как просто залить (полностью окрасить) эллипсы случайными цветами?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer
Dim r As Integer, c As Single, d As Single
'AutoRedraw = True
'DrawWidth = 10
'FillStyle =
Randomize Timer
Picture1.Cls
For i = 1 To 10
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
d = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Circle (x, y), r, d, , , c
 
Next i
 
End Sub

@Pro_grammer · 27.06.2016, 13:17

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

Приведите, пожалуйста, Ваш код. На будущее очень пригодится.

Я смотрю, что окраску секторов заполнением цветом освоили

Ну это просто, как у учебнике.
Я покажу окраску секторов дугами! Код естественно работает дольше, но короткий и интересный

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Form1.DrawWidth = 2
wd = Me.ScaleWidth: ht = Me.ScaleHeight
For n = 1 To 20
            x = wd * Rnd
            y = ht * Rnd
            r = 800 * Rnd + 200
            c = 3 * Rnd
            Me.FillStyle = 0
            Me.FillColor = vbGreen ' делаем основное  заполнение
            Me.Circle (x, y), r, vbGreen, , , c
            'заливку сектора делаем концентрическими дугами
            For i = 1 To r
                Me.Circle (x, y), i, vbRed, 0.7, 5, c
            Next i
            For i = 1 To r
                Me.Circle (x, y), i, vbBlue, 2.5, 5, c
          Next i
Next n
 
End Sub

Рисую прямо по форме, уж
не взыщите строго.

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

Сам сильно устал, другие проблемы. Ничего не получается.

Нормально всё выходит. Засунь код рисования одного эллипса с рандомными параметрами в цикл For ( см. как у меня в коде) и будет тоже самое.

@Catstail · 27.06.2016, 14:13

Ищу документацию по VB5. Это оказывается не так просто. Поэтому давай пока считать, что Шмидт - безвестный самородок, написавший одну гениальную книгу и исчезнувший. До выяснения.

@CRIDEL · 27.06.2016, 14:47

Catstail, http://www.chimica.unipd.it/lu... ix/vb5.pdf - вот на английском, если надо.

Добавлено через 6 минут
http://froland.ru/samodel/vbguide/index.html - а вот и на русском.

@Catstail · 27.06.2016, 15:00

CRIDEL, спасибо!

@Infinity20_5 · 27.06.2016, 16:27 **[ТС]**

Catstail!
Арушанов Хачатур Ренуарович — автор книг на русском языке: "Visual Basic 3.0" и "Visual Basic 4.0"
На практике подавляющему большинству людей деньги достаются с трудом, благодаря профессиональной нише в товарно-денежных потоках. Зачем нужно было Арушанову покидать свою нишу, приносящую довольно высокий доход?

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

Я покажу окраску секторов дугами! Код естественно работает дольше, но короткий и интересный

Pro_grammer!
Спасибо огромное за интересную идею!!
Всё получилось! Потом доработаю код на свой вкус.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Option Explicit
Private Sub Command1_Click()
Form95.DrawWidth = 2
wd = Me.ScaleWidth: ht = Me.ScaleHeight
For n = 1 To 20
            x = wd * Rnd
            y = ht * Rnd
            r = 800 * Rnd + 200
            c = 3 * Rnd
            Me.FillStyle = 0
            Me.FillColor = vbGreen ' äåëàåì îñíîâíîå  çàïîëíåíèå
            Me.Circle (x, y), r, vbGreen, , , c
            'çàëèâêó ñåêòîðà äåëàåì êîíöåíòðè÷åñêèìè äóãàìè
            For i = 1 To r
                Me.Circle (x, y), i, vbRed, 0.7, 5, c
            Next i
            For i = 1 To r
                Me.Circle (x, y), i, vbBlue, 2.5, 5, c
          Next i
Next n
 
End Sub

@Infinity20_5 · 27.06.2016, 16:40 **[ТС]**

Понравилось, что переводчик до сих пор злополучную книгу переводит. Последнее добавление: 27 июня 2016
От переводчика:

Кликните здесь для просмотра всего текста

"Руководство программиста" — перевод электронной книги "Programmer's Guide", первой большой книги из "Visual Basic Books Online" — интерактивного приложения к VB5.

Перевод выполнен с незначительными сокращениями, исправлениями и добавлениями.

Сокращения коснулись лишних, по моему мнению, разделов — о том, например, как пользоваться справкой. Некоторые темы, которые тоже кажутся мне лишними (например, "Установка VB"), я, всё-таки, перевёл "для порядка" (или, скорее, "для прикола"), а также из принципа, что лучше оставить лишнее, чем упустить нужное. Несмотря на обилие изнурительных подробностей, в книге найдена очень хорошая методика, незаменимая, как мне кажется, для самообразования начинающих. Мне, по крайней мере, она в своё время здорово вправила мозги.
Исправлены найденные опечатки и пропуски в примерах кода. Все примеры проверены на компиляторе и при необходимости "доведены до ума".
Расширена глава об элементах управления (контролах): к описанию стандартных контролов добавлено описание элементов управления ActiveX, заимствованное из Components Tool Guide — следующей книги Visual Basic Books Online. В раздел Создание объектов во время выполнения с помощью элемента управления OLE container добавлены описания синтаксиса основных методов и свойств, взятые из перечней свойств и методов, которые находятся за пределами данной книги.
Кроме этого, я написал маленький раздельчик Велик могучим русский языка с примером кода автоматического изменения русских падежных окончаний при вводе разных значений, например: 3 часа 12 минут 42 секунды или 17 часов 1 минута 30 секунд.
Переведён интерфейс большинства примеров (текст кнопок, пунктов меню и т.п.).
Руководство адаптировано для работы с версией VB 6, добавлено описание новых функций VB 6.
Параллельно создаётся версия для скачивания в формате .chm.

Я потихоньку перевожу и "Components Tool Guide", где говорится о работе с ActiveX, создании собственных контролов, слегка затрагивается работа с DLL и функциями API. Но перевод делается урывками, главным образом по ночам. Такими же урывками ползёт и перевод замечательной книги Эпплмана о функциях API, написанной, кроме того, на хорошем, богатом (слишком, чёрт возьми, богатом!) английском языке. Да ещё уйма времени уходит на параллельную компиляцию "хэлповников". Так что ни того, ни другого скоро не обещаю, хотя, если будут заявки, могу высылать отдельные главы.

Все заявки, предложения, поправки и т.п. можно посылать на froland2@narod.ru. Постараюсь не оставить их без внимания.

Андрей ФРОЛОВ

@Catstail · 28.06.2016, 13:45

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

Арушанов Хачатур Ренуарович — автор книг на русском языке: "Visual Basic 3.0" и "Visual Basic 4.0"
На практике подавляющему большинству людей деньги достаются с трудом, благодаря профессиональной нише в товарно-денежных потоках. Зачем нужно было Арушанову покидать свою нишу, приносящую довольно высокий доход?

- не знаю. Причины могут быть самыми разными: нашел что-то более выгодное, к примеру.

Добавлено через 19 часов 56 минут
Infinity20_5, ну вот... Открываем pdf-ку, которую любезно выложил CRIDEL, и находим страницу 302. Там располагается описание полиморфизма, реализуемого с помощью оператора Implements - безусловно, самой интересной возможности VB5 и VB6. Потом откроем официальное руководство Microsof по VB6, на которое я уже ссылался на стр. 491 и далее - есть перевод руководства по VB5 "один в один". На русский язык этот текст официально до 1998 г. не переводился. В 1998-м вышла версия VB6 и соответствующее руководство. В 2000-м его официально перевели на русский. А теперь, Infinity20_5, открой книгу "Шмидта", и убедись, что он просто перевел кусок руководства Microsoft (да, самый интересный!) и издал под своей "фамилией". Весь код, названия классов и методов - сдуто ВСЕ!

Вывод: "Шмидт" - никакой не самородок, а мелкий, заурядный воришка. О чем я и толкую...

Новые блоги и статьи Все статьи Все блоги /
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .

@Catstail Супер-модератор 38209 / 21142 / 4312 Регистрация: 12.02.2012 Сообщений: 34,755 Записей в блоге: 14
	27.06.2016, 14:13
	Ищу документацию по VB5. Это оказывается не так просто. Поэтому давай пока считать, что Шмидт - безвестный самородок, написавший одну гениальную книгу и исчезнувший. До выяснения. 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	27.06.2016, 14:47
	Catstail, http://www.chimica.unipd.it/lu... ix/vb5.pdf - вот на английском, если надо. Добавлено через 6 минут http://froland.ru/samodel/vbguide/index.html - а вот и на русском. 2

@Catstail Супер-модератор 38209 / 21142 / 4312 Регистрация: 12.02.2012 Сообщений: 34,755 Записей в блоге: 14
	27.06.2016, 15:00
	CRIDEL, спасибо! 0

@Infinity20_5 Заблокирован
	27.06.2016, 16:40 [ТС]
	Понравилось, что переводчик до сих пор злополучную книгу переводит. Последнее добавление: 27 июня 2016 От переводчика: Кликните здесь для просмотра всего текста "Руководство программиста" — перевод электронной книги "Programmer's Guide", первой большой книги из "Visual Basic Books Online" — интерактивного приложения к VB5. Перевод выполнен с незначительными сокращениями, исправлениями и добавлениями. Сокращения коснулись лишних, по моему мнению, разделов — о том, например, как пользоваться справкой. Некоторые темы, которые тоже кажутся мне лишними (например, "Установка VB"), я, всё-таки, перевёл "для порядка" (или, скорее, "для прикола"), а также из принципа, что лучше оставить лишнее, чем упустить нужное. Несмотря на обилие изнурительных подробностей, в книге найдена очень хорошая методика, незаменимая, как мне кажется, для самообразования начинающих. Мне, по крайней мере, она в своё время здорово вправила мозги. Исправлены найденные опечатки и пропуски в примерах кода. Все примеры проверены на компиляторе и при необходимости "доведены до ума". Расширена глава об элементах управления (контролах): к описанию стандартных контролов добавлено описание элементов управления ActiveX, заимствованное из Components Tool Guide — следующей книги Visual Basic Books Online. В раздел Создание объектов во время выполнения с помощью элемента управления OLE container добавлены описания синтаксиса основных методов и свойств, взятые из перечней свойств и методов, которые находятся за пределами данной книги. Кроме этого, я написал маленький раздельчик Велик могучим русский языка с примером кода автоматического изменения русских падежных окончаний при вводе разных значений, например: 3 часа 12 минут 42 секунды или 17 часов 1 минута 30 секунд. Переведён интерфейс большинства примеров (текст кнопок, пунктов меню и т.п.). Руководство адаптировано для работы с версией VB 6, добавлено описание новых функций VB 6. Параллельно создаётся версия для скачивания в формате .chm. Я потихоньку перевожу и "Components Tool Guide", где говорится о работе с ActiveX, создании собственных контролов, слегка затрагивается работа с DLL и функциями API. Но перевод делается урывками, главным образом по ночам. Такими же урывками ползёт и перевод замечательной книги Эпплмана о функциях API, написанной, кроме того, на хорошем, богатом (слишком, чёрт возьми, богатом!) английском языке. Да ещё уйма времени уходит на параллельную компиляцию "хэлповников". Так что ни того, ни другого скоро не обещаю, хотя, если будут заявки, могу высылать отдельные главы. Все заявки, предложения, поправки и т.п. можно посылать на froland2@narod.ru. Постараюсь не оставить их без внимания. Андрей ФРОЛОВ 0