|
請問一下大大,關於這個顏色感測器網站上面所提供的範例程式
http://www.innovati.com.tw/websi ... orRGB_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寫嗎
if g_wC=X, g_wR=X, g_wG=X then
夾子轉動
是這樣麻?
|
|