紅外線追蹤魔法車

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

1. Sub MAIN()
   
2. 　　Dim POWER As Word
   
3. 　　Dim F_R,F_L As Boolean
   
4. 　　POWER=500
   
5. Do
   
6. 　　Do While In(9)=0
   
7. 　　　　go_front(POWER)
   
8. 　　Loop
   
9. 
   
10. 　　If In(8)=0 Then
    
11. 　　　　F_L=1
    
12. 　　　　Do
    
13.    　　　　　go_left(POWER)
    
14. 　　　　　　If In(9)=0 Then F_L=0
    
15. 　　　　Loop Until F_L=0
    
16. 　　End IF
    
17. 
    
18. 　　If In(10)=0 Then
    
19. 　　　　F_R=1
    
20. 　　　　Do
    
21. 　　　　　　go_right(POWER)
    
22. 　　　　　　If In(10)=0 Then F_R=0
    
23. 　　　　Loop Until F_R=0
    
24. 　　End IF
    
25. Loop
    
26. End Sub

複製代碼

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

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

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