Boe bot labirint bo'ylab harakatlanmoqda: 4 qadam
Boe bot labirint bo'ylab harakatlanmoqda: 4 qadam

Mundarija:

Anonim
Boe Bot labirint bo'ylab harakatlanmoqda
Boe Bot labirint bo'ylab harakatlanmoqda

Bu ko'rsatma sizga boe bot uchun bamperlar yaratishga yordam beradi va sizga boe botini labirint orqali o'tadigan kodni beradi.

1 -qadam: Bamperlar uchun materiallar

Bamperlar uchun materiallar
Bamperlar uchun materiallar

Bamperlarni tayyorlash uchun sizga kerak bo'lgan materiallar ro'yxati:

-Karton

-Lenta

-Simlar

-alyuminiy folga

-Rezistorlar

-Velcro

2 -qadam: Materiallardan foydalangan holda bamperlarni qurish

Materiallardan foydalangan holda tamponlar qurish
Materiallardan foydalangan holda tamponlar qurish

Siz birinchi navbatda, kartondan yasalgan qopqoq va karton bo'laklarini bir -biriga yopishtirish uchun ishlatmoqchisiz. Endi kartondan yasalgan qopqoqlarga alyuminiydan yasalgan bo'laklarni yopishtiring. Alyuminiy folga to'rtta bo'lak bo'ladi, ular har tomondan qopqoq ichiga yopishtiriladi. Endi qopqoqlarni elim yordamida karton qoziqqa mahkamlang. Keyin, Velcro yordamida karton stackning orqa tomonini boe botining old qismiga mahkamlang. Nihoyat, musbat va manfiy simlarni qopqog'idagi alyumin folga ulang. Tabriklaymiz, endi bamperlarni tayyorlashni tugatdingiz.

3 -qadam: O'chirish davri

O'chirish davri
O'chirish davri

O'chirish juda sodda va bajarilishi oson. Rasmga qarang va Boe botingizda sxemani yarating.

4 -qadam: Kod

Mana boe botining kodi.

'{$ STAMP BS2}

{$ PBASIC 2.5}

I/U pinlari

Mankaran Kaler

"Mr. Birch" labirintli robot dasturi "Boebotni har qanday labirint orqali aylantirish uchun dastur

'---------- varli ---------

LMotor PIN 14 Rotorli 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 vaqtinchalik do'koni

RunStatus DATA $ 00 o'zgaruvchisi ROMda saqlanadi

'READ RunStatus, temp' O'zgaruvchini ROMdan o'qing

'temp = ~ temp' 0 qiymatini 1 ga yoki 1 ga 0 ga aylantiring 'RunStatus YOZISH, temp' O'zgaruvchini ROMga qaytarib yozish 'IF (temp> 0) THEN END' qiymat 1 bo'lsa, tekshiring

o'ng VAR Word

tez VAR Word '---------- harakatlar --------------- GOSUB ForwardFast DEBUG qiladimi? IN10 IF IN10 = 0 UNDA YUQORI 0 GOSUB Chapga BOShQA LOW 0 ENDIF

Xatolik? IN11

IF IN11 = 0 UNDA YUQORI 1 GOSUB O'ngga BOSHQA 1 LIFI TUZATISH KLASI

Loop

'------------- yo'nalishlar ------------

Chapga burilish:

O'ng uchun = 1 dan 120 gacha LMotor, LRF PULSOUT RMotor, RFF NEXT RETURN

O'ngga burilish:

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

ForwardFast:

Tez = 1 dan 300 PULSOUT LMotor, LFF PULSOUT RMotor, RFF NEXT RETURN