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

senser 5cm

' {$STAMP BS2sx}
' {$PBASIC 2।5}
' {$PORT COM1}
ADC VAR वर्ड
R VAR वर्ड
I VAR ब्य्ते
X VAR वर्ड
PAUSE १०००
HIGH 10
do
GOSUB forward
GOSUB RD_ADC IF ( ADC > 250 ) THEN
GOSUB backward : PAUSE 80
GOSUB motor_off : PAUSE १००००
इंदित
लूप
RD_ADC: LOW 10 : PAUSE 1 : HIGH 10
SEROUT 10,240,[1]
SERIN 10,240,[ADC।BYTE0,adc।BYTE1]
RETURNError: DEBUG "Error Reading" , CR
RETURN
forward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : रिटर्न
backward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : रिटर्न
S_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : रिटर्न
S_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : रिटर्न
T_Right: LOW 13 : LOW 12 : HIGH 15 : LOW 14 : रिटर्न
T_LEFT: HIGH 13 : LOW 12 : LOW 15 : LOW 14 : रिटर्न
Motor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14

วันเสาร์ที่ 8 กันยายน พ.ศ. 2550


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

โคดทัดสวิต

' {$STAMP BS2sx}'
{$PBASIC 2।5}'
{$PORT COM1}
PAUSE २०००
GOSUB फोरवर्ड
GOSUB इडागोसुब
backward : PAUSE ४००
GOSUB S_LEFT : PAUSE १९०
GOSUB आईडिया
GOSUB backward : PAUSE ४००
GOSUB S_LEFT : PAUSE १९०
GOSUB ideaGOSUB backward : PAUSE 400GOSUB S_right : PAUSE १९०
GOSUB ideaGOSUB backward : PAUSE 400GOSUB S_left : PAUSE १९०
GOSUB ideaGOSUB backward : PAUSE 400GOSUB S_left : PAUSE १९०
GOSUB ideaGOSUB backward : PAUSE 400GOSUB S_right : PAUSE १९०
GOSUB ideaGOSUB backward : PAUSE ४००
GOSUB S_right : PAUSE 190GOSUB ideaENDफोरवर्ड
: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : रिटर्न
backward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : रिटर्न
S_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : रिटर्न
S_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : रिटर्न
T_Right: LOW 13 : LOW 12 : HIGH 15 : LOW 14 : रिटर्न
T_LEFT: HIGH 13 : LOW 12 : LOW 15 : LOW 14 : रिटर्न
Motor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : रिटर्न
idea:GOSUB फोरवर्ड
DOLOOP UNTIL ( IN1 = 0 ) OR ( IN6 = 0 )RETURN

เขียนโดย पतारापुंที่ 7:12 ก่อนเที่ยง