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

โคดทัดสวิต

' {$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 ก่อนเที่ยง

' {$STAMP BS2sx}'
{$PBASIC 2।5}'
{$PORT COM2}
a VAR Word
c VAR Wordd
VAR WordPAUSE २०००
a = ०
b = ०
c = ०
d = ०
GOSUB forward : PAUSE 1177
GOSUB S_LEFT : PAUSE 199
DO
a = a + 1
GOSUB T_RIGHT : PAUSE 20
GOSUB FORWARD : PAUSE 15
LOOP UNTIL ( a = 75 )
DO
b = b + 1
GOSUB T_left : PAUSE 20
GOSUB FORWARD : PAUSE 15
LOOP UNTIL ( b = 75 )
DO
c = c + 1
GOSUB T_RIGHT : PAUSE 20
GOSUB FORWARD : PAUSE 12
LOOP UNTIL ( c = 85 )
GOSUB forward : PAUSE ११७७
DO
d = d + 1
GOSUB T_RIGHT : PAUSE 15
GOSUB forward : PAUSE 5
LOOP UNTIL ( d = 80 )
GOSUB forward : PAUSE 2350
GOSUB S_RIGHT : PAUSE 350
GOSUB motor_off : PAUSE ५०००
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 : रिटर्न

สั่งให้หุ่นยนต์: ตรงไปแล้วเดินเป็นครึ่งวงกลมไปทางซ้าย , ขวา , ซ้าย แล้วเดินตรงไป50เซนติเมตร
แล้วหมุนตัวกลับมา เดินตรงไปอีก100เซนติเมตร
แล้วหมุนตัวกลับมา
เป็นอันเสร็จสิ้น

1

' {$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main:GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 350GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 300 GOSUB motor_off :PAUSE 2000GOTO Mainforward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURNbackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURNS_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURNS_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURNMotor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN

3

' {$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main:GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 350GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 300 GOSUB motor_off :PAUSE 2000GOTO Mainforward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURNbackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURNS_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURNS_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURNMotor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN