roboforum.ru

Технический форум по робототехнике.

Мой бот №2 (проект Kapanda)

Наше хобби — конструировать и программировать.
Демонстрация готовых роботов и устройств построенных своими руками.

Re: Мой бот №2 (проект Kapanda)

Сообщение EdGull » 20 окт 2009, 23:22

на форуме сайта васика встречал код где они одной строчкой подменяли для RC5 другой таймер (в новых мегах, например Мега644, библа RC5 не работала).
исчи.
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 20 окт 2009, 23:37

Дык, я подменил другой таймер для сервы и неработает :pardon: или с сервами такая фича некатит?
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение EdGull » 21 окт 2009, 07:46

не знаю что там с сервами, я говорю про RC5
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 21 окт 2009, 13:59

Чет немогу найти :sorry:
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 21 окт 2009, 20:53

Вроде как разобрался с прерываниями, научился прерывать по команде с пульта. Только понять немогу, почему, если очень быстро нажать на кнопку на пульте, то не срабатывает та программа, которая должна была сработать?
Проверял фотиком, если очень быстро нажать на кнопку, то диод моргает, так что сигнал поступает :)
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 27 окт 2009, 16:35

Закончил с новыми мозгами, вот что получилась:
12.jpg

Контроллер расчитан на взаимодействие двух МК (мега48 и тинька2313) между собой по 4-м портам. Мега будет ведущей, отвечать за ШИМ двигателей, Rc5, работу АЦП дальномера, при этом по прерыванию на INT1 (PD3) будет обращать внимание на Тиньку, которая в свою очередь будет вертеть сервой и обрабатывать датчики поверхности (тоже по прерываниям). Тинька будет все время следить за результатами АЦП и если есть препядствие, то останавливать серву, как препядствие исчезло - востанавливать вращение с того же положения

Вся рассыпуха выполнена на СМД компонентах и распаяна с обратной стороны платы (для минимизации размеров), так же на плате предусмотрено отключение какого-либо МК от питания (например если нужен будет только один)

Теперь о неприятном:

При загадочных обстоятельствах погибла Тинька, поэтому ее на фотке нема Жду степендию, пойду за новой

Мега48 упорно отказывается работать с пультом Нивкакую не принимая его сигналы. Подумываю о замене 48-ой на 8-ую (опять же затраты )

Прилогаю код, которым пытался работать с Rc5:
Код: Выделить всёРазвернуть
regfile = "m48def.dat" 
$crystal = 16000000                   

$lib "mcsbyte.lbx"                   

Config Rc5 = Pind.2

Enable Timer0

Config Pind.3 = Output : Led1 Alias Portd.3
Config Pind.4 = Output : Led2 Alias Portd.4
Config Pind.5 = Output : Led3 Alias Portd.5
Config Pind.6 = Output : Led4 Alias Portd.6
Config Pind.7 = Output : Led5 Alias Portd.7

Dim Address As Byte , Command As Byte
Enable Interrupts                   

Do

Getrc5(address , Command)
     If Address <> 255 And Command <> 255 Then
      Command = Command And &B01111111
     End If
     If Command = 1 Then
     Set Led1
     Elseif Command = 2 Then
      Set Led2
     Elseif Command = 3 Then
      Set Led3
     Elseif Command = 4 Then
      Set Led4
     Elseif Command = 5 Then
      Set Led5
     Elseif Command = 6 Then
      Reset Led1
     Elseif Command = 7 Then
      Reset Led2
     Elseif Command = 8 Then
     Reset Led3
     Elseif Command = 9 Then
     Reset Led4
     Elseif Command = 10 Then
      Reset Led5
     End If

Loop
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение galex1981 » 27 окт 2009, 16:44

А можно взглянуть на вид платы со стороны дорожек?
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4363
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Мой бот №2 (проект Kapanda)

Сообщение EdGull » 27 окт 2009, 16:46

Для Меги48 надо подменить название таймера.
Я также с мегой644 мучался.
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 27 окт 2009, 20:21

А как подменить? Помоги пожайлуста! Я сайт по баскому читал, ничего на эту тему не нашел, очень прошу! :Rose:

Добавлено спустя 4 минуты 27 секунд:
Фотку чуть по позже выложу, сейчас убегать нужно
Прикрепляю печатку под лут

Сильно не ругайте, моя первая самостоятельно разведенная платка :oops:

Добавлено спустя 2 часа 13 минут 11 секунд:
Эх, емае, разобрался как RC5 повесить на другой таймер и один фиг неработает, походу крякнутый Баском непозволяет работать с Таймером 2 :(
Вложения
Kapanda.rar
(41.74 КиБ) Скачиваний: 33
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 02 ноя 2009, 20:30

Сегодня перепал вот такой аккум (вместе с РУ машинкой):
P1000987.JPG

Подскажите, чем его заряжать :pardon: ума не приложу :sorry:
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение galex1981 » 02 ноя 2009, 22:25

У меня 8 В на 600 мА в таком же корпусе. Зарядка же китайская с этой машинкой идет - ей и заряжай. Или любой другой китайской зарядкой
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4363
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 02 ноя 2009, 22:30

дык, мне перепала только машинка с аккумом, без зарядки и без пульта.
Вопрос в том можно ли его напрямую сетевым адаптером заряжать или же надо схему какую-нибудь городить?
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение EdGull » 02 ноя 2009, 22:33

нельзя, а вот через лампочку можно
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Мой бот №2 (проект Kapanda)

Сообщение pashteet » 02 ноя 2009, 22:41

Извиняюсь за глупый вопрос, лампочку последовательно? Какие параметры должны быть у блока питания?
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: Мой бот №2 (проект Kapanda)

Сообщение EdGull » 02 ноя 2009, 22:47

да последовательно
БП должен выдавать ток не меньше одной десятой тока акб.
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Пред.След.

Вернуться в Наши проекты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4