討論區 › 魔法車應用區 › 紅外線追蹤魔法車

magiccar 發表於 2009-10-5 10:36

紅外線追蹤魔法車

這次的實驗多用了一個正前方紅外線接收器，其用途是在鎖定正前方的目標。
微控器仍然是利基的BASIC Commander，程式仍然非常簡單，所以一下子就搞定了。

Sub MAIN()
　　Dim POWER As Word
　　Dim F_R,F_L As Boolean
　　POWER=500
Do
　　Do While In(9)=0
　　　　go_front(POWER)
　　Loop

　　If In(8)=0 Then
　　　　F_L=1
　　　　Do
   　　　　　go_left(POWER)
　　　　　　If In(9)=0 Then F_L=0
　　　　Loop Until F_L=0
　　End IF

　　If In(10)=0 Then
　　　　F_R=1
　　　　Do
　　　　　　go_right(POWER)
　　　　　　If In(10)=0 Then F_R=0
　　　　Loop Until F_R=0
　　End IF
Loop
End Sub

謝忠成 發表於 2009-10-9 22:30

現在進階班之後還有班嗎？
我畢業了..................................

m_mzxc 發表於 2009-10-25 20:42

我剛好是要把這做科展
想請問這個可以用visual basic 6.0的做嗎?
可以提供程式碼看看嗎?

martin 發表於 2009-10-27 00:43

本帖最後由 martin 於 2009-10-27 00:55 編輯

周老師不是已經把程式碼放上去了嗎？

查看完整版本: 紅外線追蹤魔法車