RGB的问题，算法。

2004-07-17 10:56:59 495 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

dongge2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

mupdf中CMYK与RGB的转换算法之前碰到过RGB与CMYK之间转换的问题，网上也没有比较官方的转换公式，不同的软件可能会采用不同的算法，现在mupdf，正好也看到了这样的算法，还是有一定参考价值的，具体算法如下： #define MIN(a,b) ( (a) #define MAX(a,b) ( (a) > (b) ? (a) : (b) ) #define CLAMP(x,a,b) ( (x) > (b) ? (b) 阅读详情

?RGB(0,0,0)
0
?RGB(1,0,0)
1
?RGB(0,1,0)
256
?RGB(0,0,1)
65536
?RGB(1,1,1)
65793
?RGB(10,11,12)
789258
?HEX(789258)
C0B0A
?RGB(8,9,10)
657672
?HEX(657672)
A0908
?RGB(2,3,4)
262914
?1*2+256*3+65536*4
262914
=================================
看得出来，RGB函数就是（1*R+256*G+65536*B）
我的问题是如何把（1*R+256*G+65536*B）的值还原成RGB的三个值。
如：
?1*2+256*3+65536*4
262914
如何把（262914）还原成
R=2，G=3，B=4

用HEX函数得到的是反的。

...全文

【RGB=HSI】单片机控制RGB单灯与HSI互转算法最近在做一个RGB补光灯的小玩意儿，项目上有一个OLED屏幕显示当前灯光的HSI参数，对于HSI我是完全陌生的，由于时间紧任务重，我也没想过去百度一下HSI是个啥，直接拿着样品测试了一组参数，自己去演算了一个HSI转RGB的函数，虽然花了不少时间，还存在一点误差，误差主要是范围的问题，RGB的范围应该是0-255，我演算的时候为了方便计算将范围设置为0-100，最终结果算是好的吧。但是在RGB转HSI的时候，已经没有时间去推算了，这才想起来去请教身边的一位大佬，这才知道HSI颜色模型是个啥，还给我普及了阅读详情

dongge2000

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

hxy2003 2004-09-10

打赏
举报

xuboying 2004-07-18

打赏
举报

WallesCai(WallesCai) 快， northwolves(狼行天下)好懂，当然最好是选快的啦

熊孩子开学喽 2004-07-18

打赏
举报

大家都好快啊，看看我的写法：
R = Color And &HFF& '通过和16进制数FF进行“与”操作取得低8位
G=(Color\256) And &HFF& '先右移8位，再取低8位，相当于原来的中间8位
B = Col \ 65536　　　　　　 '右移16位，得到的8位，相当于原来的高8位

还有一种写法：
R = Color Mod 256
G = (Color\256) Mod 256
B = Color \65536
这种写法和上面的区别在于使用了“取余数”运算符Mod，结果和上面一样

northwolves 2004-07-18

打赏
举报

Option Explicit

Private Sub Command1_Click()
getrgb RGB(16, 39, 0)
End Sub
Sub getrgb(ByVal color As Long, Optional ByRef red As Byte, Optional ByRef green As Byte, Optional ByRef blue As Byte)
Dim temp As String
temp = Right("000000" & Hex(color), 6)
red = "&H" & Right(temp, 2)
green = "&H" & Mid(temp, 3, 2)
blue = "&H" & Left(temp, 2)
MsgBox "red: " & red & vbCrLf & "green: " & green & vbCrLf & "blue: " & blue
End Sub

dongge2000 2004-07-18

打赏
举报

To:thirdapple(.:RNPA:.陨落雕-鍾意吊帶MM)
GetGreenValue = (Color And 65280) \ 256
中的65280是什么。为什么是65280

BlueBeer 2004-07-17

打赏
举报

对，还有一个办法

以262914为例，把它转成16进制

?hex(262914)
40302

高位的是蓝色值的16进制，中间是绿色，低位是红色

再比如白色：16777215
?hex(16777215)
FFFFFF
就可以看出，红绿蓝的值均为FF，即255

thirdapple 2004-07-17

打赏
举报

Public Function GetRedValue(Color As Long) As Integer
GetRedValue = Color And &HFF
End Function

Public Function GetGreenValue(Color As Long) As Integer
GetGreenValue = (Color And 65280) \ 256
End Function

Public Function GetBlueValue(Color As Long) As Integer
GetBlueValue = (Color And &HFF0000) \ 65536
End Function

dongge2000 2004-07-17

打赏
举报

自己顶一下！

RGB的问题，算法。

相关推荐