Boe Bot navigiert durch ein Labyrinth - Gunook

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:15

Dieses anweisbare hilft Ihnen beim Erstellen von Stoßfängern für den Boe-Bot und liefert Ihnen den Code, der den Boe-Bot durch das Labyrinth navigiert.

Schritt 1: Materialien für die Stoßfänger

Hier ist eine Liste der Materialien, die Sie benötigen, um die Stoßfänger herzustellen:

-Karton

-Band

-Drähte

-Aluminiumfolie

-Widerstände

-Klettverschluss

Schritt 2: Aufbau der Stoßfänger mit den Materialien

Was Sie zuerst tun möchten, ist, die Kartonklappen zu verwenden und Kartonstücke zu einem Stapel zusammenzukleben. Kleben Sie nun Aluminiumstücke auf die Klappen aus Pappe. Es gibt vier Stücke Aluminiumfolie, die auf jeder Seite in die Klappen geklebt werden. Befestigen Sie nun die Klappen mit Klebstoff am Kartonstapel. Als nächstes befestigen Sie die flache Rückseite des Kartonstapels mit Klettverschluss an der Vorderseite des Boe Bot. Befestigen Sie schließlich die positiven und negativen Drähte an der Aluminiumfolie an den Klappen. Herzlichen Glückwunsch, Sie sind jetzt mit der Herstellung der Stoßfänger fertig.

Schritt 3: Die Schaltung

Die Schaltung ist sehr einfach und leicht zu machen. Schauen Sie sich das Bild an und erstellen Sie die Schaltung auf Ihrem Boe-Bot.

Schritt 4: Der Code

Hier ist der Code für den Boe-Bot.

' {$STEMPEL BS2}

' {$PBASIC 2.5}

'I/O-Pins

'Mankaran Kaler

'Mr. Birch 'Labyrinth-Roboterprogramm 'Programm, um den Boebot durch jedes Labyrinth zu navigieren

'---------Variablen---------

LMotor PIN 14 RMotor PIN 15

loopX VAR-Wort

LFF CON 850

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

temp VAR Byte 'Zwischenspeicher

RunStatus DATA $00 'Variable im ROM gespeichert

'READ RunStatus, temp 'Variable aus ROM lesen

'temp = ~temp 'den Wert 0 auf 1 oder 1 auf 0 invertieren 'WRITE RunStatus, temp 'Schreibe die Variable zurück ins ROM 'IF (temp>0) THEN END 'Prüfe ob der Wert 1 ist 'wenn ja ENDE das Programm

richtiges VAR-Wort

fast VAR Word '----------Aktionen-------------- DO GOSUB ForwardFast DEBUG? IN10 IF IN10=0 THEN HIGH 0 GOSUB LeftTurn ELSE LOW 0 ENDIF

DEBUG ? IN11

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

SCHLEIFE

'-------------Richtungen------------

Links abbiegen:

FOR rechts = 1 BIS 120 PULSOUT LMotor, LRF PULSOUT RMotor, RFF NEXT RETURN

Rechtskurve:

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

VorwärtsSchnell:

FOR fast = 1 TO 300 PULSOUT LMotor, LFF PULSOUT RMotor, RFF NEXT RETURN