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
但是不知怎樣串接這個程式
麻煩大家幫忙一下
感恩
另外請問一下 延遲 的指令要怎樣下
頁:
[1]