' ============================================================
' TOF8 八方位雷射測距感應器 EV3 新手範例 06：最近的東西在哪、幾公釐
' 軟體：clev3r
' 接法：TOF8 八方位雷射插 1 號孔；左輪馬達接 B、右輪馬達接 C
' 這個範例會做什麼：模式 5 一次給兩個數字：最近的東西有幾公釐、在哪個方向（-7~+7）。比模式 2 的 1.2 公分一格準 12 倍。這個範例把兩個數字顯示在螢幕上，東西靠到 15 公分內就嗶一聲。
' 讀值：nearMm＝最近的東西有多遠（公釐）（0 ~ 1200 mm）；nearDir5＝最近的東西在哪個方向（-7 ~ +7（負＝左、正＝右、0 附近＝正前方；±8＝沒有東西））
' ============================================================
folder "prjs" "MBC_tof8_ex06"

' TOF8 八方位雷射插 1 號孔，使用模式 5
Sensor.SetMode(1, 5)
LCD.Clear()

' 清除螢幕
LCD.Clear()
' 一直重複
While "True"
  ' 第 1 行顯示最近的東西有幾公釐
  LCD.Text(1, 0, 0, 1, "NEARMM " + Sensor.ReadRawValue(1, 0) + "      ")
  ' 第 2 行顯示它在哪個方向（負＝左、正＝右、0＝正前方）
  LCD.Text(1, 0, 16, 1, "DIR " + Sensor.ReadRawValue(1, 1) + "      ")
  ' 如果最近的東西不到 150 公釐（15 公分）
  If Sensor.ReadRawValue(1, 0) < 150 Then
    ' 不到 15 公分：嗶一聲
    Speaker.Tone(50, 1000, 100)
    Speaker.Wait()
  EndIf
  ' 等 0.1 秒
  Program.Delay(100)
EndWhile