roboforum.ru

Эд, у нас программатор уже 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 !!

Нету у меня пока радио модем платы для компа, ща правда переключил на просто USB. Что с новичка взять

во-во, если есть на миниботе разъем usb, то в него и втыкай

Итак, попробовал твою прогу, вот что вышло:

А попробуй другую скорость

На 9600, start minibot, идет до бесконечности.

Правильно, так и должно быть

Так, теперь надо разобраться с программой. У меня пульт 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

ТСОП к какой ножке МК подключен?

TSOP на шлейфе, подключен сюда -

Тогда похоже что у тебя порт D3 задействован. Измени:

Код: Выделить всё

Config Rc5 = Pind.3


Нет, только написал старт минибот и все, нажимая на пульт тишина. Может батарея там села?

И все таки на шлейфе посмотри к каким пинам ТСОП подключен, тестером прозвони

У меня следующая ситуация: По недосмотру свой первый заказ я оформил на базовую комплектацию с некоторыми дополнениями, а именно:
- Базовая комплектация, разъемы вверх
- Программатор STK500
- Стабилизатор на 3.3 Вольта
- Опция FT232
- Flash Память на 2Гб
- Звуковой усилитель + Динамик
===
- Шасси для MiniBot 2.0

А теперь у меня встал вопрос в том, есть ли такая возможность, заказать полный комплект, получить скидку, отправив обратно свою плату. (Ведь некоторые функции на ней уже присутствуют из базовой комплектации).

А именно хотелось бы заменить:
Базовая комплектация(разъемы вверх)(заказ №59)| -> Полная комплектация
Стабилизатор на 3.3 В....................................|
Опция FT232...............................................|
Flash память на 2 Гб......................................|
Звуковой усилитель.......................................|

Программатор STK500 -> Программатор STK200.
=======
Соответственно, оплачу все неустойки.
Есть ли такая возможность?

номер заказа какой?