نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

کد زیر با گرفتن تصاویر سمت راست و چپ تصویر پولاریزه شده ی سه بعدی رو تولید می کنه:

    Function Polarizor(ByVal left As Bitmap, ByVal right As Bitmap) As Bitmap
        If left.Width <> right.Width And left.Height <> right.Height Then Return Nothing
        Dim final As New Bitmap(left.Width, left.Height)
        For j As Integer = 1 To left.Height / 2 - 1
            For i As Integer = 0 To left.Width - 1
                final.SetPixel(i, 2 * j, left.GetPixel(i, 2 * j))
                final.SetPixel(i, 2 * j + 1, right.GetPixel(i, 2 * j + 1))
            Next
        Next
        Return final
    End Function