' ============================================================
' TOF8 八方位雷射測距感應器 EV3 新手範例 02：前方 30 公分停車
' 軟體：clev3r
' 接法：TOF8 八方位雷射插 1 號孔；左輪馬達接 B、右輪馬達接 C
' 這個範例會做什麼：車子往前開，正前方 30 公分（數字 25）以內有東西就停下來。
' 讀值：front＝正前方（第 4、5 顆平均）距離（0 ~ 100（1 格＝1.2 公分，100＝前面沒東西））
' ============================================================
folder "prjs" "MBC_tof8_ex02"

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

' 兩輪往前開
Motor.StartPower("B", 30)
Motor.StartPower("C", 30)
' 等到正前方距離小於 25
While Sensor.ReadRawValue(1, 0) >= 25
  Program.Delay(10)
EndWhile
' 停車
Motor.Stop("BC", "True")
' 嗶一聲
Speaker.Tone(50, 1000, 100)
Speaker.Wait()