วันศุกร์ที่ 9 พฤศจิกายน พ.ศ. 2550

กิจกรรม1

' {$STAMP BS2sx}
' {$PBASIC 2.5}
ADC VAR WordCH VAR Byte
CNT VAR Byte
CNT = 0PAUSE 1000
HIGH 15 : LOW 14 : HIGH 13 : LOW 12
DO
CH = 3 : GOSUB RD_ADC
IF ADC < 100 THENDOCH = 3 : GOSUB RD_ADC
LOOP UNTIL(ADC > 100)CNT = CNT + 1
ENDIF
CH = 5
PAUSE 300
GOSUB One_blockCNT=0
GOSUB One_ntCNT=0
GOSUB One_blockCNT=0
GOSUB One_ntCNT=0
GOSUB One_ntCNT=0
GOSUB One_blockCNT=0G
OSUB One_ntrvCNT=0
GOSUB One_block
END
RD_ADC: LOW 10 : PAUSE 2 : HIGH 10SEROUT 10,240,[CH]SERIN 10,240,250,
Error,[ADC.BYTE0,ADC.BYTE1]RETURNError: DEBUG "Error reading", CR
RETURN
One_block:DO LOOP UNTIL(CNT > 11)
LOW 15 : HIGH 14 : LOW 13 : HIGH 12
PAUSE 100
LOW 15 : LOW 14 : LOW 13 : LOW 12STOP :RETURN
One_nt:DO LOOP UNTIL(CNT > 3)
LOW 15 : LOW 14 : LOW 13 : HIGH 12
PAUSE 100..LOW 15 : LOW 14 : LOW 13 : LOW 12STOP :RETURN
One_ntrv:DO LOOP UNTIL(CNT > 3)
LOW 15 : HIGH 14 : LOW 13 : LOW 12PAUSE 100LOW 15 : LOW 14 : LOW 13 : LOW 12STOP :RETURN
เขียนโดย ที่ ไม่มีความคิดเห็น:

วันพุธที่ 7 พฤศจิกายน พ.ศ. 2550

izebot

' {$STAMP BS2sx}
' {$PBASIC 2.5}
ADC VAR Word
CH VAR ByteDO
CH = 3
GOSUB RD_ADC DEBUG CLS, "LEFT SENSOR = ", DEC ADC, TAB
CH = 5
GOSUB RD_ADC
DEBUG "RIGHT SENSOR = ", DEC ADC, TAB
PAUSE 300
LOOP
'+++++ Analog TO Digital Converter Procedure +++++++++
RD_ADC: LOW 1 : PAUSE 2: HIGH 10
SEROUT 10,240,[CH]
SERIN 10,240,25,Error, [ADC.BYTE0,ADC.BYTE1]
RETURN
Error: DEBUG "Error Reading:, CR
RETURN
เขียนโดย ที่ ไม่มีความคิดเห็น:

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

lv[

' {$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
เขียนโดย ที่ ไม่มีความคิดเห็น:

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

โจทย์ที่ เป็น u turn

' {$STAMP BS2sx}
'{$PBASIC 2.5}
'{$PORT COM2}
PAUSE 1000
Main: GOSUB go :PAUSE 1000
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE1000
GOSUB off :PAUSE 50000
go:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN
off:LOW 13:LOW 12:LOW 15:LOW 14:RETURN
เขียนโดย ที่ ไม่มีความคิดเห็น:

โจทย์ triangle

' {$STAMP BS2sx}
'{$PBASIC 2.5}
'{$PORT COM2}
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:RETURN
off:LOW 13:LOW 12:LOW15: LOW 14:RETURN
เขียนโดย ที่ ไม่มีความคิดเห็น:

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

โจทย์ที่ 1

pause 1000
main: gosub forward : pause 1200
gosub s_right : pause 1000
gosub foward : pause 1200
gosub s_right : pause 800
gosub motor_off : pause 10000
forward : high 15 : low 14 : high 13 : low 12 : return
s_right : high 15 : low 14 : low 13 : high 12 : return
motor_off : low 15 : low 14 : low13 : low 12 : return
เขียนโดย ที่ ไม่มีความคิดเห็น:

วันพุธที่ 27 มิถุนายน พ.ศ. 2550

ประโยชน์ของการสร้างบล้อก

ประโยชน์ของการบล้อก
1.เพื่อใช้ในการศึกษาในวิชาออกแบบโปรแกมหุ่นยนต์และเข้า
บล้อกอื่นเพื่อสอบถามวิธีแก้ปัญหา
เขียนโดย ที่ ไม่มีความคิดเห็น:
สมัครสมาชิก: บทความ (Atom)