roboforum.ru

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

Опять про Серво

Опять про Серво

pashteet » 28 сен 2009, 01:05

Всем привет!
Сразу тапком не кидайте :sorry: на форуме тем полно, но почти все они относятся к Си, а я пишу на Васике и в Си нивзубнагой
Проблема такая - купил серву HTX900, подключил к Меге32 (кварц на 8МГц), написал код:
Код: Выделить всёРазвернуть
$regfile = "m32def.dat"                                     'используем мк ATmega32
$crystal = 8000000                                          'частота кварцевого резонатора 8mHz

Enable Interrupts

Config Servos = 1 , Servo1 = Portb.0 , Reload = 10

Dim I As Integer

Do

For I = 45 To 135 Step 1
Servo(1) = I
Waitms 13                                    'эту задержку подбирать надо эксперементально. особо большую не ставь. а то поставишь секунду серва и будет дёргаться раз в секунду
Next

For I = 135 To 45 Step -1
Servo(1) = I
Waitms 13
Next

Loop


Прошил, подключаю питание - серва один раз дергается и все :( больше ничего делать нехочет
Питание стаб. 5В, нога рабочая - проверено светодиодом. Пытался играть со значением Reload = 10 - нифига не реагирует, эффект тот же.

Помогите плиз советом :beer: , мысли совсем кончились по этому поводу :oops:

Re: Опять про Серво

galex1981 » 28 сен 2009, 01:33

Задержку поставь побольше

Re: Опять про Серво

pashteet » 28 сен 2009, 01:39

на сколько побольше?
20 хватит?

Re: Опять про Серво

galex1981 » 28 сен 2009, 02:06

Хотя бы 100-150 поставь и проверь, а там решишь какую оставить

Re: Опять про Серво

pashteet » 28 сен 2009, 02:31

Поставил 150 - результат тот же :(

Я прям чет потерялся аж

Re: Опять про Серво

EdGull » 28 сен 2009, 08:38

питание у сервы какое и от куда?

Re: Опять про Серво

=DeaD= » 28 сен 2009, 08:47

Кстати, да, замерить бы питание - может его серва просаживает при попытке включиться и МК сбрасывается.

Добавлено спустя 47 секунд:
Хотя это больше было бы похоже на дерганье постоянное, а не 1 раз бы дернулось вначале :)

Re: Опять про Серво

avr123.nm.ru » 28 сен 2009, 10:10

pashteet писал(а):Помогите плиз советом :beer:

Посмотрите в симуляторе или осцилом или через звуковой вход какие импульсы дает ваше устройство на серву. Правильные импульсы расписаны и показаны на скриншоте на страничке - http://avr123.nm.ru/z13.htm

Re: Опять про Серво

SkyStorm » 28 сен 2009, 10:12

На Output поставь в самом начале программы )))
Код: Выделить всёРазвернуть
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Pinb.0 = Output

Re: Опять про Серво

pashteet » 28 сен 2009, 11:23

Всем спасибо! Заработало :beer:
СкайШторм был прав, хватило лиш одной строки:
Код: Выделить всёРазвернуть
Config Pinb.0 = Output


Извиняюсь за свою невнимательность :sorry:


Rambler\'s Top100 Mail.ru counter