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

ตรวจสอบการสะท้อนและไม่สะทอนแสง

' {$STAMP BS2sx}
' {$PBASIC 2.5}
ADC VAR Word
CH VAR Byte
do
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
RD_ADC: LOW 10:PAUSE 2:HIGH 10
SEROUT 10,240,[CH]
SERIN 10,240,250,Error,[ADC.BYTE0,ADC.BYTE1]
RETURN
Error: DEBUG "Error Reading",CR
RETURN
เขียนโดย ที่ 1 ความคิดเห็น:

รีโมท

' {$STAMP BS2sx}
' {$PBASIC 2.5}
key VAR Byte
DO
SERIN 3,2063,[key] 'recive 1200 8n1 on p3
DEBUG key , TAB ' show on debug terminal
LOOP
เขียนโดย ที่ ไม่มีความคิดเห็น:

วันพุธที่ 19 กันยายน พ.ศ. 2550

โจทย์เลเซอร์

ให้ตัวหุ่นยนต์หยุดอยู่ใกล้ผนังมากที่สุดโดยใช้แสงอินฟราเรด
เขียนโดย ที่ ไม่มีความคิดเห็น:

เขาวงกต

PAUSE 1000
Main: GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB right:PAUSE 500
ENDIF
GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB right:PAUSE 500
ENDIF
GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB left:PAUSE 500
ENDIF
GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB right:PAUSE 500
ENDIF
GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB right:PAUSE 500
ENDIF
GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB left:PAUSE 500
ENDIF
GOSUB go
IF(IN1=0)OR(IN6=0)THEN
GOSUB back:PAUSE 150
GOSUB left:PAUSE 500
ENDIF
GOTO Main
go:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
back:HIGH 12:LOW 13:HIGH 14:LOW 15:RETURN
right:LOW 13:LOW 12:HIGH 15:LOW 14:RETURN
left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN
เขียนโดย ที่ ไม่มีความคิดเห็น:

วันพุธที่ 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
เขียนโดย ที่ ไม่มีความคิดเห็น:

วันพุธที่ 4 กรกฎาคม พ.ศ. 2550

ลักษณะการหมุนของหุ่นยนต์


1.เดินเป็นเส้นตรง ------------>ตามความยาวที่เรากำหนด(เท่าไรก็ได้)

2.หมุน(350เป็นค่าที่กำลังดี)

3.วิ่งเป็นเส้นตรงตามเส้นเดิม

4.หมุน

5.เป็นอย่างนี้ไปเรื่อยๆ

เขียนโดย ที่ ไม่มีความคิดเห็น:
ป้ายกำกับ:

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

ประโยชน์ของบล็อกในการเรียน

1.ส่งงานได้รวดเร็ว
2.เก็บข้อมูลไว้ศึกษาทีหลังได้
3.ให้ผู้อื่นศึกษาต่อได้
4.สามารถมีคนเข้ามาแสดงความคิดเห็นความรู้ใหม่ๆได้ด้วย
เขียนโดย ที่ ไม่มีความคิดเห็น:
สมัครสมาชิก: บทความ (Atom)