Помогите чайнику разобраться с выбором цвета.

[keks-n]

Ужос в общем... У всех кто выкладывал здесь код были ошибки... Думаю, что мы многое о себе узнали

[Хакер]

Да ну вас всех

Вас много я один. Мой вариант почему то оказывается самым плохим.

Вот я предложил самый первый вариант, от которого GSerg-у стало до тошноты плохо.

Что вам скорость. Вы бы ещё устроили бенчи для End и Error.

Я что не имею право на ошибку. Что я не могу спутать 255 и 256. Это что такая серьёзная ошибка? Это что, намного страшнее того, что некоторые люди забыли про отсвутсвие ведущих нулей у возврата Hex$ или то что если сделать Hex$(Color) будет BBGGRR ?

Только вот почему то так принято. Может быть у меня ник такой вызывающий, что вы отменя ожидаете безошибочность. Или что? Может не стоило мне говорить что я много уровней крэктэста прошёл. Или может быть всё в том что я зарегистрировался 13 ноября?
Число ведь не счастливое...

[Хакер]

Ужос в общем... У всех кто выкладывал здесь код были ошибки... Думаю, что мы многое о себе узнали

А какая ошибка была у меня в самом первом коде?

[keks-n]

Не в первом-во втором... С него всё и началось

[vvs_adm]

Это что, намного страшнее того, что некоторые люди забыли про отсвутсвие ведущих нулей у возврата Hex$ или то что если сделать Hex$(Color) будет BBGGRR ?

На мою ошибку забили от счастья, что так быстро работает Это все Тёмыч виноват Дал для проверки "симметричный" цвет

[tyomitch]

Хакер, страшная ошибка была не в том, что ты спутал 255 и 256.
А в том, что ты не удосужился проверить запощенный код даже на собственном примере и даже после напоминания.
Дело-то пятисекундное.

Выглядит, как полное пренебрежение к читателям твоих постов. "Я тут чего-то написал, а дебажьте вы сами, раз вам надо, а не мне." Некрасиво.

--------------------
Напомню также, что симметричный цвет дал не я.

угу.

особено RGB(255,0,255)

ЗЫ. А почему у тебя интересно также \ всесто / хотя там всегда целый резульатат. И также \255\255 а не \ 65025

странные совпадения, не правда ли?

[Хакер]

tyomitch

я опробовал вариант с 255 и поскольку всё работало, не стал ничего изменять. Оказалось что всё таки мои подозрения были не напрасны

Добавлено:
На счёт проверок кода, я всегда проверяю то что постю. Просто сегодня я в принципе, занят. Причём занят тяжёлой ручной работой, в которой используется монтировка. Так что я как-бы в надежде на вас думал что если вы вдруг не так, то меня просто поправят, а не будут тут холивар устраивать, на тему, что лучше Right или Format

[tyomitch]

Хакер, чесслово, я не хочу нового флейма "все против всех".
Давайте уже уговоримся?


Чтобы моё участие в топике не выглядело как чистой воды провокация, приведу свой код

Код: Выделить всё

Option Explicit

Private Type RGBTRIPLE
    Red As Byte
    Green As Byte
    Blue As Byte
End Type

Private Declare Function wvsprintf Lib "user32" Alias "wvsprintfA" (ByVal lpOutput As String, ByVal lpFormat As String, arglist As Any) As Long
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, Dst As Any)

Function RGB2Hex(ByVal Color As OLE_COLOR) As String
Dim args() As Long, rgbt As RGBTRIPLE
ReDim args(3): GetMem4 VarPtr(Color), rgbt
' спасибо за бдительность vvs_adm!
args(0) = rgbt.Red
args(1) = rgbt.Green
args(2) = rgbt.Blue
Dim Result As String: Result = Space(10)
RGB2Hex = Left(Result, wvsprintf(Result, "#%.2X%.2X%.2X", args(0)))
End Function

Sub Main()
    Debug.Print RGB2Hex(RGB(238, 255, 192))
End Sub


Добавлено:

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

Угу, и ник как раз подходящий

[Хакер]

была у меня такая идея. но она требует кучу всего. (Я люблю не быстрый код, а компактный)

[vvs_adm]

Что-то я не понял... Разве код Темыча не выдает GBR ?

[tyomitch]

Тогда вот ещё один хитрозакрученный код, в качестве proof-of-concept свежевыдуманной технологии:

Код: Выделить всё

Option Explicit

Private Declare Function wvsprintf Lib "user32" Alias "wvsprintfA" (ByVal lpOutput As String, ByVal lpFormat As String, arglist As Any) As Long
Private Declare Sub PutMem1 Lib "msvbvm60" (ByVal pDst As Long, ByVal Src As Byte)

Function RGB2Hex(ByVal Color As OLE_COLOR, Optional Magic1, Optional Magic2) As String
Dim args() As Long: ReDim args(3)
Magic2 = VarPtr(Magic1) + 8
PutMem1 VarPtr(Magic2) + 1, &H40
Magic1 = CByte(0)
PutMem1 VarPtr(Magic1) + 1, &H40
Magic2 = VarPtr(Color): args(0) = Magic1
Magic2 = Magic2 + 1:    args(1) = Magic1
Magic2 = Magic2 + 1:    args(2) = Magic1
Dim Result As String: Result = Space(10)
RGB2Hex = Left(Result, wvsprintf(Result, "#%.2X%.2X%.2X", args(0)))
End Function

Sub Main()
    Debug.Print RGB2Hex(RGB(192, 255, 238))
End Sub


2vvs_adm: ну ладно, исправить-то было легко: только индексы поменять

[keks-n]

Роковая тема-обязательно вылезает ошибка... Предлагаю её удалить . Мотивация:
1) Не позорится тем, кто ошибся
2) Не позорится тем, кто сюда напишет

[Хакер]

нет. оставить мой первый вариант и мой поправленный вариант. ибо автору надо знать правильные варианты

[vvs_adm]

2vvs_adm: ну ладно, исправить-то было легко: только индексы поменять

Да оно понятно, что легко. Это я в защиту Хакера ,так как мы все тут как сговорились сегодня и

"Я тут чего-то написал, а дебажьте вы сами, раз вам надо, а не мне."

[keks-n]

нет. оставить мой первый вариант и мой поправленный вариант. ибо автору надо знать правильные варианты

Он уже использует твой первей вариант(см. первую страницу)

[Andrey Fedorov]

Может до меня чего-то не доходит...
Cтолько писанины про RGB2Hex - чтобы всего-навсего изобрести свой аналог имеющейся и прекрасной работающей функции Hex? Нафига это все?

Код: Выделить всё

?Hex(&H2014FF)
2014FF
?Hex(RGB(255, 127, 254))
FE7FFF


[Хакер]

красный цвет = RGB(255,0,0) = #FF0000

что даст Hex$

она даст FF.

Хорошо, добавим нули в конец и дело в шляпе.

А в шляпе дырка.

попробуем такой цвет

RGB(1,2,0). Его вэб-представление - #010200

а что возвратит твой вариант?

...201

"201" = "010200" нет.

Чтобы из 201 сделать 000201, а потом из 00 02 01 сделать 010200 и придуман был весь этот код.

[Andrey Fedorov]

Чтобы из 201 сделать 000201, а потом из 00 02 01 сделать 010200 и придуман был весь этот код.

А - перепутаны цвета... Не обратил внимания. Просто уже давно делал и казалось что проблем тогда вообще не было. Как тогда решил уже не помню - искать надо...

[vvs_adm]

Да тут теперь как сделать - не вопрос Решали, как максимально быстро сделать.

[Andrey Fedorov]

Да тут теперь как сделать - не вопрос Решали, как максимально быстро сделать.

Что из чего сделать?

Если из цветов R, G, B надо сделать шестнадцатеричное представление BGR, то тогда:

Код: Выделить всё

?Hex(RGB(B, G, R))
FF0000

?Hex(RGB(0, 2, 1))
10200

[Хакер]

Andrey Fedorov

во первых тогда vbBlue + vbGreen будет не как "00FFFF" а как "FFFF"

это раз.

Во вторых я так и делал. Тут ещё надо получить R, G и B из предоставленного Color As Long

Ну и потом. Нафиг тут быстрота? Вы мне скажите. Неужели вы думаете, что пользователь может выбирать элементы в КомбоБоксе так быстро, что разница между "быстрыми" и "медленными" способами будет заметна?

[keks-n]

Ужос в общем... У всех кто выкладывал здесь код были ошибки... Думаю, что мы многое о себе узнали

И Andrey Fedorov не исключение... Срочно закрывайте тему!

[uhm]

Заметим, что даже первый код содержит ошибку, ибо

RGB2Hex = "#" + Mid$(bgrhex, 5,2) + Mid$(bgrhex, 3,2) +Mid$(bgrhex, ***5***,2)

[Хакер]

прОклятая тема... срочно завите шамана, чтобы он выгнал злых духов.

[Kovu]

А можно поинтересоваться у Тёмыча, почему он делает

Код: Выделить всё

ReDim args(3)


Хотя используется только 3 элемента массива а не 4?

[Хакер]

потому что в Long 4 байта

[Kovu]

Хм, Хакер, я конечно понимаю что может быть и тупой, но объясни при чем тут Long? Особенно если учесть, что функция работает и при

Код: Выделить всё

ReDim args(2)


[Хакер]

Ааа... ну тогда типа чтобы в RGBA2Hex легко переделать можно было.

А может быть просто, думал как и я, хотя Long и правда значения тут не имеет

[tyomitch]

Хм, Хакер, я конечно понимаю что может быть и тупой, но объясни при чем тут Long? Особенно если учесть, что функция работает и при

Код: Выделить всё

ReDim args(2)


Потому что я зачем-то решил, что список va_list нужно завершать нулём.
Сейчас я даже не могу понять, почему я так решил.