VB - Color Identification

http://4rdp.blogspot.com/2009/05/vb-color-identification.html?m=0

顏色識別是這個程式另一個技術瓶頸，在網路上找到藍色小舖所提供的方法比較簡單，它提供全螢幕抓點，共有兩項技術要點：螢幕座標計算以及顏色判別。

首先，如何計算螢幕上特定位置座標？
網路上沒有適當的範例說明這個螢幕抓點方法，所以我想了很久想出這個座標計算法來解決。



螢幕座標的原點在左上角，橫向 X 軸由左而右，縱向 Y 軸由上而下，程式視窗座標也一樣，這裡提供的範例是擷取 WebCam 畫面正中央的點，座標的單位為像素 pixel，

X = X1 + X2 + X3
Y = Y1 + Y2 + Y3

(X1,Y1) 螢幕到程式視窗 = (Me.Location.X , Me.Location.Y)
(X2,Y2) 程式視窗到影像視窗 = (PictureBox1.Location.X , PictureBox1.Location.Y)
(X3,Y3) 影像視窗到影像中央 = (PictureBox1.Size.Width / 2 , PictureBox1.Size.Height / 2)

電腦螢幕顯示顏色原理，就是利用紅綠藍 (RGB) 三光混色，每一種原色數值範圍在 0 ~ 255 (8 bites)。現在就是設計出程式以偵測畫面上中央圖點顏色數值，再判別出魔術方塊六種顏色。依據我測試的結果，WebCam 距離魔術方塊約二十公分距離較佳，如果兩者距離太近影像有白化情形，也就是黃色與橘色會變成白色，因為較淺顏色會因反光較強而讓顏色難以識別。

我的程式判別顏色的方法，採用先確認主色，再比較其它副色差異，
紅主色包含 紅、黃、橙三色
綠主色只有 綠色
藍主色含有 藍、白兩色
其它情形則 黃、白或是無法識別

採用這方法的原因，主要為降低受環境光源影響，不論外部光線或強或弱，大部分情形應該可以正確判別，聰明的讀者也可以再改良它或是自創其它方式判斷，下面程式是我用的方法：

        If colorR > colorB And colorR > colorG Then
            If colorB >= colorG Or colorG ＜ 60 Then
                Label3.Text = "Red"
            ElseIf colorR - colorG ＜ colorG - colorB Then
                Label3.Text = "Yellow"
            Else
                Label3.Text = "Orange"
            End If
        ElseIf colorG > colorR And colorG > colorB Then
            Label3.Text = "Green"
        ElseIf colorB > colorR And colorB > colorG Then
            If colorR > 70 Then
                If colorB > colorR + 50 Then
                    Label3.Text = "Blue"
                Else
                    Label3.Text = "White"
                End If
            Else
                Label3.Text = "Blue"
            End If
        Else
            If colorR = 255 And colorG = 255 Then
                Label3.Text = "Yellow"
            ElseIf colorG = 255 And colorB = 255 Then
                Label3.Text = "White"
            Else
                Label3.Text = "Unknow"
            End If
        End If
 

另外這 VB 程式有加入 Timer，每 0.1 秒會產生中斷，可配合影像擷取自動判斷顏色，研發養成所線上論壇放有範例程式，有興趣的人請加入群組會員下載。(原連結已遺失)