標題: 怎樣把2個程式合做1個而且可以正常運作 [打印本頁] 作者: timho0116 時間: 2009-5-16 16:31 標題: 怎樣把2個程式合做1個而且可以正常運作 第一個程式:
' {$STAMP BS2}
' {$PBASIC 2.5}
DIRA = 0
DIRB = 15
DIRC = 15
DIRD = 15
OUTC = 0
c CON 300*10
d CON 500*10
e CON 600*10
KEYIN VAR Byte
DEBUG "Input a number (1 to 4)",CR
MAIN:
keyin=0
SERIN 16,16468,100,NoDATA,[KEYIN]
IF KEYIN="1" THEN FORWARD
IF KEYIN="2" THEN BACKWARD
GOTO MAIN
FORWARD:
OUTC=%1111
PAUSE 20
OUTC=0
PAUSE 50
RETURN
BACKWARD:
OUTC=%0101
PAUSE 20
OUTC=0
PAUSE 70
RETURN
第2個程式:
'{$STAMP BS2}
'{$PBASIC 2.5}
c CON 300*10
d CON 500*10
e CON 600*10
DIRA = %0000
DIRB = %1111
DIRC = %1111
DIRD = %1111
OUTC = 0
Ping PIN 12
cm VAR Word
rawDist VAR Word ' raw measurement
Trigger CON 5 ' for BS2 trigger pulse = 10 uS
Scale CON $200 ' raw x 2.00 = uS
RawToCm CON 2257 ' 1 / 29.034 (with **)
DO
GOSUB Get_Sonar ' get sensor value
cm = rawDist ** RawToCm ' convert to centimeters
DEBUG HOME,CLS,"Measure Distance is ",DEC cm ," cm",CR
PAUSE 300
IF cm <15 THEN
FREQOUT 15,150,c,c*2
FREQOUT 15,150,d,d*2
FREQOUT 15,150,e,e*2
ELSEIF cm >15 THEN
OUT15 = 0
ENDIF