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

@Infinity20_5 · 21.06.2016, 13:31. **Показов** 3453. **Ответов** 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

@Catstail · 21.06.2016, 13:46

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

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

- генерировать случайный цвет и заливать. Генерировать так:

Visual Basic
1
      rnd_Color&=RGB(rnd*255,rnd*255,rnd*255)

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

Многие из участников почему-то пытаются скрыть подобные сведения. Не знаю их мотивов.

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

@Pro_grammer · 21.06.2016, 13:49

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Command1_Click()
Me.FillStyle = 0
wd = Me.ScaleWidth: ht = Me.ScaleHeight
For n = 1 To 20
        x = wd * Rnd
        y = ht * Rnd
        r = 800 * Rnd + 200
        c = 3 * Rnd
          
        Select Case n
                    Case 1 To 7
                         Colors = vbGreen
                    Case 8 To 14
                        Colors = vbRed
                    Case 14 To 20
                      Colors = vbBlue
         End Select
         
          Me.FillColor = Colors
          Me.Circle (x, y), r, Colors, , , c
 
 Next n
End Sub
 
Private Sub Command2_Click()
Me.FillStyle = 0
wd = Me.ScaleWidth: ht = Me.ScaleHeight
For n = 1 To 20
        x = wd * Rnd
        y = ht * Rnd
        r = 800 * Rnd + 200
        c = 3 * Rnd
        Colors = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
    Me.FillColor = Colors
    Me.Circle (x, y), r, Colors, , , c
 
 Next n
 
End Sub

@Infinity20_5 · 21.06.2016, 14:19 **[ТС]**

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

генерировать случайный цвет и заливать. Генерировать так:
Visual Basic
Выделить код
1 rnd_Color&=RGB(rnd*255,rnd*255,rnd*255)
Цитата Сообщение от Infinity20_5 Посмотреть сообщение
Многие из участников почему-то пытаются скрыть подобные сведения. Не знаю их мотивов.
- никто от тебя ничего не скрывает. Просто ты задаешь банальнейшие вопросы, которые почти ни у кого не вызывают интереса.

Вот пусть школьники, студенты и их родители, положа руку на сердце, рассудят: насколько огульно охаиваю участников форума. Смотрите код и картинку, ниже. Что изменилось? Ничего!
Так и переливаем из пустого в порожнее. Уже потратил на тему способы окраски эллипсов около 10 часов чистого времени. Далеко не у каждого студента хватит столько времени, терпения и здоровья на "бесполезное топтание на месте".

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, Rnd_Color&
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
Rnd_Color& = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Circle (x, y), r, Rnd_Color&, , , c
 
Next i
 
End Sub

@Infinity20_5 · 21.06.2016, 14:44 **[ТС]**

Pro_grammer!
Спасибо. Выручили по моим: 1-му и 3-му вопросам. Остался 2-й вопрос.
Command1_Click() — окрашивает только в три заданных цвета.
Command2_Click() — окрашивает во множество цветов случайным образом.

@Pro_grammer · 21.06.2016, 15:02

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

Остался 2-й вопрос.

Уже вроде писал, что бессмысленно так делать.
Вот число 6 делится и на 2 и на 3 без остатка. Какой будет цвет?

@fever brain · 21.06.2016, 15:27

Pro_grammer, да что вы с ним нянчиетесь
объедените темы в одну, и пусть этот человек агрызается там... мне Вас учить ?

Добавлено через 1 минуту
Кроспостинг еще никто не отменял )

Добавлено через 6 минут
Infinity20_5, а ты не создовай один вопрос в разных темах
побью....

@Catstail · 21.06.2016, 15:29

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

Вот пусть школьники, студенты и их родители, положа руку на сердце, рассудят: насколько огульно охаиваю участников форума.

- огульно охаиваешь, и, прямо скажу - нарываешься. Я тебе подсказал способ генерации случайного цвета. Он не работает? Работает. Тогда в чем дело? Трудно сделать следующий шаг самому?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
        Randomize
        Me.Picture1.Cls
        Me.Picture1.Scale (-100, 100)-(100, -100)
        For i% = 1 To 100
            r# = Rnd * 70
            c& = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
            x# = Rnd * 200 - 100
            y# = Rnd * 200 - 100
            a# = 5 * Rnd
            Me.Picture1.FillColor = c&
            Me.Picture1.Circle (x#, y#), r#, c&, , , a#
        Next i%
End Sub

@fever brain · 21.06.2016, 15:30

Вооот, ... понял ?

@The trick · 21.06.2016, 15:42

Почитай книгу по программированию на VB6. Изучи работу с графикой в частности что такое FillColor, ForeColor, FillStyle, DrawStyle и т.п.

@Infinity20_5 · 21.06.2016, 15:47 **[ТС]**

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

Уже вроде писал, что бессмысленно так делать.
Вот число 6 делится и на 2 и на 3 без остатка. Какой будет цвет?

Pro_grammer!
Хорошо. Опишу свои интересы, как смогу. Вопрос необычайно злободневный, Visual Basic 6.0 извёл, точнее — добил до умопомрачения сообщениями: Else without If Error; End If without block If.

Как с ними бороться и что делать? Просто ума не приложу. Нигде в интернете не встретил хороших учебных примеров и аналогов. Потратил около 15 часов чистого времени.
Вот код ниже, очень прошу его настроить. Жуть!

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()
Dim i As Integer
Dim x  As Integer, y  As Integer, Color&
Dim r As Integer, c As Single, d As Single
Dim imod2 As Integer, imod3 As Integer
Randomize Timer
Picture1.Cls
For i = 1 To 10
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Circle (x, y), r, Color, , , c
If (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbRed
 If (imod3 = 0) And (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbGreen
  If (imod2 <> 0) And (imod3 <> 0) Then Picture1.Circle (x, y), r, FillStyle = vbBlue
End If
Next i
 
End Sub

@Infinity20_5 · 21.06.2016, 16:24 **[ТС]**

Сообщение от The trick

Почитай книгу по программированию на VB6.

The trick!
Мысленно всегда проклинаю подавляющее большинство (96 %) авторов по VB6. Единственный, кто вызвал искренне уважение только Берков. Конкретный и лаконичный. Но его книге уже 20 лет.
Назовите, пожалуйста, конкретного автора, которого надо прочесть!

Добавлено через 12 минут

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

Я тебе подсказал способ генерации случайного цвета. Он не работает? Работает.

Catstail!
В том-то и дело, что ни грамма не работает. Смотрите подробности выше. Всё сделал как Вы посоветовали, ничего не изменилось. В чём дело? Что не так сделал?

Добавлено через 17 минут

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

Вложения
Тип файла: zip t121.zip (4.8 Кб, 0 просмотров)

Вложение проверил. Работает.

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

Visual Basic
Выделить код
1 rnd_Color&=RGB(rnd*255,rnd*255,rnd*255)

А вот это, выше, нисколько не помогло.

@The trick · 21.06.2016, 16:55

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

Назовите, пожалуйста, конкретного автора, которого надо прочесть!

К сожалению хорошего автора не могу посоветовать, т.к. читал только один учебник, остальное учил по статьям в интернете и сам. Я учил по книге "Программирование на Visual Basic 6.0" Сурядный, Глушаков. Там тема графики достаточно хорошо описана.

@Catstail · 21.06.2016, 17:00

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

Вложение проверил. Работает.

- ну так открой проект и посмотри, что внутри. Собственно, код я показал. Чтобы рисовался закрашенный эллипс, нужно выполнить следующее:

1) у объекта рисования (в моем случае - это PictureBox) установить параметр FillStyle=0
2) перед вызовом Circle установить у объекта рисования параметр FillColor=нужный_цвет_заливки
3) вызвать Circle

Книги:

И. Сафронов "Visual Basic в примерах и задачах" 2008;
С. Симонович, Г. Евсеев "Занимательное программирование. Visual Basic" 2001
С. Лукин "Visual Basic самоучитель для начинающих" 2001
Б. МакКинни "Visual Basic крепкий орешек" 1998 (книга сложная, но настоящий шедевр)
"Visual Basic на практике" ред. Г. Магдануров 2008

@fever brain · 21.06.2016, 19:00

Catstail, если он *шарит* он с гугла всё скачяает
сейчас он чтото пишет, не знаю что ну явно чтото нестандартное )
учите его, думаете на пользу пойдёт вы видели как
этот человек разговаривает ? Пожалуйста . . .

Добавлено через 9 минут

Сообщение от The trick

К сожалению хорошего автора не могу посоветоват

у меня есть целый диск платный могу поделится.... никто - же не просит ))

@Infinity20_5 · 21.06.2016, 20:10 **[ТС]**

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

И. Сафронов "Visual Basic в примерах и задачах" 2008;
С. Симонович, Г. Евсеев "Занимательное программирование. Visual Basic" 2001
С. Лукин "Visual Basic самоучитель для начинающих" 2001
Б. МакКинни "Visual Basic крепкий орешек" 1998 (книга сложная, но настоящий шедевр)
"Visual Basic на практике" ред. Г. Магдануров 2008

Catstail!
Разрешаю всем считать меня априори законченным тупицей.
Хоть убейте — буду резать правду-матку! Иначе сам запутаюсь в жизни.

1) Алексей Сурядный, Сергей Глушаков. Программирование на Visual Basic 6.0 — сейчас пытался скачать, но поймал уйму заразы, около часа чистил компьютер. Ладно, обойдусь. Сама книга уже старушка.

2) И. Сафронов "Visual Basic в примерах и задачах" 2008. У меня есть. Очень посредственный автор. Книга рассчитана на массовость (на троечников), всё примитивно.

3) С. Лукин "Visual Basic самоучитель для начинающих" 2001. У меня есть. Автор изначально вызывает раздражение своей легкомысленностью и несерьёзностью.

В общем как обычно. Полный шифоньер одежды, а одеть-то нечего.

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

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

Pro_grammer!
...Вопрос необычайно злободневный, Visual Basic 6.0 извёл, точнее — добил до умопомрачения сообщениями: Else without If Error; End If without block If.
Как с ними бороться и что делать? ...
Вот код ниже, очень прошу его настроить. Жуть!

Добавлено через 1 час 2 минуты

Сообщение от fever brain

у меня есть целый диск платный могу поделится.... никто - же не просит

Любопытства ради: огласите, пожалуйста весь список диска. Только наименования программ. Всем будет интересно.

@Pro_grammer · 21.06.2016, 20:13

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

Pro_grammer. Наверно, у него ничего не получается.

Чего не получается? На дебильные вопросы отвечать?
Комп говорит: " End If without block If "
Что тут непонятного?

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

If (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbRed
If (imod3 = 0) And (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbGreen
If (imod2 <> 0) And (imod3 <> 0) Then Picture1.Circle (x, y), r, FillStyle = vbBlue
End If

Красным, если что, это ошибка, которую надо убрать.

@Catstail · 21.06.2016, 20:43

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

сейчас пытался скачать, но поймал уйму заразы

- убийственная логика. Я тебе предложил сходить в магазин, ты пошел, по дороге споткнулся и набил шишку. А виноват я?

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

Очень посредственный автор. Книга рассчитана на массовость (на троечников), всё примитивно

- судя по твоим вопросам, для тебя эта книга - самое то.

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

Орешек не простой. Помогите, пожалуйста, с тем же кодом.

- с каким?

@Infinity20_5 · 21.06.2016, 21:23 **[ТС]**

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

Чего не получается? На дебильные вопросы отвечать?
Комп говорит: " End If without block If "
Что тут непонятного?

Pro_grammer!
Может, непонятно излагаю мысли по-русски? Тогда укажите, где именно? Если Вы убеждены, что сейчас код работает верно — то разговаривать не о чём. Вы знаете по данному вопросу не больше меня.
Пусть любой школьник или студент проверит мои слова. Как не было толку от кода, так и нет до сих пор.
Сам лично, если не знаю, что надо сделать для исправления ошибок кода — то просто отвечаю: не знаю. Моего авторитета не убавится, а скорее наоборот, поскольку люди не любят — когда им морочат голову.

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

с каким?

Catstail!
Сгораю от любопытства, похоже разучился писать по-русски. Никто меня не понимает. Пусть школьники проверят по тексту, можно ли было догадаться, что речь идёт про код, ниже.

Catstail, по ходу ткните меня носом в конкретную страницу, где якобы у толковых авторов, список выше — написаны пояснения по подобному коду. Всё что смогли они — так это просто перевести посредственный англоязычный источник, выдавая за свои мысли. Обычное ворьё.

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()
Dim i As Integer
Dim x  As Integer, y  As Integer, Color&
Dim r As Integer, c As Single, d As Single
Dim imod2 As Integer, imod3 As Integer
Randomize Timer
Picture1.Cls
For i = 1 To 10
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Circle (x, y), r, Color, , , c
If (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbRed
 If (imod3 = 0) And (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbGreen
  If (imod2 <> 0) And (imod3 <> 0) Then Picture1.Circle (x, y), r, FillStyle = vbBlue
'End If
Next i
 
End Sub

@Catstail · 21.06.2016, 22:11

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

похоже разучился писать по-русски

- возможно, что и не умел никогда...

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

Никто меня не понимает.

- есть повод задуматься...

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

Пусть школьники проверят по тексту, можно ли было догадаться, что речь идёт про код, ниже

- сынок, я модератор в трех разделах... Ты думаешь, что я должен помнить все твои посты?

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

Catstail, по ходу ткните меня носом в конкретную страницу

- и не подумаю. Текст настолько прост и прозрачен, что вряд ли кто-то возьмется его комментировать. Текст - типичный пример говнокода. Вот посмотри, я выражаясь твоими словами, "высек из него искру Божью":

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer, Color&
Dim r As Integer, c As Single, d As Single
Dim imod2 As Integer, imod3 As Integer
  Randomize Timer 
  Picture1.Cls
  For i = 1 To 50
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r = 1000 * Rnd
    c = 3 * Rnd
    Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Picture1.FillStyle = 0
    If (i Mod 3 = 0) Then
       Picture1.FillColor = vbRed
       Picture1.Circle (x, y), r, vbRed
    ElseIf (i Mod 3 = 1) Then
       Picture1.FillColor = vbGreen
       Picture1.Circle (x, y), r, vbGreen
    Else
       Picture1.FillColor = vbBlue
       Picture1.Circle (x, y), r, vbBlue
    End If
  Next i
 
End Sub

Подставь его в свой проект и убедись, что он работает так, как ты хотел.

А вообще - еще один совет - когда спрашиваешь что-то у других, держись скромнее. Большая часть того, что ты пишешь, не соответствует действительности. А декларируешь ты это с неподражаемым апломбом.

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

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

Решение

Решение

@Infinity20_5 Заблокирован
	21.06.2016, 14:44 [ТС]
	Pro_grammer! Спасибо. Выручили по моим: 1-му и 3-му вопросам. Остался 2-й вопрос. Command1_Click() — окрашивает только в три заданных цвета. Command2_Click() — окрашивает во множество цветов случайным образом. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	21.06.2016, 15:27
	Pro_grammer, да что вы с ним нянчиетесь объедените темы в одну, и пусть этот человек агрызается там... мне Вас учить ? Добавлено через 1 минуту Кроспостинг еще никто не отменял ) Добавлено через 6 минут Infinity20_5, а ты не создовай один вопрос в разных темах побью.... 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	21.06.2016, 15:30
	Вооот, ... понял ? 1

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	21.06.2016, 15:42
	Почитай книгу по программированию на VB6. Изучи работу с графикой в частности что такое FillColor, ForeColor, FillStyle, DrawStyle и т.п. 2