Robofun 機器人論壇

標題: basic 程式組合 [打印本頁]

作者: davidex99 時間: 2009-5-11 22:00
標題: basic 程式組合
本帖最後由 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
但是不知怎樣串接這個程式
麻煩大家幫忙一下
感恩

另外請問一下延遲的指令要怎樣下

歡迎光臨 Robofun 機器人論壇 (https://robofun.net/forum/)