Технический форум по робототехнике.
MiBBiM » 26 май 2009, 20:51
Эд, у нас программатор уже uart трансфер поддерживает?
Добавлено спустя 2 минуты 3 секунды:Ven-Tures, обясни, как не работает? программа выводит одну строку и виснет наглухо. скорее всего ты её просто пропускаешь(всмысле не успеваешь поднять связь в терминале). попробуй такую прожку:
- Код: Выделить всё • Развернуть
$prog &HFF , &HE4 , &HD9 , &H00 'указываем какие фусибиты надо прошить
$regfile = "m32def.dat" ' файл спецификации Меги32
$crystal = 7372800 ' указываем на какой частоте будем работать
$baud = 2400 ' указываем скорость на которой будет работать уарт
'----------------------------------------------------------------------------
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinc.2 = Output : Drl Alias Portc.2 'ногу сконфигурировали как выход и обозвали Drl
Config Pinc.3 = Output : Drr Alias Portc.3 'ногу сконфигурировали как выход и обозвали Drr
Config Pind.4 = Output 'ногу ШИМа левого движка сконфигурировали как выход
Config Pind.5 = Output 'ногу ШИМа правого движка сконфигурировали как выход
'----------------------------------------------------------------------------
Dim Speed As Byte
Speed = 70
Do
Print "Start MiniBot"
Loop
P.S> и не забывай выставлять правильно клоки процессора, из-за них могут быть ошибки передачи. во втором миниботе 7372800 !!
Ven-Tures » 26 май 2009, 20:54
Нету у меня пока радио модем платы для компа, ща правда переключил на просто USB. Что с новичка взять
MiBBiM » 26 май 2009, 21:00
во-во, если есть на миниботе разъем usb, то в него и втыкай
Ven-Tures » 26 май 2009, 21:02
Итак, попробовал твою прогу, вот что вышло:
galex1981 » 26 май 2009, 21:06
А попробуй другую скорость
Ven-Tures » 26 май 2009, 21:13
На 9600, start minibot, идет до бесконечности.
galex1981 » 26 май 2009, 21:18
Правильно, так и должно быть
Ven-Tures » 26 май 2009, 21:23
Так, теперь надо разобраться с программой. У меня пульт rc-6.(bp магазина минибот)
Программу использую эту, но при нажатии на пульте кнопок тишина.(нажимаю 32 там например)
- Код: Выделить всё • Развернуть
$prog &HFF , &HE4 , &HD9 , &H00 'óêàçûâàåì êàêèå ôóñèáèòû íàäî ïðîøèòü
$regfile = "m32def.dat" ' ôàéë ñïåöèôèêàöèè Ìåãè32
$crystal = 7372800 ' óêàçûâàåì íà êàêîé ÷àñòîòå áóäåì ðàáîòàòü
$baud = 9600 ' óêàçûâàåì ÷àñòîòó äëà usart (òåïåðü íóæíî òîëüêî äëÿ îòëàäêè ïðîãðàììû)
'----------------------------------------------------------------------------
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinc.2 = Output : Drl Alias Portc.2 'íîãó ñêîíôèãóðèðîâàëè êàê âûõîä è îáîçâàëè Drl
Config Pinc.3 = Output : Drr Alias Portc.3 'íîãó ñêîíôèãóðèðîâàëè êàê âûõîä è îáîçâàëè Drr
Config Pind.4 = Output 'íîãó ØÈÌà ëåâîãî äâèæêà ñêîíôèãóðèðîâàëè êàê âûõîä
Config Pind.5 = Output 'íîãó ØÈÌà ïðàâîãî äâèæêà ñêîíôèãóðèðîâàëè êàê âûõîä
'----------------------------------------------------------------------------
Dim Speed As Byte
Speed = 200 ' óêàçûâàåì ñêîðîñòü ðîáîòà
Config Rc5 = Pind.2
Enable Interrupts
Dim Address As Byte , Command As Byte
Print "Start MiniBot" ' âûâîäèì â òåðìèíàë îòëàäî÷íîå ñîîáùåíèå
Do
Gosub Ïðèåì_rc5
If Command = 255 Then
Gosub Ñòîï
Elseif Command = 32 Then
Gosub Ïðÿìî
Waitms 100
Elseif Command = 33 Then
Gosub Íàçàä
Waitms 100
Elseif Command = 17 Then
Gosub Âëåâî
Waitms 100
Elseif Command = 16 Then
Gosub Âïðàâî
Waitms 100
End If
Loop
Ïðèåì_rc5:
Getrc5(address , Command)
If Address <> 255 And Command <> 255 Then
Command = Command And &B01111111
'Print Chr(12); ' âûâîäèì â òåðìèíàë ñèìâîë
'Print "Address - " ; Address; ' âûâîäèì â òåðìèíàë àäðåñ
'Print "Command - " ; Command; ' âûâîäèì â òåðìèíàë íîìåð êîìàíäû
End If
Return
Âëåâî:
Gosub Ñòîï : Waitms 10
Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed:
Return
Âïðàâî:
Gosub Ñòîï : Waitms 10
Drl = 0 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed:
Return
Ïðÿìî:
Gosub Ñòîï : Waitms 10
Drl = 0 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed:
Return
Íàçàä:
Gosub Ñòîï : Waitms 10
Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed:
Return
Ñòîï:
Drl = 0 : Drr = 0 : Pwm1b = 0 : Pwm1a = 0:
Return
galex1981 » 26 май 2009, 21:30
ТСОП к какой ножке МК подключен?
Ven-Tures » 26 май 2009, 21:33
TSOP на шлейфе, подключен сюда -
galex1981 » 26 май 2009, 21:47
Тогда похоже что у тебя порт D3 задействован. Измени:
- Код: Выделить всё • Развернуть
Config Rc5 = Pind.3
Ven-Tures » 26 май 2009, 22:00
Нет, только написал старт минибот и все, нажимая на пульт тишина. Может батарея там села?
galex1981 » 26 май 2009, 22:09
И все таки на шлейфе посмотри к каким пинам ТСОП подключен, тестером прозвони
Qzen » 27 май 2009, 08:48
У меня следующая ситуация: По недосмотру свой первый заказ я оформил на базовую комплектацию с некоторыми дополнениями, а именно:
- Базовая комплектация, разъемы вверх
- Программатор STK500
- Стабилизатор на 3.3 Вольта
- Опция FT232
- Flash Память на 2Гб
- Звуковой усилитель + Динамик
===
- Шасси для MiniBot 2.0
А теперь у меня встал вопрос в том, есть ли такая возможность, заказать полный комплект, получить скидку, отправив обратно свою плату. (Ведь некоторые функции на ней уже присутствуют из базовой комплектации).
А именно хотелось бы заменить:
Базовая комплектация(разъемы вверх)(заказ №59)| -> Полная комплектация
Стабилизатор на 3.3 В....................................|
Опция FT232...............................................|
Flash память на 2 Гб......................................|
Звуковой усилитель.......................................|
Программатор STK500 -> Программатор STK200.
=======
Соответственно, оплачу все неустойки.
Есть ли такая возможность?
EdGull » 27 май 2009, 10:20
номер заказа какой?
