專題板坦克範例程式

專題板坦克

範例內容
硬體：專題板＋MotorRunnerB＋超音波測距模組＋蜂鳴器（＋LCD顥示器）
軟體：超音波測距＋隨機避障＋距離調變警笛

遊客，如果您要查看本帖隱藏內容請回復

^^  想看看到底坦克現在可以做到哪一種  也想了解一下語言

蠻好奇"隨機避障"是捨麼意思的~{:soso_e100:}
對於程式碼更是好奇

jack800417 發表於 2011-11-30 14:56
蠻好奇"隨機避障"是捨麼意思的~
對於程式碼更是好奇

因為是個簡單的範例，所以當偵測到前方有障礙物時，向左或向右轉就由隨機亂數來決定～

參考一下超音波的範例
剛剛使用利基官方的範例無法取得值
只有辦法顯示出distance

sweety18 發表於 2012-1-18 17:26
參考一下超音波的範例
剛剛使用利基官方的範例無法取得值
只有辦法顯示出distance ...

有極大的可能性是模組的Address DIP開關設定跟範例不一致（下方程式第一行），通常出廠預設值都是0或31，調整方法可參考模組說明書最後一頁。

1. Peripheral mySonar As SonarA @ 0                '設定模組編號為0
   
2. 
   
3. Dim Status As Byte                                      '儲存取得的偵測結果狀態
   
4. Dim Distance As Word                                        '儲存取得的偵測結果
   
5. Sub MAIN()                                                        
   
6. Do
   
7. mySonar.SetFloorLevel(0)                                '設定離地高度為大於5cm
   
8. mySonar.SetRangingTime(63)                        '設定等待接收時間為63ms        
   
9. mySonar.SetBurstPower(10)                                '設定發射強度等級為 10
   
10. Do
    
11.         mySonar.Ranging()                                '執行重復偵測        
    
12.         Pause 100                                                '等待100ms
    
13.         Status= mySonar.GetDistance(1,Distance)        '取得偵測結果
    
14. Loop Until Status = 1                                        '迴圈停止條件(Status = 1)
    
15.         Debug "Distance=",Distance,"cm",CR        '顯示偵測結果
    
16.         Loop        
    
17. End Sub        

複製代碼

謝謝老師解答
超音波OK了的確是dip的問題
我不小心將超音波跟全向輪的輪胎調成同樣的(開關都撥到0)
結果無法辨識，調整之後就OK了

目前正在調整如何讓全向輪直接向左或者向右移動
但是我利用forword只能調整150~255
低於150全向輪力道似乎有點不足無法轉動，請問是否有其他指令可以直接設定馬達轉動距離的呢?

sweety18 發表於 2012-1-19 10:46
謝謝老師解答
超音波OK了的確是dip的問題
我不小心將超音波跟全向輪的輪胎調成同樣的(開關都撥到0)

全向輪馬達控制部分，請到”模組應用區”建新主題來討論，謝謝！

挖~超厲害的...好好奇歐!!!

謝謝你的分享

我想參考看看~最近也有再用這個!謝謝分享