練習 1 :取得紅外線感測值

    將紅外線訊號由PIN8、PIN9、PIN10接收將訊號整合於一個變數中
    後,顯示於終端視窗中。並且暸解感測物件與結果的關係。
 
 程式說明:
 

'全堿變數宣告 

Dim bIR8,bIR9,bIR10 As Byte  ' 儲存紅外線感測值

Dim bSensor As Byte        ' 儲存紅外線感測值總合

Sub Main()  '主程式區塊
 

  '無窮迴圈,反覆偵測紅外線感測值。 

  Do 

      bIR8  = In(8)  ' 讀取紅外線感測器回傳值,存放於bIR8中。

      bIR9  = In(9)  ' 讀取紅外線感測器回傳值,存放於bIR9中。

      bIR10 = In(10)  ' 讀取紅外線感測器回傳值,存放於bIR10中。

      '將偵測到的值拼為一個判斷值 

      bSensor = (100 * bIR8) + (10 * bIR9) + bIR10

      '將偵測結果顯示於終端視窗

      Debug CSRXY(1,1),"IRScan : ",bSensor,CLREOL 

  Loop

 

End Sub

 

 
 補充說明:
 
      由於使用有三個紅外線感測的輸入,為了方便日後處理資料而將
      它們整合於一個變數中。
Comments