' {$STAMP BS2sx}
' {$PBASIC 2.5}
ADC VAR Word
R VAR Word
I VAR Word
X VAR Word
PAUSE 1000
HIGH 10
GOSUB pim
GOSUB RD_ADC
IF (ADC > 50) THEN
GOSUB Motor_OFF
ENDIF
RD_ADC: LOW 10 : PAUSE 2: HIGH 10
SEROUT 10,240, [1]
SERIN 10,240,250,Error, [ADC.BYTE0,ADC.BYTE1]
RETURN
Error: DEBUG "Error Reading",CR
RETURN
pim: HIGH 13: LOW 12 : HIGH 15 : LOW 14 : RETURN
Backward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURN
Motor_OFF: LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN
นี้คือโค้ดของหัวข้อเราน่ะครับ
เราจะมีการเเข่งกันให้หุ่นยนต์ของพวกเราวิ่งเข้าหากำเเพงเเล้วหยุด ใครใกล้ที่สุดก็เอาไปเรย 100%
สมัครสมาชิก:
ส่งความคิดเห็น (Atom)
ไม่มีความคิดเห็น:
แสดงความคิดเห็น