jack800417 發表於 2011-10-4 17:33

關於 顏色感測模組 - Color RGB 程式問題

請問一下大大,關於這個顏色感測器網站上面所提供的範例程式
http://www.innovati.com.tw/website/down/html/download/ColorRGB_V2.0_0908.pdf

Peripheral myC As ColorRGB @ 0 ' 設定模組編號為0
Dim g_wC, g_wR, g_wG, g_wB As Word ' 設定感測值儲存參數
Sub Main()
Dim bStatus As Byte ' 設
.......
........
CSRXY(4, 1), %DEC5R g_wC ' 顯示全光量
Debug CSRXY(4, 2), %DEC5R g_wR ' 顯示紅光量
Debug CSRXY(4, 3), %DEC5R g_wG ' 顯示綠光量
Debug CSRXY(4, 4), %DEC5R g_wB ' 顯示藍光量
Loop
End Sub
Event myC.ValReadyEvent()
myC.GetClear(g_wC) ' 取得全光量
myC.GetRed(g_wR) ' 取得紅光量
myC.GetGreen(g_wG) ' 取得綠光量
myC.GetBlue(g_wB) ' 取得藍光量
myC.StartMeasure() ' 開始量測顏色值
End Event
這個功能是不是先把紅藍綠三色各亮一次後,再去抓取色值?
如果我想把抓到的數值,做條件判斷的動作

是用if寫嗎
ifg_wC=X, g_wR=X, g_wG=X then
夾子轉動

是這樣麻?

magiccar 發表於 2011-10-5 15:52

這樣也可以,但太占系統資源了。因為利基的模組本身都有單晶片
可以自行運算、記憶及比對,因此你可以命令模組記憶所看到的顏
色,並給予編號。在偵測時,模組會幫你比對,並找出同顏色的編
號,這樣程式就會簡化許多,試試看。
頁: [1]
查看完整版本: 關於 顏色感測模組 - Color RGB 程式問題