' {$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
สมัครสมาชิก:
ส่งความคิดเห็น (Atom)
1 ความคิดเห็น:
Hello. This post is likeable, and your blog is very interesting, congratulations :-). I will add in my blogroll =). If possible gives a last there on my blog, it is about the Home Broker, I hope you enjoy. The address is http://home-broker-brasil.blogspot.com. A hug.
แสดงความคิดเห็น