BASIC Stamp BASIC Stamp 2 DEBUG PULSOUT 13

使用軟體 BASIC Stamp

安裝BASIC Stamp 2、撰寫程式

DEBUG範例

實驗二-機器車行進 前進 PULSOUT 13, 850 PULSOUT 12, 650 左轉 PULSOUT 13, 650 PULSOUT 12, 650 後退 PULSOUT 13, 650 PULSOUT 12, 850 右轉 PULSOUT 13, 850 PULSOUT 12, 850

實驗三-走“口”字 利用實驗二的行進程式，再用FOR…NEXT 迴 圈加入時間即可。 如： DO FOR time = 1 TO 50 PULSOUT 13, 850 PULSOUT 12, 650 PAUSE 10 NEXT FOR time = 1 TO 50 PULSOUT 13, 850 PULSOUT 12, 850 PAUSE 10 NEXT LOOP

實驗四-指令 DO IF (IN 5 = 0) AND (IN 7 = 0) THEN GOSUB Back_Up GOSUB Turn_Left ELSEIF (IN 5 = 0) THEN GOSUB Back_Up GOSUB Turn_Right ELSEIF (IN 7 = 0) THEN GOSUB Back_Up GOSUB Turn_Left ELSE GOSUB Forward_Pulse ENDIF LOOP Forward_Pulse: PULSOUT 13, 850 PULSOUT 12, 650 PAUSE 20 RETURN Turn_Left: FOR pulse. Count = 0 TO 20 PULSOUT 13, 650 PULSOUT 12, 650 PAUSE 20 NEXT RETURN Turn_Right: FOR pulse. Count = 0 TO 20 PULSOUT 13, 850 PULSOUT 12, 850 PAUSE 20 NEXT RETURN Back_Up: FOR pulse. Count = 0 TO 40 PULSOUT 13, 650 PULSOUT 12, 850 PAUSE 20 NEXT RETURN