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

@Infinity20_5 · 21.06.2016, 13:31. **Показов** 3427. **Ответов** 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 (да, самый интересный!) и издал под своей "фамилией". Весь код, названия классов и методов - сдуто ВСЕ!

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

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@Catstail Супер-модератор 38171 / 21106 / 4307 Регистрация: 12.02.2012 Сообщений: 34,699 Записей в блоге: 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 Супер-модератор 38171 / 21106 / 4307 Регистрация: 12.02.2012 Сообщений: 34,699 Записей в блоге: 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