roboforum.ru

Есть одноименная статья в Вике связанная с миниботом. Сначала думал для чего это нужно: ИК пульт, запоминание команд. Есть несколько идей на этот счет.
1) Научить минибота танцевать.
2) Научить минибота запоминать маршруты движения в квартире
3) Научить минибота запоминать комплексы однотипных движений
4) Придумайте сами.....
В общем разрабатываю программу на основе AVR-DOS, позволяющую удаленно по ИК каналу управлять миниботом и записывать последовательности команд, с возможностью проигрывания их потом.

_________________
if(!Operate) Read(pDatasheet);

Использую версию AVR-DOS, отредактированную MibBiM ом.
Техническое задание:
1) Минибот должен двигаться Вперед/Назад/Вправо/Влево не только командами AVR-DOS но и через кнопки ИК пульта
2) Реализована запись команд в пакетные *.bat файлы
3) Для записи команд искользуется красная кнопка пульта. Процесс записи происходит так: нажимается красная кнопка, затем 2 цифровых, например 1, 2. После этого начинается запись в файл 12.bat
4) Реализована возможность удаления из SD-карты всех пакетных *.bat файлов, путем нажатия на красную кнопку и затем цифровых 0,0
5) После начала записи, подаются с пульта команды: Вперед/Назад/Вправо/Влево/I (Версия AVR-DOS), которые записываются последовательно в выбранный файл
6) Для остановки записи команд следует просто нажать на красную кнопку
7) Для проигрывания *.bat файлов используется зеленая кнопка пульта. Процесс воспроизведения происходит так: нажимается зеленая кнопка, затем 2 цифровых, например 1, 2. После этого начинается проигрывание файла 12.bat

_________________
if(!Operate) Read(pDatasheet);

Собственно программа готова, выкладываю. ИК ТСОП подключен к d3 (обработчик по прерыванию int1)

_________________
if(!Operate) Read(pDatasheet);

Немного доработал программу, сделал, чтоб могла изменяться по ИК пульту скорость врашения двигателей, и соответственно скорость передвижения минибота.
Коды кнопок:
10 - Увеличить скорость
11 - Уменьшить скорость
Для проверки нажимаете на кнопку увеличить скорость, затем на кнопку "Прямо". Результат не заставит себя ждать.
Пробуйте

_________________
if(!Operate) Read(pDatasheet);

добавил воспроизведение вавок 8бит, 8кГц.

вопроизведение работает только если не занят хендл для файла, т.е. если нет записи или проигрывания команд (в новой ветке это ограничение пофиксю)

_________________
Tomorrow will be. Better

добавил команду задержки

_________________
Tomorrow will be. Better