roboforum.ru

[кулер 23]

А почитать где можно ?

[EdGull]

на бумаге, но можно и на компе

[кулер 23]

Что такое? Прошил минибота, чтобы от пульта ездил, нажимаю на кнопку а моторы не крутятся а так дрыгаются ставил скорость на 100 они стали еле крутится акум заряжен полностью!

[galex1981]

Что за прошивка? Код можно?

[кулер 23]

Конешно

Код: Выделить всё • Развернуть

                                          ' Указываем какой версии у нас МиниБот
Const Device = 1                                            'MiniBot Version 1 or 2
$regfile = "m32def.dat"                                     ' файл спецификации Меги32

#if Device = 1
' Set configuration for MB1
   $prog &HFF , &HE4 , &HD9 , &H00                          'указываем какие фусибиты надо прошить
   $crystal = 8000000                                       ' указываем на какой частоте будем работать
   $baud = 9600                                             ' указываем частоту дла usart (теперь нужно только для отладки программы)
#else
' Set configuration for MB2
'  $prog &HFF , &HBD , &HC9 , &H00      'указываем какие фусибиты надо прошить
   $crystal = 7372800                                       ' указываем на какой частоте будем работать
   $baud = 115200                                           ' указываем частоту дла usart (теперь нужно только для отладки программы)
#endif

'----------------------------------------------------------------------------
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                                                  ' указываем скорость робота

Config Rc5 = Pind.3
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]

Слушай, а RC5 использует тот же таймер что и движки, нужно разделять использование RC5 и PWM на таймере 1

[кулер 23]

Да кстати он даже от такого также моторами дергает

Код: Выделить всё • Развернуть

$prog &HFF , &HE4 , &HD9 , &H00       'указываем какие фусибиты надо прошить
$regfile = "m32def.dat"       ' файл спецификации Меги32
$crystal = 8000000       ' указываем на какой частоте будем работать
 
'----------------------------------------------------------------------------
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
  Drl = 0  'направление движения левого движка, в нашем случае это прямо
  Drr = 0  'направление движения правого движка, в нашем случае это прямо
  Pwm1b = Speed : Pwm1a = Speed
Loop

[galex1981]

А какие фузи биты выставил? И посмотри на частоту кварца. Если работа от внешнего то тебе нужно ставить:

Код: Выделить всё • Развернуть

$crystal = 7372800       

если от внутренней RC цепочки то так и оставить частоту, но может и не очень стабильно работать

[кулер 23]

А какие фузи биты выставил?

Никаких

[galex1981]

ТОгда посмотри, какие зашиты и выложи плиз, а то разговор ни о чем

[кулер 23]

Вроде вот эти

Код: Выделить всё • Развернуть

 $prog &HFF , &HE4 , &HD9 , &H00 

[galex1981]

Это настройки в программе для прошивки фузов. Ты программатором считай фузы например в AvrStudio или в Bascome, тут человек в соседней ветке так и сделал - выложил скриншот

[кулер 23]

я в баскоме ничего вроде даже не ставлю

[кулер 23]

У мя появился мозг я понял что надо делать с библиотекой

[galex1981]

Поздравляю! Может быть нам расскажешь свои мысли по этому поводу?