Мазмуну:

Бое Бот лабиринт аркылуу барат: 4 кадам
Бое Бот лабиринт аркылуу барат: 4 кадам

Video: Бое Бот лабиринт аркылуу барат: 4 кадам

Video: Бое Бот лабиринт аркылуу барат: 4 кадам
Video: А у вас есть трипофобия!? 😳 #фобии 2024, Июль
Anonim
Бое Бот лабиринт аркылуу барат
Бое Бот лабиринт аркылуу барат

Бул көрсөтмө бое ботуна бампер түзүүгө жардам берет жана бое лабиринт аркылуу өтүүчү кодду берет.

1 -кадам: Бамперлер үчүн материалдар

Бамперлер үчүн материалдар
Бамперлер үчүн материалдар

Бул жерде бамперлерди жасоо үчүн керектүү болгон материалдардын тизмеси келтирилген:

-Картон

-Тасма

-Зымдар

-Алюминий фольга

-Резисторлор

-Velcro

2 -кадам: Материалдарды колдонуу менен бамперлерди куруу

Материалдарды колдонуу менен бамперлерди куруу
Материалдарды колдонуу менен бамперлерди куруу

Эң биринчи эмне кылгыңыз келет - картонду жапкычтарды жана картондун клей бөлүктөрүн стек кылуу үчүн колдонуу. Эми, картондон жасалган капкактарга алюминийдин ленталары. Алюминий фольгасынын төрт бөлүгү болот, алар ар бир тараптагы жапкычтардын ичине чапталат. Эми желимди колдонуп, капкактарды картон стекке бекиңиз. Андан кийин, Velcro колдонуп бот ботунун алдыңкы жагына картон стектин арткы жагын бекиңиз. Акырында, оң жана терс зымдарды жапкычтардагы алюминий фольгага бекиңиз. Куттуктайбыз, сиз азыр бамперлерди жасап бүттүңүз.

3 -кадам: Circuit

Circuit
Circuit

Район абдан жөнөкөй жана жасалышы оңой. Сүрөттү карап, Boe ботуңуздун схемасын түзүңүз.

4 -кадам: Код

Мына бое боттун коду.

'{$ STAMP BS2}

'{$ PBASIC 2.5}

'I/O Pins

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

'Mr. Birch' лабиринт робот программасы 'Программа боботту каалаган лабиринттен өтүү үчүн

'---------- varibles ---------

LMotor PIN 14 RMotor PIN 15

loopX VAR Word

Зилфатова 850

РФФ 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ге айландырыңыз 'RunStatus ЖАЗЫҢЫЗ, темп' Өзгөрмөнү кайра ROMго жазыңыз 'ЭГЕР (темп> 0) СОНУН соңунда' Мааниси 1 экенин текшериңиз, эгерде программаны БҮТҮРҮҢҮЗ

оң VAR Word

тез VAR Word '---------- иш-аракеттери --------------- GOSUB ForwardFast Debug? IN10 IF IN10 = 0 ОНДО ЖОГОРУ 0 GOSUB LeftTurn БАШКА ТӨМӨН 0 ENDIF

Мүчүлүштүктөрдү жоюу? IN11

IF IN11 = 0 ОШОНДО ЖОГОРУ 1 GOSUB RightTurn БАШКА ТӨМӨН 1 ДЕБУГ CLS

LOOP

'------------- багыттары ------------

LeftTurn:

ҮЧҮН = 1ден 120 PULSOUT LMotor, LRF PULSOUT RMotor, RFF КИЙИНКИ КАЙТУУ

Оңго:

ҮЧҮН loopX = 1 to 120 PULSOUT LMotor, LFF PULSOUT RMotor, RRF NEXT RETURN

ForwardFast:

ҮЧҮН 1 = 300 PULSOUT LMotor, LFF PULSOUT RMotor, RFF NEXT RETURN үчүн

Сунушталууда: