Boe Bot navega per un laberint: 4 passos

2025 Autora: John Day | [email protected]. Última modificació: 2025-01-23 14:37

Aquesta instrucció us ajudarà a crear para-xocs per al boe bot i us proporcionarà el codi que navegarà pel boe bot pel laberint.

Pas 1: materials per als para-xocs

Aquí teniu una llista dels materials que necessiteu per fabricar els para-xocs:

-Cartó

-Cinta

-Cables

-Paper d'alumini

-Resistors

-Velcro

Pas 2: Construir els para-xocs amb els materials

El que voldreu fer primer és utilitzar el cartró per fer solapes i enganxar trossos de cartró junts per formar una pila. Ara, cintes d’alumini a les solapes de cartró. Hi haurà quatre peces de paper d'alumini que quedaran gravades a l'interior de les solapes de cada costat. Ara poseu les solapes a la pila de cartró amb cola. A continuació, fixeu la part posterior plana de la pila de cartró a la part frontal del bot boe amb velcro. Finalment, fixeu els cables positius i negatius al paper d'alumini de les solapes. Enhorabona, ara heu acabat de fabricar els para-xocs.

Pas 3: el circuit

El circuit és molt senzill i fàcil de fer. Mireu la imatge i creeu el circuit al vostre bot Boe.

Pas 4: el codi

Aquí teniu el codi del boe bot.

{$ STAMP BS2}

{$ PBASIC 2.5}

'Pins d'E / S

Mankaran Kaler

Programa "Mr. Birch" Maze robot "Programa per navegar pel boebot a través de qualsevol laberint

'---------- Variables ---------

LMotor PIN 14 RMotor PIN 15

loopX VAR Word

LFF CON 850

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

botiga temporal VAR Byte 'temp

Variable RunStatus DATA $ 00 'emmagatzemada a la ROM

'LLEGEIX RunStatus, temp' Llegeix la variable des de la ROM

'temp = ~ temp' inverteix el valor 0 a 1 o 1 a 0 'ESCRIU RunStatus, temp' Torna a escriure la variable a ROM 'SI (temp> 0) DESPRÉS ACABA' Comprova si el valor és 1 'si és així ACABA el programa

dret VAR Word

VAR Word ràpid ---------- accions --------------- GOSUB ForwardFast DEBUG? IN10 SI IN10 = 0 DESPRÉS ALT 0 GOSUB Esquerra Girar ALTRES BAIX 0 ENDIF

DEBUG? IN11

IF IN11 = 0 THEN HIGH 1 GOSUB RightTurn ELSE BAIX 1 ENDIF DEBUG CLS

LOOP

'------------- direccions ------------

Gir a l'esquerra:

PER a la dreta = 1 a 120 PULSOUT LMotor, LRF PULSOUT RMotor, RFF PROPERA TORNADA

Gir a la dreta:

PER bucleX = 1 A 120 PULSOUT LMotor, LFF PULSOUT RMotor, RRF PROPERA TORNADA

ForwardFast:

PER RÀPID = 1 A 300 PULSOUT LMotor, LFF PULSOUT RMotor, RFF PROPER RETORN