วันพฤหัสบดีที่ 2 สิงหาคม พ.ศ. 2550

เดินไปข้างหน้าแล้วหมุนขวาเดินไปข้างหน้าแล้วหมุนขวาแล้วหยุด

โจทย์ที่5
' {$STAMP BS2sx}

' {$PBASIC 2.5}
' {$PORT COM1}
PAUSE 1000 main:
GOSUB forward : PAUSE 1000
GOSUB U_turn : PAUSE 298
GOSUB forward : PAUSE 1000
GOSUB U_turn : PAUSE 265
GOSUB motor_stop : PAUSE 10000
GOTO main forward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
U_turn : LOW 13 : HIGH 12 : HIGH 15 : LOW 14 : RETURN
motor_stop : LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN

ไม่มีความคิดเห็น: