' ============================================================
' TOF8 八方位雷射測距感應器 EV3 新手範例 03：一次看 8 個方向的距離
' 軟體：clev3r
' 接法：TOF8 八方位雷射插 1 號孔；左輪馬達接 B、右輪馬達接 C
' 這個範例會做什麼：模式 1 會一次送出 8 顆雷射各自的距離。這個範例把 8 個數字都顯示在螢幕上，拿手在四周晃一晃，就知道每顆雷射對應哪個方向。
' 讀值：d1＝第 1 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d2＝第 2 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d3＝第 3 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d4＝第 4 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d5＝第 5 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d6＝第 6 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d7＝第 7 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））；d8＝第 8 顆雷射的距離（0 ~ 100（1 格＝1.2 公分））
' ============================================================
folder "prjs" "MBC_tof8_ex03"

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

' 清除螢幕
LCD.Clear()
' 一直重複
While "True"
  ' 第 1 行顯示第 1 顆雷射的距離
  LCD.Text(1, 0, 0, 1, "D1 " + Sensor.ReadRawValue(1, 0) + "      ")
  ' 第 2 行顯示第 2 顆雷射的距離
  LCD.Text(1, 0, 16, 1, "D2 " + Sensor.ReadRawValue(1, 1) + "      ")
  ' 第 3 行顯示第 3 顆雷射的距離
  LCD.Text(1, 0, 32, 1, "D3 " + Sensor.ReadRawValue(1, 2) + "      ")
  ' 第 4 行顯示第 4 顆雷射的距離
  LCD.Text(1, 0, 48, 1, "D4 " + Sensor.ReadRawValue(1, 3) + "      ")
  ' 第 5 行顯示第 5 顆雷射的距離
  LCD.Text(1, 0, 64, 1, "D5 " + Sensor.ReadRawValue(1, 4) + "      ")
  ' 第 6 行顯示第 6 顆雷射的距離
  LCD.Text(1, 0, 80, 1, "D6 " + Sensor.ReadRawValue(1, 5) + "      ")
  ' 第 7 行顯示第 7 顆雷射的距離
  LCD.Text(1, 0, 96, 1, "D7 " + Sensor.ReadRawValue(1, 6) + "      ")
  ' 第 8 行顯示第 8 顆雷射的距離
  LCD.Text(1, 0, 112, 1, "D8 " + Sensor.ReadRawValue(1, 7) + "      ")
  ' 等 0.1 秒
  Program.Delay(100)
EndWhile