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

@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

    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

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

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 **[ТС]**

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

~~dev.Free~~ Заблокирован
	05.05.2012, 19:11	17
	Сообщение от PAnT0P Ты реально тупишь , речь идет не об окраске контрола, а о допустим выборке каких то объектов по цветовому оттенку. Допустим нужно выбрать все товары красного оттенка. Можно сделать многое! Если ты понял, скажи где именно он хочет выбрать по оттенкам, в каких местах и условиях? 0

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

SoftIce es geht mir gut 11189 / 4613 / 1161 Регистрация: 27.07.2011 Сообщений: 11,318 Завершенные тесты: 1
	05.05.2012, 14:24	9
	Сообщение от PAnT0P Во вложении есть подобная функция Извини не посмотрел Добавлено через 4 минуты Сообщение от PAnT0P человеческий глаз воспринимает цветовой спектр не равномерно У меня левый глаз видит больше красных оттенков, а правый - синих 0

@PAnT0P 1029 / 553 / 106 Регистрация: 26.03.2012 Сообщений: 993
	05.05.2012, 14:33	10
	Сообщение от SoftIce Извини не посмотрел Добавлено через 4 минуты У меня левый глаз видит больше красных оттенков, а правый - синих Я не о том, вот например: ПРИМЕР - какой оттенок у текста? 0

SoftIce es geht mir gut 11189 / 4613 / 1161 Регистрация: 27.07.2011 Сообщений: 11,318 Завершенные тесты: 1
	05.05.2012, 14:37	11
	Сообщение от PAnT0P ПРИМЕР - какой оттенок у текста Розовый? 0 Миниатюры

SoftIce es geht mir gut 11189 / 4613 / 1161 Регистрация: 27.07.2011 Сообщений: 11,318 Завершенные тесты: 1
	05.05.2012, 14:38	12
	Сообщение от PAnT0P ПРИМЕР - какой оттенок у текста Фуксия? 0

@PAnT0P 1029 / 553 / 106 Регистрация: 26.03.2012 Сообщений: 993
	05.05.2012, 14:41	13
	Сообщение от SoftIce Розовый? Ну я вообще то спрашивал про основные цвета к чему ближе - красный синий или зеленый. Ну примем что розовый это красный ок? На самом деле там красного и синего цвета одинаково. Об этом я и говорю, что глаз воспринимает цветовой спектр не равномерно: красный - больше, синий - меньше. 0

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

@PAnT0P 1029 / 553 / 106 Регистрация: 26.03.2012 Сообщений: 993
	05.05.2012, 19:04	16
	Сообщение от inv.DS Если я не туплю Ты реально тупишь , речь идет не об окраске контрола, а о допустим выборке каких то объектов по цветовому оттенку. Допустим нужно выбрать все товары красного оттенка. 0

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

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

	05.05.2012, 12:53