创建 BGR555 颜色转换器时出现问题 (VB.NET)

Question

我一直在尝试为 VB.NET 创建一个 function，能够将十六进制颜色转换为 BGR555 格式。 据我所知，在 inte.net 上只有一个 function 这样做，但它是在 JavaScript 中完成的（更多细节： https://orangeglo.github.io/BGR555/ ）

我什至在一些人的帮助下创建了 function，但结果仍然不如预期。 如果有人发现结果不同的原因，我将不胜感激。

实际例子：原来JavaScript中的function将值#FFFFFF转换为7FFF （Big Endian）。 使用我与其他人一起创建的 function ，它返回2048 。 https://i.stack.imgur.com/R8hSs.png

Answer 1

不确定为什么您的转换 function 将白色 ( RGB (255, 255, 255) ) 或#FFFFFF (RGB) 转换为 BGR555 中的2048 。

假设2048是十六进制，则位表示为10000001001000
如果是十进制，则表示为100000000000
我不知道你是怎么到那里的，它应该是111111111111111 。

BGR555 定义为

每像素 16 位 (BPP) 的 sRGB 格式。
每个颜色通道（蓝色、绿色和红色）都分配了每像素 5 位 (BPP)。

在 VB.NET 中可能是这样的：

Imports System.Drawing

' Get the Color value from its HTML representation
Dim rgb = ColorTranslator.FromHtml("#FFFFFF")

' Divide R, G and B values by 8 and shifts left by 0, 5 and 10 positions 
' (16 bit pixel, each color in 5 bits)
Dim colorBGR555 = CShort((rgb.R \ 8) + ((rgb.G \ 8) << 5) + ((rgb.B \ 8) << 10))
' Converts to string in Hex Format (Big Endian)  
Dim colorBGR555HexBE = colorBGR555.ToString("X2")

' Reverse the bytes (it's a Short value, two bytes) for its Little Endian representation
Dim bytes = BitConverter.GetBytes(colorBGR555).Reverse().ToArray()
Dim colorBGR555HexLE = BitConverter.ToInt16(bytes, 0).ToString("X2")