Peripheral mySonar As SonarA @ 0 '設定模組編號為0 Dim Status As Byte '儲存取得的偵測結果狀態 Dim Distance As Word '儲存取得的偵測結果 Sub MAIN() mySonar.SetFloorLevel(0) '設定離地高度為大於5cm mySonar.SetRangingTime(63) '設定等待接收時間為63ms mySonar.SetRepeatTime(20) '設定重複偵測週期為200ms mySonar.SetRepeatCount(0) '設定重複偵測次數為 0 (無限次) mySonar.SetBurstPower(10) '設定發射強度等級為 10 Debug "Distance=" mySonar.RepeatRanging() '執行重復偵測 mySonar.EnableRangingFinishEvent() '啟動發射接收完成事件 Do '無窮迴圈 Loop ' End Sub Event mySonar.RangingFinishEvent() Status= mySonar.GetDistance(1,Distance) '取得偵測結果 Debug CSRXY(10,1),CLREOS,Distance," CM",CR '顯示偵測結果 End Event