Dukdik-chan: สิงหาคม 2007

วันพุธที่ 29 สิงหาคม พ.ศ. 2550

' {$STAMP BS2sx}
' {$PBASIC 2.5}
PAUSE 1000
main : GOSUB forward
IF ( IN1=0 ) OR ( IN6=0 ) THEN
GOSUB backward : PAUSE 1000
GOSUB t_right : PAUSE 500
GOSUB forward: PAUSE 1000
ENDIF
forward :HIGH 15:LOW 14:HIGH 13:LOW 12:RETURN
backward:LOW 15:HIGH 14:LOW 13:HIGH 12:RETURN
t_right:HIGH 15:LOW 14:LOW 13:LOW 12:RETURN

ผลลัพท์-เมื่อสวิตช์ของหุ่นชนผนัง หุ่นจะถอยหลัง แล้วเลี้ยวขวา แล้วเดินต่อไปเรื่อยๆจนกว่าจะชนผนังอีกครั้ง มันก็จะทำเหมือนเดิม

สวิตช์

สวิตช์มีทั้งหมด 2 แบบ คือ
1.กด-ทำงาน ปล่อย-หยุดทำงาน
2.กดครั้งที่1-ทำงาน ครั้งที่2-หยุดทำงาน

วันอาทิตย์ที่ 26 สิงหาคม พ.ศ. 2550

สอบ

' {$STAMP BS2sx}
' {$PBASIC 2.5}
PAUSE 1000
main : GOSUB forward :PAUSE 1500
GOSUB t_left :PAUSE 500
GOSUB forward : PAUSE 500
GOSUB t_right : PAUSE 500
GOSUB forward : PAUSE 1000
GOSUB t_right : PAUSE 500
GOSUB forward : PAUSE 1000
GOSUB t_left : PAUSE 500
GOSUB forward : PAUSE 1000
GOSUB t_left : PAUSE 500
GOSUB forward : PAUSE 1000
GOSUB t_right :PAUSE 500
GOSUB forward : PAUSE 500
GOSUB t_right : PAUSE 550
GOSUB forward :PAUSE 2000
GOSUB t_right :PAUSE 500
GOSUB forward :PAUSE 500
GOSUB t_right :PAUSE 700
GOSUB forward : PAUSE 4000
GOSUB s_right : PAUSE 350
GOSUB forward : PAUSE 150
GOSUB motor_off : PAUSE 10000
forward : HIGH 15: LOW 14 : HIGH 13 : LOW 12 : RETURN
t_left :LOW 15 : LOW 14 : HIGH 13 :LOW 12 : RETURN
t_right :HIGH 15 : LOW 14 :LOW 13 :LOW 12 :RETURN
s_right : HIGH 15 : LOW 14 : LOW 13 : HIGH 12 : RETURN
motor_off :LOW 15 :LOW 14:LOW 13:LOW 12 :RETURN

วันพุธที่ 8 สิงหาคม พ.ศ. 2550

เดินตามแผนผัง

งานที่4

วันเสาร์ที่ 4 สิงหาคม พ.ศ. 2550

เดินไป-โค้ง180องศา-กลับ

PAUSE 1000
Main: GOSUB go :PAUSE 1000
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 1000
GOSUB off :PAUSE 50000
go:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURNoff:LOW 13:LOW 12:LOW 15:LOW 14:RETURN

วันศุกร์ที่ 3 สิงหาคม พ.ศ. 2550

เดินเป็นสามเหลี่ยม

PAUSE 1000
Main: GOSUB left : PAUSE 670
GOSUB go : PAUSE 1000
GOSUB left : PAUSE 660
GOSUB go : PAUSE 1000
GOSUB left :PAUSE 670
GOSUB go :PAUSE 1000
GOSUB off : PAUSE 7000
GOTO Main
left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN
go:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURNoff:LOW 13:LOW 12:LOW 15: LOW 14:RETURN

วันพุธที่ 1 สิงหาคม พ.ศ. 2550

เดินเป็นสี่เหลี่ยม

PAUSE 1000
Main: GOSUB Forward:PAUSE 1000
GOSUB T_Left:PAUSE 500
Forward:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
T_Left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN

เดินไป-กลับแบบหมุนตัว

PAUSE 1000
Main: GOSUB Forward : PAUSE 1200
GOSUB S_Right:PAUSE 1000
GOSUB Forward:PAUSE 1200
GOSUB S_Right:PAUSE 800
GOSUB Motor_OFF:PAUSE 10000
GOTO Main
Forward:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
S_Right:HIGH 15:LOW 14:LOW 13:HIGH 12:RETURN
Motor_OFF:LOW 13:LOW 12:LOW 15:LOW 14:RETURN

เดินไป-กลับ

PAUSE 1000
Main: GOSUB Forward : PAUSE 3000
GOSUB T_Left : PAUSE 1000
GOSUB Motor_OFF : PAUSE 200
GOTO Main
Forward: HIGH 13 : LOW 12 : HIGH 15 :LOW 14 : RETURN
T_Left: HIGH 13 : LOW 12 : LOW 15 : LOW 14 : RETURN
Motor_OFF: LOW 13 : LOW 12 : LOW 15 : LOW 14 :RETURN

วิธีเดินหน้า

PAUSE 1000
Main: GOSUB Forward : PAUSE 1000
GOSUB Motor_OFF: PAUSE 3000
GOTO Main
Forward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
Motor_OFF: LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN