Boe Bot се движи през лабиринт: 4 стъпки

2025 Автор: John Day | [email protected]. Последно модифициран: 2025-01-23 12:57

Тази инструкция ще ви помогне да създадете брони за бота бое и ще ви предостави кода, който ще се движи по бота бои през лабиринта.

Стъпка 1: Материали за брони

Ето списък на материалите, които ще ви трябват за направата на броните:

-Картон

-Лента

-Жици

-Алуминиево фолио

-Резистори

-велкро

Стъпка 2: Изграждане на брони с помощта на материалите

Това, което първо ще искате да направите, е да използвате картоните, да направите клапи и да залепите парчета картон заедно, за да направите купчина. Сега залепете парчета алуминий върху клапите, направени от картон. Ще има четири парчета алуминиево фолио, които ще бъдат залепени вътре в клапаните от всяка страна. Сега прикрепете клапите към картонената купчина с помощта на лепило. След това прикрепете плоската задна страна на картонената купчина към предната част на боте бое, използвайки велкро. Накрая, прикрепете положителните и отрицателните проводници към алуминиевото фолио на клапите. Поздравления, сега приключихте с изработката на броните.

Стъпка 3: Веригата

Веригата е много проста и лесна за изработка. Разгледайте снимката и създайте веригата на вашия Boe бот.

Стъпка 4: Кодът

Ето кода за boe бота.

'{$ STAMP BS2}

'{$ PBASIC 2.5}

'I/O Pins

- Манкаран Калер

„Mr. Birch“Maze robot program “Програма за навигация на boebot през всеки лабиринт

'---------- променливи ---------

LMotor PIN 14 R PIN на мотора 15

loopX VAR Word

LFF CON 850

RFF CON 650 Lstop CON 750 Rstop CON 750 LRF CON 650 RRF CON 850

temp VAR Byte 'временен магазин

RunStatus DATA $ 00 'променлива, съхранявана в ROM

'READ RunStatus, temp' Прочетете променливата от ROM

'temp = ~ temp' обърнете стойността от 0 до 1 или 1 до 0 'WRITE RunStatus, temp' Запишете променливата обратно в ROM 'IF (temp> 0) THEN END' Проверете дали стойността е 1 'ако е така END програмата

дясна VAR Word

бързи VAR Word '---------- действия --------------- GOSUB ForwardFast DEBUG? IN10 IF IN10 = 0 THEN HIGH 0 GOSUB Наляво Завъртете ELSE LOW 0 ENDIF

ДЕБУГ? IN11

IF IN11 = 0 THEN HIGH 1 GOSUB Right Завъртете ELSE LOW 1 ENDIF DEBUG CLS

LOOP

'------------- посоки ------------

Ляв завой:

ЗА дясно = 1 до 120 PULSOUT LMotor, LRF PULSOUT RMotor, RFF СЛЕДВАЩО ВРЪЩАНЕ

Десен завой:

FOR loopX = 1 TO 120 PULSOUT LMotor, LFF PULSOUT RMotor, RRF NEXT RETURN

Напред Бързо:

ЗА бързо = 1 до 300 PULSOUT LMotor, LFF PULSOUT RMotor, RFF СЛЕДВАЩО ВРЪЩАНЕ