Передать в переменную оттенки красного

@xkpukx · Регистрация: 12.12.2010

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

Допустим есть

Visual Basic
1
If t = vbRed Then

как переделать это не только vbRed ну и другие оттенки красного?

@PAnT0P · 05.05.2012, 12:21

Никак. Язык программирования (любой) подразумевает точное сравнение и для него нет такого понятия примерно красный. Да и человеческое восприятие цвета тоже сугубо индивидуальное, например возьмем фиолетовый цвет, кто то скажет, что это оттенок красного, а кто то синего.

@Апострофф · 05.05.2012, 12:23

Может так?

Visual Basic
1
2
3
If t and vbRed Then 
  'Какой то процент красного тут есть
endif

@xkpukx · 05.05.2012, 12:53 **[ТС]**

Сообщение от Апострофф

Может так?

Visual Basic
1
2
3
If t and vbRed Then 
  'Какой то процент красного тут есть
endif

Не, вообще перестало искать то что нужно было(

Попробую мб через тройной цикл и через подставляя перменые в RGB, конечно ппц долго это будет..

@PAnT0P · 05.05.2012, 13:03

Единственно что можно сделать это оценивать пропорциональное соотношение каналов RGB из которого составляются цвета. Сначала вывести экспериментальным образом некий коэффициент преобладания одного канала над другим при котором глаз будет четко определять оттенок цвета. Например возьмем условно его равным 1.25, тогда твое условие для основных цветов можно записать так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
    K = 1.25
    Select Case True
      Case R > G * K And R > B * K
        ColorTone = "Красный"
      Case G > R * K And G > B * K
        ColorTone = "Синий"
      Case B > R * K And B > G * K
        ColorTone = "Зеленый"
      Case Else
        ColorTone = "Отсутствует"
    End Select

@PAnT0P · 05.05.2012, 13:35

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

Добавлено через 28 минут
Вполне возможен вариант, что надо сравнивать не пропорциональное а линейное преобладание одного цвета над другим, с коэффициентом побольше K=20~50

Visual Basic
1
Case R > G + K And R > B + K

Посмотри как лучше воспринимается глазом. Или вообще для каждого канала подобрать индивидуальный коэффициент, т.к. человеческий глаз воспринимает цветовой спектр не равномерно.

SoftIce · 05.05.2012, 14:16

А узнать RGB можно так

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim c As Long, R As Integer, G As Integer, B As Integer, BG As Integer
c = Picture1.Point(10, 10)
R = c Mod 256
BG = c / 256
G = BG Mod 256
B = BG / 256
Print " R = "; R; ", G = "; G; ", B = "; B
End Sub

@PAnT0P · 05.05.2012, 14:18

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

А узнать RGB можно так

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim c As Long, R As Integer, G As Integer, B As Integer, BG As Integer
c = Picture1.Point(10, 10)
R = c Mod 256
BG = c / 256
G = BG Mod 256
B = BG / 256
Print " R = "; R; ", G = "; G; ", B = "; B
End Sub

Во вложении есть подобная функция

SoftIce · 05.05.2012, 14:24

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

Во вложении есть подобная функция

Извини не посмотрел

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

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

человеческий глаз воспринимает цветовой спектр не равномерно

У меня левый глаз видит больше красных оттенков, а правый - синих

@PAnT0P · 05.05.2012, 14:33

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

Извини не посмотрел

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

У меня левый глаз видит больше красных оттенков, а правый - синих

Я не о том, вот например: ПРИМЕР - какой оттенок у текста?

SoftIce · 05.05.2012, 14:37

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

ПРИМЕР - какой оттенок у текста

Розовый?

SoftIce · 05.05.2012, 14:38

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

ПРИМЕР - какой оттенок у текста

Фуксия?

@PAnT0P · 05.05.2012, 14:41

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

Розовый?

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

@xkpukx · 05.05.2012, 18:49 **[ТС]**

ну вы прям спасли мою курсовую) спс!

dev.Free · 05.05.2012, 18:51

Если я не туплю, то там вроде бы есть функция выбора оттенка у каждого элемента управления. Если я реально не туплю, то вот несколько оттенков красного. А вообще вроде бы можно не писать к примеру

Visual Basic
1
Label1.BackColor = vbRed

можно примерно так выбрать оттенок:

Visual Basic
1
Label1.BackColor = &H231EF9

Там на сколько я еще знаю можно и цветовую гамму подбирать.

@PAnT0P · 05.05.2012, 19:04

Сообщение от inv.DS

Если я не туплю

Ты реально тупишь

, речь идет не об окраске контрола, а о допустим выборке каких то объектов по цветовому оттенку. Допустим нужно выбрать все товары красного оттенка.

dev.Free · 05.05.2012, 19:11

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

Ты реально тупишь

, речь идет не об окраске контрола, а о допустим выборке каких то объектов по цветовому оттенку. Допустим нужно выбрать все товары красного оттенка.

Можно сделать многое! Если ты понял, скажи где именно он хочет выбрать по оттенкам, в каких местах и условиях?

@xkpukx · 05.05.2012, 19:21 **[ТС]**

Нужно на рисунки найти круг.. за маркер у нас выступает красный цвет и его оттенки.. примерно как
на картинке, ну раптор как мне кажется нашел самый оптимальный вариант.. круче него ток яйца

@tarakano · 06.05.2012, 01:45

xkpukx, когда доделаешь проект - скинь его сюда, будет интересно посмотреть, как он работает

@xkpukx · 06.05.2012, 22:47 **[ТС]**

Лови=) совместными усилиями собралась моя и работа курсовая=)

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@PAnT0P 1492 / 587 / 107 Регистрация: 26.03.2012 Сообщений: 1,039
	05.05.2012, 12:21
	Никак. Язык программирования (любой) подразумевает точное сравнение и для него нет такого понятия примерно красный. Да и человеческое восприятие цвета тоже сугубо индивидуальное, например возьмем фиолетовый цвет, кто то скажет, что это оттенок красного, а кто то синего. 0

@xkpukx 4 / 4 / 0 Регистрация: 12.12.2010 Сообщений: 184
	05.05.2012, 18:49 [ТС]
	ну вы прям спасли мою курсовую) спс! 0

@xkpukx 4 / 4 / 0 Регистрация: 12.12.2010 Сообщений: 184
	05.05.2012, 19:21 [ТС]
	Нужно на рисунки найти круг.. за маркер у нас выступает красный цвет и его оттенки.. примерно как на картинке, ну раптор как мне кажется нашел самый оптимальный вариант.. круче него ток яйца Миниатюры 0

@tarakano 34 / 26 / 0 Регистрация: 24.12.2010 Сообщений: 165
	06.05.2012, 01:45
	xkpukx, когда доделаешь проект - скинь его сюда, будет интересно посмотреть, как он работает 0