專題板坦克範例程式
專題板坦克範例內容
硬體:專題板+MotorRunnerB+超音波測距模組+蜂鳴器(+LCD顥示器)
軟體:超音波測距+隨機避障+距離調變警笛
**** Hidden Message *****
^^想看看到底坦克現在可以做到哪一種也想了解一下語言
蠻好奇"隨機避障"是捨麼意思的~{:soso_e100:}
對於程式碼更是好奇
jack800417 發表於 2011-11-30 14:56 static/image/common/back.gif
蠻好奇"隨機避障"是捨麼意思的~
對於程式碼更是好奇
因為是個簡單的範例,所以當偵測到前方有障礙物時,向左或向右轉就由隨機亂數來決定~ 參考一下超音波的範例
剛剛使用利基官方的範例無法取得值
只有辦法顯示出distance sweety18 發表於 2012-1-18 17:26 static/image/common/back.gif
參考一下超音波的範例
剛剛使用利基官方的範例無法取得值
只有辦法顯示出distance ...
有極大的可能性是模組的Address DIP開關設定跟範例不一致(下方程式第一行),通常出廠預設值都是0或31,調整方法可參考模組說明書最後一頁。Peripheral mySonar As SonarA @ 0 '設定模組編號為0
Dim Status As Byte '儲存取得的偵測結果狀態
Dim Distance As Word '儲存取得的偵測結果
Sub MAIN()
Do
mySonar.SetFloorLevel(0) '設定離地高度為大於5cm
mySonar.SetRangingTime(63) '設定等待接收時間為63ms
mySonar.SetBurstPower(10) '設定發射強度等級為 10
Do
mySonar.Ranging() '執行重復偵測
Pause 100 '等待100ms
Status= mySonar.GetDistance(1,Distance) '取得偵測結果
Loop Until Status = 1 '迴圈停止條件(Status = 1)
Debug "Distance=",Distance,"cm",CR '顯示偵測結果
Loop
End Sub 謝謝老師解答
超音波OK了的確是dip的問題
我不小心將超音波跟全向輪的輪胎調成同樣的(開關都撥到0)
結果無法辨識,調整之後就OK了
目前正在調整如何讓全向輪直接向左或者向右移動
但是我利用forword只能調整150~255
低於150全向輪力道似乎有點不足無法轉動,請問是否有其他指令可以直接設定馬達轉動距離的呢? sweety18 發表於 2012-1-19 10:46 static/image/common/back.gif
謝謝老師解答
超音波OK了的確是dip的問題
我不小心將超音波跟全向輪的輪胎調成同樣的(開關都撥到0)
全向輪馬達控制部分,請到”模組應用區”建新主題來討論,謝謝! 挖~超厲害的...好好奇歐!!! 謝謝你的分享 我想參考看看~最近也有再用這個!謝謝分享
頁:
[1]