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

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

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

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

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

Опции темы