Robofun 機器人論壇

 找回密碼
 申請會員
搜索
熱搜: 活動 交友 discuz
查看: 3914|回復: 0

basic 程式組合

[複製鏈接]
發表於 2009-5-11 22:00:32 | 顯示全部樓層 |閱讀模式
本帖最後由 davidex99 於 2009-5-12 00:28 編輯

' -----[ Variables ]----------------------------------------------------------
pulseCount VAR Byte ' FOR...NEXT loop counter.
' -----[ Initialization ]-----------------------------------------------------
FREQOUT 4, 2000, 3000 ' Start/restart signal.
' -----[ Main Routine ]-------------------------------------------------------
DO
IF (IN6 = 0) AND (IN3 = 0) THEN
GOSUB Back
GOSUB Turn_Left
ELSEIF (IN6 = 0) THEN
GOSUB Back
GOSUB Turn_Left
ELSEIF (IN3 = 0) THEN
GOSUB Back
GOSUB Turn_Left
ELSE ' Neither photor
GOSUB Turn_Left
ENDIF
LOOP
' -----[ Subroutines ]--------------------------------------------------------
back :
PULSOUT 12,850
PULSOUT 13,850
PAUSE 20
RETURN
Turn_Left:
FOR pulseCount = 0 TO 20
PULSOUT 12, 650
PULSOUT 13, 650
PAUSE 20
NEXT
RETURN


------------------------------
以上為小弟目前的程式
小弟想再這裡面加一個
當接收到 IN 6 和 IN 3 訊號後
執行 back
然後接收到 IN 5=0 時執行 Turn_Left
但是不知怎樣串接這個程式
麻煩大家幫忙一下
感恩

另外請問一下 延遲 的指令要怎樣下
您需要登錄後才可以回帖 登錄 | 申請會員

本版積分規則

小黑屋|手機版|Archiver|機器人論壇 from 2005.07

GMT+8, 2024-3-29 03:18 , Processed in 0.238049 second(s), 7 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表