VB实现RGB888到YUV422的转换

来源：互联网发布：手机淘宝联盟怎么返利编辑：程序博客网时间：2024/06/10 14:08

从前面的bmp文件格式以及YUV的格式介绍中，我们已经知道了两种文件之间的差异。再从网上找到YUV与RGB之间的换算关系：

Y = 0.257R + 0.504G + 0.098B + 16
U = -0.148R - 0.291G + 0.439B + 128
V = 0.439R - 0.368G - 0.071B + 128

好，现在准备工作已经差不多了。需要的就是整理一下思路了。

目的：将RGB888文件（即24位bmp）转换为 YUV422(UYVY)

过程：RGB888 ＝》 YUV ＝》 YUV422 (注：中间的YUV就是按照上面的公式进行RGB到YUV的转换，但是格式上还不是YUV格式，所以还需要再次转换成YUV422。)

好，下面就可以累长城了。

RGB到YUV转换的代码如下：

        Open strRGBfile For Binary As #1
        Open strYUVfile For Binary As #100

        'BMP 54个字节之后的是像素数据
        lengRGB = rgbHeight * rgbWidth * 3

        ReDim rgbContent(lengRGB - 1) '重定义数组，为读取文件做准备
        Get #1, 55, rgbContent() '取得第一文件的内容到数组
        Dim i, j As Long
        Dim r, g, b As Integer
        ReDim yuvContent(lengRGB - 1)

        For i = 0 To rgbHeight - 1
            For j = 0 To rgbWidth - 1
                b = rgbContent(3 * (rgbWidth * i + j) + 0)
                g = rgbContent(3 * (rgbWidth * i + j) + 1)
                r = rgbContent(3 * (rgbWidth * i + j) + 2)
                yuvContent(3 * (rgbWidth * (rgbHeight - 1 - i) + j)) = 0.257 * r + 0.504 * g + 0.098 * b + 16
                yuvContent(3 * (rgbWidth * (rgbHeight - 1 - i) + j) + 1) = -0.148 * r - 0.291 * g + 0.439 * b + 128
                yuvContent(3 * (rgbWidth * (rgbHeight - 1 - i) + j) + 2) = 0.439 * r - 0.368 * g - 0.071 * b + 128
            Next j
        Next i
        close #1
        close #100

已经将RGB数据完全转变为YUV的格式了，再就是转变为YUV422(UYVY)，代码如下：

        Open strYUVfile For Binary As #100
        Dim j As Long
        ReDim yuv422Content((lengRGB + 1) * 4 / 6 - 2)

        For j = 0 To (lengRGB / 6 - 1) 'UYVY
            yuv422Content(4 * j + 0) = Temp_yuvContent(6 * j + 1) / 2 + yuvContent(6 * j + 4) / 2 'U0
            yuv422Content(4 * j + 1) = Temp_yuvContent(6 * j)                                                           'Y0
            yuv422Content(4 * j + 2) = Temp_yuvContent(6 * j + 2) / 2 + yuvContent(6 * j + 5) / 2 'V0
            yuv422Content(4 * j + 3) = Temp_yuvContent(6 * j + 3)                                                      'Y1
        Next j

        Put #100, , yuv422Content() '把yuv的内容写到yuv444件中
        yuvlen = (lengRGB + 1) * 4 / 6 - 1
        SavetoCfunction
        '关闭文件
        Close #100
        MsgBox "完成。", vbInformation

这时候我们就完成任务了，YUV422的数据已经被写入了文件中。

要是有什么问题请及时与我联系！

下面show下我写的小软件吧：

已经实现的功能：

RGB888 ＝》YUV444

RGB888 ＝》YUV422（UYVY）

RGB888 ＝》YUV420 (YV12)

RGB888 ＝》YUV411 (YUYYVY)

YUV444 ＝》RGB888

YUV422（UYVY）＝》RGB888

YUV420 (YV12) ＝》RGB888

YUV411 (YUYYVY) ＝》RGB888

剩下的格式还没有空去做，不过会做一个了另一个就简单多了。剩下的等以后有时间了再做吧！

文章引用自：