Помогите код написать...

кулер 23

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

EdGull

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

кулер 23

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

ставил скорость на 100 они стали еле крутится :no:

акум заряжен полностью!

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

Вроде вот эти :unknown:

Код:

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

galex1981

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

кулер 23

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

кулер 23

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

galex1981

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

roboforum.ru

Помогите код написать...

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